Einzelnen Beitrag anzeigen

Berlinermauer

Registriert seit: 3. Okt 2007
Ort: 0x0000
213 Beiträge
 
Delphi 7 Personal
 
#29

Re: Cam Capturing [USB 2 PHP]

  Alt 8. Sep 2008, 14:56
Kanns nicht daran liegen, dass ich das Capture nicht initalized habe ?

irgendwie hat das capCreateWindow oder so nicht funktioniert.

"Beide Funktionen erwarten nur den Dateinamen und das Handle, welches bei der Initialisierung von der Funktion capCreateCaptureWindow zurückgegeben wird."

so nun weiß ich aber nichts mit campCreateCaptureWindow anzufangen da delphi sich eben beschwert.

Hier die Funktion :
Delphi-Quellcode:
function SaveWebcamPictureDIB(pFileName: PChar;WebcamHandle: THandle):Boolean;
const WM_CAP_FILE_SAVEDIB = WM_USER + 25;
begin
if IsWindow(WebcamHandle) then
  result := (SendMessage(WebcamHandle,WM_CAP_FILE_SAVEDIB,0,LPARAM(pFileName)) <> 0)
else
  result := false;
end;
Beispielaufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//VideoHandle = Zurückgegebenes Handle bei der Initialisierung
SaveWebcamPictureDIB(PChar('C:\test.jpg'),VideoHandle);
end;
So habe ichs aus der DP.

und habe noch VideoHandle als THandle dekliniert
Marc S.
  Mit Zitat antworten Zitat