[delphi] AVI info lezen

[_Thanatos_]

Ik ben, mag ik wel zeggen, een zeer ervaren delphi-progger, maar nu loop ik toch op iets waar ik niet uit kom. Ik wil nml uit iedere gewenste AVI (xvid/divx in mijn geval, maar andere moeten ook kunnen) de afmetingen en duur (in seconden of whatever) van de film uitlezen.

Ik heb het al geprobeerd met de AVI*** API's, maar AVIOpenFile geeft gelijk al REGDB_E_CLASSNOTREG terug. Beetje vaag dus. De TMediaPlayer doet het beter, maar die crasht als ik Close aanroep (unknown exception, delphi knalt naar de disassembler):

Delphi:

MediaPlayer.Filename := edtAVIFile.Text;
MediaPlayer.Wait := True;
MediaPlayer.Open;
with MediaPlayer.DisplayRect do
   MovieWidth := Right - Left;
   MovieHeight := Bottom - Top;
end;
MediaPlayer.Close; // <-- Hier crasht ie dus.

Ik gebruik Delphi 5 Pro om dit alles te doen.

Kan iemand me verder helpen?

P.S. Voor dat dit stukje code crasht, bevatten MovieWidth en MovieHeight wel de juiste waarden, dus dat stuk werkt wel gewoon...

[ Voor 16% gewijzigd door _Thanatos_ op 10-03-2003 22:39 ]

[martijn_brinkers]

heb je hier wat aan?
http://www.lmc-mediaagentur.de/dpool/tips/0857.htm

[PiepPiep]

http://www.wotsit.org/download.asp?f=avi
Dit is een link naar een word file met hoe avi in elkaar zit.
Moet je dus wel zelf de file openen en lezen dus waarschijnlijk iets meer werk dan zo'n controlding.
De structs staan in C/C++ notatie maar dat mag geen probleem geven denk ik.

Overigens is deze site erg interessant vind ik, staat er veel info op over fileformaten.

[_Thanatos_]

Met de struct in dat Word bestandje en wat gevogel, ben ik eruit. hier de code om e.e.a. uit te lezen, voor de geïnteresseerden

Delphi:

F := TFileStream.Create(edtAVIFile.Text, fmOpenRead or
                                         fmShareDenyNone);
try
  F.Seek(32, soFromBeginning);
  F.Read(MainAVIHeader, SizeOf(MainAVIHeader));
  with MainAVIHeader do
     MovieWidth := MainAVIHeader.dwWidth;
     MovieHeight := MainAVIHeader.dwHeight;
     Milliseconds := Round(dwTotalFrames / 1000 * dwMicroSecPerFrame);
  end;
  Hours := Milliseconds div 3600000;
  Milliseconds := Milliseconds mod 3600000;
  Minutes := Milliseconds div 60000;
  Milliseconds := Milliseconds mod 60000;
  Seconds := Milliseconds div 1000;
finally
  F.Free;
 end;

/edit
Berekening voor milliseconden vereenvoudigd.

[ Voor 21% gewijzigd door _Thanatos_ op 11-03-2003 20:37 . Reden: code vernaggelde layout beetje ]

[ZaZ]

PiepPiep schreef op 10 March 2003 @ 23:29:
http://www.wotsit.org/download.asp?f=avi
Dit is een link naar een word file met hoe avi in elkaar zit.
Moet je dus wel zelf de file openen en lezen dus waarschijnlijk iets meer werk dan zo'n controlding.
De structs staan in C/C++ notatie maar dat mag geen probleem geven denk ik.

Overigens is deze site erg interessant vind ik, staat er veel info op over fileformaten.

offtopic:
Handige site!! Bedankt