Fmx: VideoCaptureDevice Framerate

[Michael II]

Hallo Rollo

ich habe den von dir geposteten Code laufen lassen unter Windows 10 / Seattle / FMX mit der im Notebook eingebauten WebCam - (Prozessor: i7-3632QM).

Bei mir läuft das Beispiel flüssig mit 30fps, was wohl genau dem Wert entspricht, den die Kamera auch liefert.

Für die Ermittlung der fps habe ich diesen (sehr einfachen) Counter verwendet:

Delphi-Quellcode:

var lcounter : integer = 0;
    counter : integer = 0;
    ltim : DWORD = 0;

function fps : integer;
var gtc : DWORD;
begin
  inc( counter );
  gtc := TThread.GetTickCount;
  if ltim div 1000 <> gtc div 1000 then
  begin
    ltim := gtc;
    lcounter := counter;
    counter := 0;
  end;

  Result := lcounter;
end;

 procedure TForm21.EvOnSampleBufferReady(Sender: TObject; const ATime: TMediaTime);
 begin
   FCapVideo.SampleBufferToBitmap( Image1.Bitmap, True);
   label1.Text := inttostr( fps );
 end;