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.

[turboPASCAL]

Ich denke mal das das kein wirklicher Fehler ist, sondern nur ein Kuddelmuddel beim initialisieren.
Das Bild kommt per Overlay. Das Programm ist eingestellt auf 320x240 aber von der Cam kommt nur 160x120 (oder so). Der Rest wird des Bereiches bekommt nur Speichermüll.