dimensioner af videoklip

http://www.swissdelphicenter.ch/torry/showcode.php?id=1180

ved ikke om der er andre måder

det kan da ikke være rigtigt at man skal bruge alle de linier...

Du kan bare trykke prt scr, print screen (Der skal ikke være nogen form for zoom på), og kopiere den ind i f.eks. og måle størrelsen på billedet via "klip" metoden...

mikstor...

Jeg skal bruge noget kode, så mit Delphi-program selv kan finde dimensionerne...

Ellers tak for rådet...

nej ikke helt så meget, du skal jo have fjernet der hvor den gammer til filen.

Kan da godt prøve at gøre den mindre lang....

jatak, det ville være dejligt...

Du kan læse headeren på filen - den skifter godt nok fra avi til mpeg og kræver derfor kendskab til hver enkelt filtypes opbygning. Du har vel tjekket at mediaplayer-komponenten ikke har oplysningerne liggende (jeg har ikke)?

Er det altid samme slags fil du skal vide framedimensionerne på?

Nej. Det er ikke altid samme slags fil (skifter mellem avi, mpeg og wmv), men det gør ikke noget. Jeg har styr på hvornår, det er hvad.

Hvad mener du med headeren?

Der ligger altid noget information om den pågældende fil gemt i en header; mener faktisk at der hyppigt ligger 2 slags, en til operativsystemets "Egenskaber" og en til de programmer der læser. Det er den sidste der er interessant idet her står dimensionerne og bit-dybde (farvedybde) og sikkert også hvilken version af filformatet der er tale om. Se bare Microsofts information om Bitmap: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_7ltf.asp.

Tilsvarende er der sikkert headers for avi, mpeg og wmv.

avi: http://www.fastgraph.com/help/avi_header_format.html - en 56-byte header der starter 32 bytes inde i filen. Her et eksempel (ikke testet, kun tampet ned hurtigt)?

type
  TAVIHeader = packed record
    TimeDelay : cardinal;
    DataRate : cardinal;
    PaddingSize : cardinal;
    ParameterFlags: cardinal;
    NumberOfFrames : cardinal;
    NumberofPreviewFrames : cardinal;
    NumberOfDataStreams : cardinal;
    SuggestedPlaybackBufferSize : cardinal; // in bytes
    PixelWidth : cardinal;
    PixelHeight : cardinal;
    TileScale : cardinal; // Typically 30
    DataRate : cardinal; // (frame rate = data rate / time scale)
    StartingTime : cardinal; // typically 0
    AVISizeInTimeScaleUnits : cardinal;
  end;

procedure ReadAVIHeader(aStream : TStream; var aAVIHeader : TAVIHeader);
begin
  aStream.Position := 32;
  aStream.ReadBuffer(aAVIHeader,sizeof(TAVIHeader));
end;

Måske kan du i stedet hente oplysningerne fra din afspiller? Det kræver at den loader filen hver gang og det kan være for langsomt.

kan stadig ikke helt forstå hvordan jeg kommer ind til headeren i filen...

hvor skal man indsætte filnavnet i dit eksempel?

dkn...

swissdelphicenter fungerede fint... men kun til avi

skal også kunne bruges til mpeg og wmv...

beklager...

jeg har fundet ud af at delphis egen komponent Tanimate har en autosize-funktion, men den virker ikke, uanset hvilken fil jeg indlæser...

er der nogen der har en ide?

tt2002 -> Det er meningen at den fodres med en TFileStream som er åbnet på den fil du vil læse:

var
  fs : TFileStream;
  Header : TAVIHeader;
begin
  fs := TFileStream.Create('c:\Harry potter 5.avi',fmOpenRead);
  try
    ReadAVIHeader(fs,Header);
    // Gør et eller andet med headeren her.
  finally
    fs.Free;
  end;
end;

Nej, jeg har ikke lige den film liggende... ;-)

.