Forum: Multimedia
Delphi
by Alex_ITA01,
24. Okt 2003
sag mal wieso schließt du im Play Button den Mediaplayer?
If Mediaplayer1.Mode = mpOpen then Mediaplayer1.Close;
der muss der open sein damit er auch spielen kann, denn dannach fragst du
if Mediaplayer1.Mode = mpPlaying then begin //<---- kann doch nicht reingehen wenn du vorher close machst
Mediaplayer1.FileName := PlayL1.Items.Strings;
Stunden := 0; Minuten := 0; Sekunden := 0;
...
Forum: Multimedia
Delphi
by Alex_ITA01,
24. Okt 2003
poste mal deine proceduren mit, vielleicht ist da der Fehler !!!
einfach mal mitschiken denn bei mir gehts
alex
Forum: Multimedia
Delphi
by Alex_ITA01,
24. Okt 2003
gute werde ich machen habs aber noch nie probiert als werde ich es mal testen
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
with fileLoad1 do begin
Filter := 'mp3-Files(*.mp3)|*.mp3|Wav-Files(*.wav)|*.wav|MIDI-Files(*.mid)|*.mid|Alle Audiodateien(*.mp3,*.wav,*.mid)|*.mp3;*.wav;*.mid';
end;
if fileLoad1.Execute then
begin
Ticks;