Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: DSPack : Länge von Lied vor Abspielen herausbekommen

    Delphi
    by Lasse2002, 19. Feb 2007
  Einfacher geht es so:
  function TfrmMain.DurationMinSec(Sekunden : Integer) : String;
  begin
  Result := TimeToStr(Sekunden / SecsPerDay);
  end;
  
  
  Man kann mit einer einfachen Divison durch SecsPerDay einen Wert von Sekunden in ein TDateTime umwandeln.
  
  Oder wenn GetMediaLength gleich ein TDateTime zurückgeben soll:
• Forum: Multimedia

  Re: DSPack : Länge von Lied vor Abspielen herausbekommen

    Delphi
    by Lasse2002, 19. Feb 2007
  Hat es schon mal jemand mit IMediaDet probiert? Dieses Interface ist dafür gedacht, die Länge und evtl. noch ein paar weitere Infos von einer Mediadatei herauszubekommen.
  
  function GetMediaLength(const AFileName: WideString): Double;
  var
  MediaDet: IMediaDet;
  hr: HResult;
  begin
  hr := CoCreateInstance(CLSID_MediaDet, nil, CLSCTX_INPROC_SERVER,
  IID_IMediaDet, MediaDet);
  if...