Webcam-Bild in Datei speichern

[terragon]

Hallo,
dies ist wohl ein leidiges Thema. Ich hab aber immer noch ein Problem. Ich möchte von meiner Webcam ein Standbild (jpg) machen und unter einem Dateinamen abspeichern. Wenn möglich zu jedem Bild einen anderen Dateinamen zb Bild#1, Bild#2, ...
Die webcam kann ich auch in meinem Programm sehen. Es wird nur kein Bild gemacht. Könnt ihr mir helfen?
Vielen Dank im Voraus...

Delphi-Quellcode:

unit Uwebcam;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, clipbrd;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  

  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;

//Zuerst brauchst du folgende Konstanten 
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}

//Dann brauchst du noch das hier 
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(Sender: TObject); //halt irgendne Prozedur, ich habs im Formcreate, damit ich gleich was seh ^^
var handle:THandle;
begin 
  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 640, 480, Panel1.Handle, 1); //Wie du siehst, brauchst du ein Panel in diesem Beispiel ;-)
  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;

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveWebcamPictureDIB(PChar('C:\test.jpg'),Handle);
end;

end.

[edit=fkerber]Delphi-Tags ergänzt. Mfg, fkerber[/edit]