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]

[Teekeks]

Arrrg...
Hier ist der Falsche Bereich...
(hallo Mods )

[fkerber]

Hallo terragon!

Herzlich willkommen in der DP.
Bitte verwende in Zukunft die [Delphi]-Tags, um Code schön formatiert darzustellen.


@Teekeks:
Das kann ja mal passieren, kein Grund für Kopfschmerzen



Grüße, Frederic

[himitsu]

Du erstellst in OnCreate die "Webcam"
und speicherst ihr Handle in der lokalen Variable "Handle"

und dann willst du das Foto über das .Handle des Fensterns (TForm1) speichern und nicht mit dem Handle des erstellten Cam-Fensters.


PS: Handle ist ein "doofer" Variablenname, denn wie genannt, hat die Form ein Property mit selben Namen.