Delphi und Funkkamera

[Megara]

Code:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  CWND := capCreateCaptureWindowA('Video',WS_CHILD + WS_VISIBLE,0,0, 500,500,pnVideo.Handle,1);
  SendMessage (cwnd,WM_CAP_DRIVER_CONNECT,0,0);
  SendMessage (cwnd,WM_CAP_SET_PREVIEWRATE,30,0);
  SendMessage (cwnd,WM_CAP_SET_OVERLAY,1,0);
  SendMessage (cwnd,WM_CAP_SET_PREVIEW,1,0);
end;

USB-Funkkamera 2,4 GHz Quelle: Pollin Artikelnummer: 580 162
http://www.pollin.de/shop/images/art...ig/G580162.JPG