hallo zusammen,
ich fange gerade erst an mit delphi und habe das Tutorial auf
http://www.delphi-tutorials.tk gefunden und den audio player erstellt.
ging soweit auch recht gut wollte dann aber ein paar zusätzliche fuktionen drin haben (ohne videos) aber schau da gerade nicht mehr durch.
hier erstmal der code
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if Form2.Listbox1.Items.Count=0 then
begin
if Opendialog1.Execute then
begin
Form2.Listbox1.Items.Add(Opendialog1.FileName);
Mediaplayer1.FileName:=Form2.Listbox1.Items[song];
Mediaplayer1.open;
MediaPlayer1.Play;
Timer1.Enabled:=true;
Progressbar1.Max:=Mediaplayer1.Length;
end;
end;
end;
das ist der play button es soll so fuktionieren das wenn kein lied in der playlist ist das dann opendialog geöffnet wird. das geht auch aber sowie ein lied in der playlist ist passiert nichts wenn man auf play klickt.
brauche eure hilfe finde im inet nichts was mir weiter helfen könnte.
danke schonmal im vorraus