Registriert seit: 15. Apr 2010
1 Beiträge
Delphi 7 Professional
|
Re: Dspack 2.3.1 - WebCam - SampleGrabber
15. Apr 2010, 10:05
Hallo Erich, auch wenn deine Frage schon etwas her ist, vielleicht hilft dir das:
Ergänze Zeile 190 um:
CheckDSError(RenderStream(@PIN_CATEGORY_Capture , nil, VideoSourceFilter as IBaseFilter, nil, SampleGrabber as IbaseFilter));
und ändere:
procedure TVideoForm.SampleGrabberBuffer(sender: TObject; SampleTime: Double; pBuffer: Pointer; BufferLen: Integer);
Var BitMap:TBitMap;
begin
BitMap:=TBitMap.Create;
SampleGrabber.GetBitmap(Bitmap); // Geht nicht mit Buffer warum auch immer
Image1.Canvas.StretchDraw(Image1.Canvas.ClipRect,B itMap);
// oder natürlich auch BitMap.SaveToFile(....
BitMap.Free;
end;
probier dann nochmal.
|