Image de webcam vers un avi

Salut@ tous

voila, j'ai écrit une petite application qui utilise le composant tcamera pour travailler avec une webcam
Ce qu'elle fait pour l'instant, elle permet l'enregistrement d'une image sur clique d'un bouton et un autre permet d'enregistrer une image toute les X seconde du style auto1.jpg auto2.jpg....

Je souhaiterais construire une vidéo a partir de ces images, et pourquoi pas le faire à la volée.
Un clique permet de créer un fichier mjpeg et toute les x secondes, la frame courante est ajoutée au fichier...
Je débute en Delphi . Quelqu'un pourrais m'expliquer comment faire? quel composant gratuit utiliser?
Source actuel:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Camera;

type
  TTabImage = Array[0..230399] of byte;


type
  TForm1 = class(TForm)
    Camera1: TCamera;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  num : Integer;
  rnum : Integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
p : ^TTabImage;
begin
  Camera1.Actif:=True;
  New(p);
  num := 0;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Camera1.FichierImage := '';
  num := num + 1;
  Camera1.FichierImage := 'MAsterC'+IntToStr(num)+'.jpg';
  Camera1.CaptureImageDisque;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   Timer1.Enabled := True;
    Label1.Caption := 'Activé';
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  Camera1.FichierImage := '';
  num := num + 1;
  Camera1.FichierImage := 'Auto'+IntToStr(num)+'.jpg';
   Camera1.CaptureImageDisque;
end;


end.

D'avance merci

salut,
je viens de déposer une source :http://www.delphifr.com/codes/VIDEOSURVEILLANCE-A4-CAMERAS-ENVOI-EMAIL-APPEL-TELEPHONIQUE_37687.aspxou
ou j'utilise un composant sous directx beaucoup plus puisant que TCamera il te permettras d'enregistrer  des séquences videos de  faire des capture  en Jpeg....
le composant ainsi de directdraw sont dans le zip

@+
jlen

Salut,

Tu ne peux pas passer d'un fichier image à un fichier video. Tu peux fusionner des fichiers bmp en un seul puis te promener dans ce fichier pour lire une photo. En utilisant un timer tu peux alors faire une sorte de film. Ayant tenté de réaliser un tel soft, je peux te dire que c'est assez hard (un bon niveau initié). Personnelement j'ai été confronté à un problème au niveau des streams qui est resté sans solution.

Si tu utilises le composant TCamera, tu peux réaliser une capture video en avi, directement. Maintenant le composant que te propose JLen est bien plus puissant que TCamera et je te le conseille

Voila

@+

Si si, y a des composants qui permettent la capture frame by frame (genre 1 image/seconde) et qui te génèrent des AVI avec. Le problème étant de maitriser la structure d'un AVI, pour le construire par code image par image.

+1 le compo de Jlen est tres bon.

je précise quand même que le compo TVideocapture n'est pas de moi

@+
jlen

petite précision concernant le composant Tcaméra , qui viens le l'API AVICAP c'est d'être totalement aveugle si l'image est masquée ce qui peut être gênant dans certains cas. Son avantage étant d'être moins gourmand en ressources que les appels à DirectX (C'est d'ailleurs la raison pour laquelle le compos de captures ont eu du mal à s'imposer malgré leurs performancea bien supérieures)

@+
jlen

En réponse à DeltaFX,

Je me suis peut etre mal exprimé : je voulais dire qu'il ne suffit pas de fusionner des bmp ou jpeg puis changer l'extension pour obtenir un avi. Il faut créer la structure de l'avi. C'est un travail très complexe et qui n'est pas à la portée de tous.

@+

C'est exactement ce que je disais "Le problème étant de maitriser la structure d'un AVI, pour le construire par code image par image."