Von Web-Kamera Bild speichern

[SaFu]

Ok ich habe habe jetzt was gefunden

wo bekomme ich das handle her ? oder wie macht man das?

Delphi-Quellcode:

Die zweite Möglichkeit über capFileSaveDIB: 
Format: JPEG 
Delphi-Quellcode: markieren 
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: markieren 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
//VideoHandle = Zurückgegebenes Handle bei der Initialisierung 
SaveWebcamPictureDIB(PChar('C:\test.jpg'),VideoHandle); 
end;