Webcam-Schnappschuss - OHNE(!) zwischenspeichern

[LDericher]

Delphi-Quellcode:

function GetWebcamSS:TBitmap;
var
  bmi: BITMAPINFO;
begin
  if isConnected then
  begin
    SendMessage(CaptureWindow, WM_CAP_SET_VIDEOFORMAT, 0, integer(@bmi));
    SendMessage(CaptureWindow, WM_CAP_GRAB_FRAME, 0, 0);
    Result:=TBitmap.Create;
    Result.PixelFormat := pf24Bit;
    SendMessage(CaptureWindow,WM_CAP_EDIT_COPY,1,0);
    Result.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
  end;
end;

... gefunden