WebcamBild abgreifen und speichern?

[Kidix]

Hi,


ich benutze folgenden Code um Das WebcamBild anzuzeigen...Jetzt habe ich aber das Problem, dass ich ein Bild...Ca alle 30 Sekunden speichern möchte...

Hier der code den ich schon hab,,leider sagt er, das das Format der Zwischenablage nicht unterstützt wird.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Screenshot1: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure Screenshot1Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

  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.FormShow(Sender: TObject);
  var
  handle:THandle;
begin
  handle := capCreateCaptureWindow('Video',ws_child+ws_visible, 0,
  0, 320, 240, 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;

procedure TForm1.Screenshot1Click(Sender: TObject);
 var
  handle:THandle;
begin

SendMessage( handle, WM_CAP_EDIT_COPY, 1, 0 );
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);

end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
Close;
end;

end.

Kidix

[Ultimator]

Ich hab mal im PSDk gesucht und das hier gefunden:
WM_CAP_FILE_SET_CAPTURE_FILE
WM_CAP_SINGLE_FRAME_OPEN
WM_CAP_SINGLE_FRAME_CLOSE
WM_CAP_SINGLE_FRAME

Das dürfte eigentlich (was ich so gesehen hab) den Zweck erfüllen :-)

//edit: Hat also nix mehr mit Clipboard zu tun, läuft ohne ;)

[Kidix]

da steig ich jetzt irgendwie nicht durch.... :-(

[Ultimator]

Naja, ich habs jetzt nicht ausprobiert, aber ich vermute mal, du musst erst mit WM_CAP_FILE_SET_CAPTURE_FILE einstellen, unter welchem Dateinamen das zukünftige Bild gespeichert werden soll. Parameter Eins erwartet das Handle des Webcam-Window, das du erhalten hast, also du capCreateCaptureWindow aufgerufen hast (also speicher dieses Handle lieber nicht in eine lokale Variable, du brauchst sie ja noch ;)). Der zweite Parameter eben noch den Dateinamen.
Dann musst du einfach nacheinander WM_CAP_SINGLE_FRAME_OPEN, WM_CAP_SINGLE_FRAME und WM_CAP_SINGLE_FRAME_CLOSE aufrufen, jeweils als einzigen Parameter das Handle (wie auch oben schon).

Das denk ich mir zumindest, der ich mir das nur 2 Minuten angeschaut hab ;)

Als kleinen Tipp: In einem Thread von mir, in dem ich nachstehendes gefragt hab, hat Luckie mal nen Link zu ner Seite gepostet, auf der ein Archiv mit Headerkonvertierungen war, das unter anderem auch die VfW.pas enthielt. Wenn du die einbindest, musst du nicht mit Sendmessage arbeiten, sondern kannst direkt die zugehörigen Makros verwenden.
Wesentlich komfortabler ;)

[turboPASCAL]

Hi,

Habe gerade neue Version (+ Source) hochgeladen, da kann man mal gucken

Webcam Bilder in ein Image speichern

[Kidix]

Ok, das funktioniert, nur muss ich so ja leider immer das Prog im Vordergrund haben, das möchte ich aber nicht unbedingt...

Gibts da noch ne andere Lösung?

Kidix