VideoLab

[[BlueSteel]]

Empezado por carmelina

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

Hola Carmelina...

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

Empezado por carmelina

Estoy desesperada porque siempre termino en un callejon sin salida y supongo que es porque soy muy torpe

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

[carmelina]

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

[[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