Hallo,
ich hab mir mal die Komponente Videolab für Delphi installiert.
Ich will ein Programm machen, was den Bildschirm aufnimmt.
Dass habe ich auch soweit hinbekommen, doch das Programm ist zu "langsam" ich hab die Framerate auf 30 gestellt. Doch leider nimmt es nicht so viele Frames auf.
Wie kann ich dem Programm mehr Leistung geben, damit es 30 Frames aufnimmt.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
VLAVILogger1.FileName := ExtractFilePath(ParamStr(0)) + 'text.avi';
if Button4.Caption = 'start' then
begin
VLScreenCapture1.Start;
//ALAudioOut1.Enabled := true;
VLAVILogger1.Enabled := true;
Button4.Caption := 'stop';
end
else
begin
VLScreenCapture1.Stop;
VLAVILogger1.Enabled := false;
//ALAudioOut1.Enabled := false;
VLAVILogger1.Close;
VLAVILogger1.Tag := 0;
Button4.Caption := 'start';
end;
end;
Ich benutze den VLScreenCapture und den VLAVILogger zum abspeichern, wie gesagt das funktioniet alles schon.
Viele Dank im voraus