Zitat von
Phantom1:
Delphi-Quellcode:
var
BitmapInfo: TBitmapInfo;
begin
//...
FillChar(BitmapInfo, SizeOf(BitmapInfo), 0);
SendMessage(CapHandle, WM_CAP_GET_VIDEOFORMAT, SizeOf(BitmapInfo), Integer(@BitmapInfo));
ConvertCodecToRGB(BICompressionToVideoCodec(bitmapinfo.bmiHeader.biCompression), VideoHDR^.lpData, @Buf2,PicWidth, PicHeight);
Hatt den Vorteil das der richtige Codec automatisch gewählt wird.
Cool! ...war allerdings für meine Exkursion in dieses Thema hinein nicht notwendig, aber trotzdem: Sehr praktisch! Besonders dann natürlich, wenn man so ein Prog auch mal weitergeben möchte.
Sind eigentlich in dieser YUVConverts-
Unit alle so möglichen Codecs auch +/- vollständig berücksichtigt? Ich hatte letztens nämlich mal 2 WebCams deren gegrabte Frames sich damit nicht dekomprimieren ließen. Da konnte man alle Codecs dieser
Unit der Reihe nach hoch und runter durchprobieren (auch mal ganz ohne Dekomprimierung inklusive), nichts half leider.