VideoLab
 

Hola a todos!!!
Necesito hacer un programa que grabe con la webcam, y utilicé el tutorial videoLab que me recomendaron aqui, y al pricipio me fue genial, pero ahora se queda pillado el video y graba solo unos 12segundos y muy mal y no entiendo por qué. Si alguien puede darme una solucion para conseguir hacer el programa que necesito estaría muy agradecida. Tengo que decir que si alguien quiere ayudarme por favor que me ponga todos los pasos o me de el mayor numero de datos posibles porque estoy muy perdida.
Gracias.
Estoy desesperada porque siempre termino en un callejon sin salida y supongo que es porque soy muy torpe, por favor ayuda!!!!

Hola Carmelina...

Pero te da algun error cuan se queda "pillado".... podrias poner algo de código y así verificar si existe algo mal...

pero mija... como es eso de torpe.... no todos somos eruditos... nadie nace sabiendolo todo.... no tienes que ser tan cruel y tratarte así...


Salu2:p:D

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

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:p:D