Zitat von
TStringlist:
In diesem Dialog selbst müsstest du dann aber sehen können, was für Komprimierungen die WebCam überhaupt anbietet. Wichtig ist für dich dabei, dass dort im Dialog jetzt eine solche Komprimierung auswählbar ist, zu der in der YUVConverts-
Unit auch eine Dekomprimierung angeboten wird, bzw. eine solche dann auch in der "ConvertCodecToRGB"-Zeile einstellbar ist.
Ich würde es etwas einfacher machen, anstatt:
Zitat:
ConvertCodecToRGB(vcYUV12,VideoHDR^.lpData,@Buf2,P icWidth,PicHeight);
so hier:
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.