Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#6

Re: Überprüfen, ob nächste Datei Audio/Video ist und abspiel

  Alt 1. Okt 2006, 21:33
Zitat von Nils_13:
Es läuft nichts über Doppelklick, dann wird es auch noch unübersichtlicher. Wie soll ich denn überhaupt überprüfen, ob die Trackbar einen Maxwert hat, ohne Timer und vorallem macht es Sinn zwei zu haben, da man dann nich ständig den Videofensterfokus verliert, wenn man weiterspulen will (es sind zwei Forms, Videofenster ist eine Extraform). Hinzu muss ich die Endung von dem nächsten Lied ermitteln, um entsprechend zu handeln.

Meinst du das so ?
Delphi-Quellcode:
procedure TfrmMain.tListTimer(Sender: TObject);
begin
  if lbList.Items.Count <= 1 then
    exit;
  if not tb1.Max - tb1.Position = tb1.Max then
      Next_Audio;
  if tb1.Position = tb1.Max then
  begin
    if (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.mp3') or
       (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.wav') or
       (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.wma') or
       (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.aif') or
       (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.aiff') or
       (LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.ogg') then
    begin
      Next_Audio;
    end;
  end else
  begin
    if frmVideo.tb1.Position = frmVideo.tb1.Max then
    begin
      Next_Video;
    end;
  end;
end;
Nein.

Ich versuche es mal anders zu erklären.
Der richtige weg ist dieser.

Wenn die Trackbar max ist dann mußt du zuerst das aktuelle File schließen.
Also in deine stop funktion springen.
1. stop
2. Timer ausschalten
3. alle werte auf Default setzen incl.. Trackbar = 0
4. Ext vom nächsten File in der Playliste prüfen
5. Timer einschalten
6. Datei abspielen

Logisch brauchst du einen Timer ohne gehts nicht.

gruß
  Mit Zitat antworten Zitat