Einzelnen Beitrag anzeigen

WSpreter

Registriert seit: 15. Apr 2010
1 Beiträge
 
Delphi 7 Professional
 
#4

Re: Dspack 2.3.1 - WebCam - SampleGrabber

  Alt 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.
  Mit Zitat antworten Zitat