Problem mit Speichern von Bild

**Flips**

Hi.

Habe folgendes Problem.
Ich habe eine Funktion mit einer Webcam.
Diese lädt die Webcam Bilder in ein TImage.
Jetzt wollte ich dieses TImage per Timer jede Sekunde speichern lassen.
Folgender Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure GetCamPictures;

var handle:THandle;

begin

 handle := capCreateCaptureWindow( PChar('Webcam'),

              WS_CHILD or WS_VISIBLE, 0, 0,

              300, 300,

              Form1.Image1.Picture.Bitmap.Handle, 0);

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.FormCreate(Sender: TObject);

begin

 GetCamPictures;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Form1.Image1.Picture.Bitmap.SaveToFile('C:\test.bmp');

end;

Er speichert mir zwar eine Datei, allerdings ist diese leer.
Kann mir jemand helfen es richtig zu machen?
MfG
Flips

Problem mit Speichern von Bild

Problem mit Speichern von Bild

Forumregeln