Discussion :

[PCMan]

Salut à tous...

Voilà, je souhaiterai réaliser un logiciel sous delphi qui me permette de créer une vidéo à partir d'une suite d'images...
J'ai déja fait des recherches un peu partout, dont sur ce forum, et je n'arrive pas à trouver réponse à mon problème.

J'ai trouvé un sujet identique au mien :
http://www.developpez.net/forums/viewtopic.php?t=221805
mais la source qui aurait pu m'aider n'est plus disponible...

Il semblerait que le plus facile serait d'utiliser l'api win32, quelqu'un a-t'il un exemple ?

Merci.

[Harvester]

Tu a le composant TAviWriter de Eliott Shevin qui permet de faire ceci, mais je n'ai jamais réussi à l'installer

[PCMan]

Merci bien de la réponse (qui a été ultra rapide en plus ), je vais essayé ça tout de suite...

En faisant une recherche sur Taviwriter, je suis tombé sur : http://delphipage.free.fr/genereravi.html (très intéressant)

Si quelqu'un connaît une autre méthode, elle serait quand même la bienvenue....

Merci encore


EDIT :
Je viens de tester ce composant, et malheurement, il y a une erreur quand je l'installe sous delphi 2005... snifffff.

[Archimède]

une routine élémentaire que j'ai trouvé pour animer quelques photos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure TForm1.FormCreate(Sender: TObject);
begin
PaintBox1.Align:=alclient;
image:=Tbitmap.Create;
image.Width:=clientwidth;
image.Height:=clientheight;
timer1.Interval:=200;
numero:=0;
trackbar1.Position:=timer1.interval;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dessine;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
timer1.Interval:=trackbar1.Position;
end;
 
Procedure TForm1.dessine;
begin
inc(numero);
case numero of
1:image.loadfromfile('C:\Documents and Settings\pro\Mes documents\Mes images\.......  .bmp);
2:image.loadfromfile(................);
3:image.loadfromfile(...........);
4:image.loadfromfile(...............);
5:image.loadfromfile(...........);
........
n: image.load.....
end;
if numero=n then numero:=0;
Paintbox1.Canvas.Draw(0,0,image);
end;

c'est amusant à réaliser, le + difficile c'est de trouver des photos de décomposition de mouvement. si tu as un site où en trouver, je suis preneur.

[PCMan]

Salut, ben en fait, ça, je sais déja y faire, merci quand même d'avoir répondu.
Ce que je cherche à faire, c'est de créer une vidéo à partir d'une suite d'images.

En ce qui concerne les sites de décomposition de mouvement, j'ai aucune idée où tu peu en trouver... désolé

[Archimède]

je me doute que beaucoup de monde s'est déjà essayer à ce genre de petite routine...de plus c'est bien pour un nombre limité d'images.
le plus difficile c'est de faire du 25 images/s.
le temps du timer n'est pas le même que celui de l'affichage à l'écran et
ça, c'est difficilement contournable.
a+
merci à toi.

[lil_jam63]

Oriente toi du côté de Video for Windows, y'a une unité traduite par Jedi que tu pourras utiliser (vfw.pas)