Asus - Do 19.07.07 23:45
Titel: WebCam in Panel?

---

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

alias5000 - Fr 20.07.07 00:37

---

Da gibt es in der JVCL [http://jvcl.sf.net] eine entsprechende Komponente. Der Name von der ist glaube ich TJvAVICapture.

Gruß
alias5000

peter B - So 22.07.07 18:29
Titel: Nimm videocap

---

Hi,

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

LG
Peter

gurhan - Sa 04.08.07 19:09
Titel: da ist es

---

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.