Hallo Leute,
ich hab ein kleines Problem:
Via dspack 2.3.1 greif ich auf einen Videostream einer Webcam zu.
Jetzt will ich(während das Video im TVideoWindow weiterläuft)
einen Snapshot vom Stream machen. Dafür wäre der SampleGrabber eigentlich gedacht.
Leider hab ich bis dato noch keine Möglichkeit gefunden - das zum laufen zu bringen.
(Screenshot oder Canvas abgreifen sind keine Optionen)
Delphi-Quellcode:
procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
SampleGrabber1.GetBitmap(Image.Picture.Bitmap);
end;
procedure TMainForm.SampleGrabber1Buffer(sender: TObject;
SampleTime: Double; pBuffer: Pointer; BufferLen: Integer);
begin
Image.Canvas.Lock; // to avoid flickering
try
SampleGrabber1.GetBitmap(Image.Picture.Bitmap, pBuffer, BufferLen);
Image.Picture.Bitmap.SaveToFile('c:\testbitmap.bmp');
finally
Image.Canvas.Unlock;
end;
end;
beim SampleGrabber hab ich schon div. Einstellungen (Major Type,SubType,FormatType) ausgetestet - leider ohne Erfolg.
hat jemand eine Lösung (Webcam hat 2048x1536x24bit) ?
Vielen Dank
Erich