Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#5

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

  Alt 1. Okt 2006, 21:21
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;
  Mit Zitat antworten Zitat