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;