Hallo
DP!
Ich möchte gerne mit (etwa) 2fps meine Webcam abtasten und das Bild ausgeben lassen.
Zur Zeit habe ich dafür eine von smallsmoker in der Codelib veröffentlichte Version, die eigentlich genau das kann, aber dafür das Bild immer zwischenspeichern muss:
Delphi-Quellcode:
procedure GetWebcamSnapshot(Filename: string);
var
bmi: BITMAPINFO;
begin
if isConnected then
begin
SendMessage(CaptureWindow, WM_CAP_SET_VIDEOFORMAT, 0, integer(@bmi));
SendMessage(CaptureWindow, WM_CAP_GRAB_FRAME, 0, 0);
SendMessage(CaptureWindow, WM_CAP_SAVEDIB, 0, longint(PChar(Filename)));
end;
end;
Das Grundprinzip gefällt mir so weit und ich möchte es auch weiterhin per Timer - Oder vielleicht auch als Thread - einbinden.
Mein Problem ist jetzt, aus dieser Prozedur eine Funktion zu erstellen, die ein TBitmap liefert, ohne es auf der Festplatte zwischenlagern zu müssen.
Wenn möglich ohne großen zusätzlichen Rechenaufwand...!
Vielen Dank schonmal im Voraus,
Der LDer.