title image


Smiley mcisendstring unter win98..
Hallo,



ich habe eine Funktion gebastelt, die bisher unter allen Systemen lief. Leider habe ich kein Backup mehr, weiss also nicht, was ich geändert hatte - ist schon eine Weile her.



Hier die Funktion:





procedure Play_MP3Play(Filename: string; Aktion: Byte; Dummy_SetPos: Integer);

var

Command, ReturnString: string;

hil: array[0..255] of char;

begin

case Aktion of

0: { MP3 stoppen }

begin

MciSendString('close all', nil, 0, 0);

// MciSendString ('close Mp3Song', nil, 0, 0) ;

// Stopp

MP3_is_playing := False;

// Play wieder zulassen

end;

1: { MP3 spielen }

begin

GetShortPathName(Pchar(Filename), hil, 256);

FileName := hil;

Command := 'open ' + Filename + ' type MPEGVideo alias Mp3Song';

if MciSendString(Pchar(Command), PChar(ReturnString), 0, 0) = 0 then

if mciSendString('Set Mp3Song time format milliseconds', nil, 0, 0) = 0 then

if mciSendString('break Mp3Song on 27', nil, 0, 0) = 0 then

if (only_THIS_song) and (_Repeat) then

Form1.Timer1.Enabled := mciSendString(PChar('play Mp3Song repeat notify'), nil, 0, Form1.Handle) = 0

else

Form1.Timer1.Enabled := mciSendString(PChar('play Mp3Song notify'), nil, 0, Form1.Handle) = 0;

end;

2: { von Position abspielen }

begin

GetShortPathName(Pchar(Filename), hil, 256);

FileName := hil;

Command := 'open ' + Filename + ' type MPEGVideo alias Mp3Song';

if MciSendString(Pchar(Command), nil, 0, 0) = 0 then

if mciSendString('Set Mp3Song time format milliseconds', nil, 0, 0) = 0 then

if mciSendString('break Mp3Song on 27', nil, 0, 0) = 0 then

if (only_THIS_song) and (_Repeat) then

Form1.Timer1.Enabled := mciSendString(PChar('play Mp3Song from ' + IntToStr(Dummy_SetPos) + ' repeat notify'), nil, 0, Form1.Handle) = 0

else

Form1.Timer1.Enabled := mciSendString(PChar('play Mp3Song from ' + IntToStr(Dummy_SetPos) + ' notify'), nil, 0, Form1.Handle) = 0;

end;

end;

end;





Der Fehler tritt hier auf:



Command := 'open ' + Filename + ' type MPEGVideo alias Mp3Song';

if MciSendString(Pchar(Command), nil, 0, 0) = 0 then

if mciSendString('Set Mp3Song time format milliseconds', nil, 0, 0) = 0 then



Unter WinXP gibt es keine Probleme, nur unter Win9x. Vorher lief es korrekt.



Kann bitte mal jemand schauen, ob es funktioniert?



Parameter:



play_mp3play('c:\test.mp3',1,0);



Folgender Fehler tritt auf einmal immer auf (Win98 SE):



Gruß
~Mathias
..   ————————————————————————————————————————
..
..   Private Seite: http://www.nogad.de
..
..   ————————————————————————————————————————
..
..   Pension Fiege - Inhaber Monika Fiege
..   Kranichfelder Straße 68
..   99097 Erfurt
..
..   Tel: +49 361 41 38 39
..   Fax: +49 361 42 150 87
..
..   www.Pension-Fiege.de
..
..   ————————————————————————————————————————


geschrieben von

Anhang
Bild 12085 zu Artikel 563502

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: