Moin,
ich habe viel gesucht aber nicht gefund.
Wie mache ich eine WebCam in ein Panel?
Sorry bloß bin aus allen anderen Threads net schlau geworden.

MFG Asus

Da gibt es in der JVCL eine entsprechende Komponente. Der Name von der ist glaube ich TJvAVICapture.

Gruß
alias5000

Hi,

such nach videocap.zip. Kost nüscht und klappt.

LG
Peter

ich kann nicht gut deutsch schreiben.
ich hofe es hilft dir.

...
var
Form1: TForm1;
const
WM_CAP_DRIVER_CONNECT = WM_USER + 10;
WM_CAP_EDIT_COPY = WM_USER + 30;
WM_CAP_SET_PREVIEW = WM_USER + 50;
WM_CAP_SET_OVERLAY = WM_USER + 51;
WM_CAP_SET_PREVIEWRATE = WM_USER + 52;
implementation

{$R *.dfm}
function capCreateCaptureWindow(lpszWindowName: LPCSTR;
dwStyle: DWORD;
x, y,
nWidth,
nHeight: integer;
hwndParent: HWND;
nID: integer): HWND; stdcall;
external 'AVICAP32.DLL' name 'capCreateCaptureWindowA';

procedure TForm1.Button1Click(Sender: TObject);

var handle:THandle;
begin
handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
0, 320, 240, Panel1.Handle, 1); //Wie du siehst, brauchst du ein Panel in diesem Beispiel ;-)
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);
end;
end.