Ich lade den Track über einen Button, der mit folgender Routine versehen ist:
Delphi-Quellcode:
with OpenDialog2 do begin
Filter := 'cda-Files(*.cda)|*.cda';
end;
if OpenDialog2.Execute then
mediaplayer2.FileName := OpenDialog2.FileName;
mediaplayer2.Open;
mediaplayer2.play; {für das direkte Abspielen des Tracks};
Zum Abspielen des Tracks verwende ich folgende Routine:
Delphi-Quellcode:
procedure TForm2.Play1Click(Sender: TObject); {Play1 entspricht dem Button 'Play'}
begin
cdaudiolist.Items.Count;
mediaplayer2.play;
Timer1.Enabled := True;
end;
War das ausführlich genug erklärt.
Ich hoffe, ihr könnt mir jetzt weiterhelfen.
Gruss
DelphiUser7
[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]