VideoLab

[[BlueSteel]]

Hola carmelina...

bueno, de partida te pido que te des una vuelta por aquí....para que aprendas a usar códigos vB para dar formato al texto de tus mensajes

Asi tu codigo quedaría más o menos así

Código Delphi [-]
 
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.

Con respecto al componente.. primero deberia preguntar.. si tu webcam con el programa origina (drivers y cd de instalación) te permite realizar grabaciones por más de 12 segundos...

Nunca he utilizado dicho componente (que yo me acuerde...), pero si has seguido los pasos y no te funciona bien, puede ser por problema ajeno a tí...

Trate se buscar más información respecto al componente... a ver si puede ser algo que tengas mal... o por ultimo realiza un nuevo proyecto sencillo para descartar una configuración que hallas realizado y que no te acuerdas...

Paciencia.... ya verás que resultará...

Salu2