I have converted the headers but im having strange problems :?
with the dynamic linking i get error on mpg123_new (the program closes)
with static linking i get error on mpg123_info (the program closes)
dynamic linking
http://pastebin.com/m2f53c130
static linking
http://pastebin.com/m47e4f72b
code
Code:var error : Longint; mp3handle : Pmpg123_handle; v1 : Pmpg123_id3v1; v2 : Pmpg123_id3v2; info : Tmpg123_frameinfo; s : PChar; function checkerror : Boolean; begin Result := mpg123_errcode(mp3handle) = 0; Writeln(mpg123_strerror(mp3handle)); end; begin if mpg123_init <> mpg123_ok then Halt; s := mpg123_decoders()^; mp3handle := mpg123_new(s,@error); checkerror; mpg123_open(mp3handle,'mp3.mp3'); checkerror; v1 := new(Pmpg123_id3v1); v2 := new(Pmpg123_id3v2); mpg123_info(mp3handle,@info); mpg123_id3_(mp3handle,v1,v2); checkerror; mpg123_close(mp3handle); mpg123_exit; Readln; end.
Bookmarks