Webcam in Delphi?

[internet11]

Zitat von alcaeus:

Hi Ulti,

ich habe diesen Code ausprobiert:

Delphi-Quellcode:

procedure TForm1.ButtonCamFoClick(Sender:TObkect);
begin
SendMessage( handle, WM_CAP_EDIT_COPY, 1, 0 );
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
end;

und er funktioniert soweit auch gut

Allerdings wird das Bild in die Zwischenablage kopiert, was ich definitiv verhindern möchte. Gibt es eine Möglichkeit dies zu umgehn bzw. den ursprünglichen Zustand des Clipboards zu sichern und anschließend wieder herzustellen?

Greetz
alcaeus

Super, dass die Frage schon gestellt wurde! Habe es gerade auch mit diesem Code probiert und es klappt! Danke dir.