Разъясните
Вот эта прога не пашет скажите в чем проблема
program YoMP3;
uses mfs;
var textField_id: integer;
begin
textField_id := FormAddTextField('Enter MP3 file with full path', '/a/mobile/audio/moto~.mp3', 20, TF_ANY);
ShowForm;
repaint;
mfs.open_file('textField_id');
if not OpenPlayer('textField_id', 'audio/mpeg') then Halt;
if not SetPlayerCount(-1) then Halt;
if not StartPlayer then Halt;
delay(2000000);
end.
|