Tmediaplayer

Nedenstående rutine load en fil ind i mediaplayeren. Hvis den ikke er korrekt format burde den reload den allerede afspillende fil og forsætte i den position den var ved i afspiningen. Dette vil stadig give en fejl inde i IDE'en af delhi. Men kompilere du og kører EXE filen så burde den ikke poppe op med et fejl vindue.

procedure TForm1.Button1Click(Sender: TObject);
Var
mD_current_pos : Longint;
mD_current_file : string;
Begin

if OpenDialog1.Execute then
Begin

mD_current_file := mediaplayer1.FileName;
mD_current_pos := mediaplayer1.Position;
try
mediaplayer1.FileName := opendialog1.filename;
MediaPlayer1.open;
Mediaplayer1.play;
except
if MediaPlayer1.Error <> 0 then
Begin
if trim(mD_current_file) <> '' then
begin
MediaPlayer1.FileName := mD_current_file;
mediaplayer1.Open;
MediaPlayer1.Position := mD_current_pos;
Mediaplayer1.Play;
END;
END;
END;
end;
END;

Hvis du ikke ønsker det lille hak der komme i den afspillende fil ved load af korrupt fil. Så tilføj en Mediaplayer2 component og førsøg at loade ind i den og se om mediaplayer2.error er = 0. Er den det så load filen ind i din Mediaplayer1 comp.

mine freeware og shareware programmer : http://www.veloci.dk

Mine Freeware spil : http://www.nino.dk/gamebiz & http://www.osirisgames.com

Nedenstående rutine load en fil ind i mediaplayeren. Hvis den ikke er korrekt format burde den reload den allerede afspillende fil og forsætte i den position den var ved i afspiningen. Dette vil stadig give en fejl inde i IDE'en af delhi. Men kompilere du og kører EXE filen så burde den ikke poppe op med et fejl vindue.

Det virker jo fint.... takker!
/Eddie