Dspack 2.3.1 - WebCam - SampleGrabber

[erich.wanker]

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