Zitat von IcewarezDie erste M?glichkeit ?ber die Zwischenablage:
Format: Bitmap
Code
- procedure SaveWebcamPicture(strFilename: string;WebcamHandle: THandle);const WM_CAP_EDIT_COPY = WM_USER + 30;var Bitmap : TBitmap;beginBitmap := TBitmap.Create;try Bitmap.PixelFormat := pf24Bit; SendMessage(WebcamHandle,WM_CAP_EDIT_COPY,1,0); Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); Bitmap.SaveToFile(strFilename);finally FreeAndNil(Bitmap);end;end;
Zitat von IcewarezBeispielaufruf:
Zitat von IcewarezDie zweite M?glichkeit ?ber capFileSaveDIB:
Format: JPEG
Zitat von IcewarezBeispielaufruf: