Fehler bei Webcam anzeigen

[Chrissi91]

Hi ,

ich habe mir ein Codebeispiel aus der CodeLibrary angeschaut und getestet. Jedoch gibt es einen kleinen Grafikfehler, der immer auftaucht. Und zwar beim Starten des Programmes. Und weg gehen tut er auch nicht.

Der Code:

Delphi-Quellcode:

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.FormCreate;
var
 handle:THandle;
begin 
 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);
end;

Screenshot vom Fehler im Anhang.

Danke schon im Vorraus.