Webcam in Delphi?

[Ultimator]

Also, in dem Beitrag im o.g. Forum hat er noch den Code für ein Bildschirmfoto gepostet, aber den hab ich nicht getestet

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;

Dan müsstest du halt die im oben genannten Code vereinbarte Variable handle global oder so machen, um darauf zugreifen zu können.

Joa, die Konstanten der Funktion capCreateCaptureWindow müssen gleich bleiben;
in diesem Codeblock

Delphi-Quellcode:

handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0, 0, 320, 240, Panel1.Handle, 1);
SendMessage(handle, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(handle, WM_CAP_SET_PREVIEWRATE, 30, 0);
sendMessage(handle, WM_CAP_SET_OVERLAY, 1, 0);
SendMessage(handle, wm_cap_set_preview, 1, 0);

kannst/darfst du lediglich das 'Video' in handle:= capCreateWindow(bla); ändern.
Die Konstanten WM_CAP_DRIVER_CONNECT, WM_CAP_SET_PREVIEWRATE, WM_CAP_SET_OVERLAY und wm_cap_set_preview müssen denke ich so bleiben. Kannst ja n bissl mit den Parametern rumspielen

Das dürfte erstmal alles sein