|
Hola!!
No me da ningun error. El programa se ejecuta y comienza a grabar, sólo que a los 12 segundos sigue como grabando pero no graba y la imagen se queda pillada.
El código es muy sencillo:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
VLCommonLogger, VLAVILogger, VLCommonDisplay, VLImageDisplay, VLCapture,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
VLCapture1: TVLCapture;
VLImageDisplay1: TVLImageDisplay;
VLAVILogger1: TVLAVILogger;
procedure SourceButtonClick(Sender: TObject);
procedure StartButtonClick(Sender: TObject);
procedure StopButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SourceButtonClick(Sender: TObject);
begin
VLCapture1.ShowVideoSourceDialog();
end;
procedure TForm1.StartButtonClick(Sender: TObject);
begin
VLCapture1.Enabled := True;
end;
procedure TForm1.StopButtonClick(Sender: TObject);
begin
VLCapture1.Enabled := False;
end;
end.
Si pudieseis ayudarme o explicarme cómo trabajan las instrucciones como por ejemplo: "VLCapture1.Enabled := True;" os lo agradecería.
Muchas gracias.
Un saludo
|