Discussion :

[cincap]

Bonjour à toutes et à tous,

Petit problème que j'ai déjà rencontré souvent sans explication.

J'ai un composant TlisBox (listeimg), je charge 5 fichiers Bmp ou Jpg.

Je crée ma vidéo en fichier AVI et à la lecture, j'obtiens 4 images, la dernière semble perdue.

Peux importe le nombre d'images, la dernière n'est pas visible dans l'avi.

Voici mon code :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
procedure TForm1.BenregistrerClick(Sender: TObject);
var
x,y:integer;
Filename : String;
begin
 
avirecorder1.FPS:=fps.Value;
avirecorder1.Width:=longueur.Value;
avirecorder1.Height:=largeur.Value;
 
 
  AVIRecorder1.Filename := sd1.filename;
  FileName := ExtractFileName(sd1.filename);
 
if avirecorder1.CreateAVIFile(0) then
begin
 
p1.Maxvalue:=listeimg.Count -1; //Ma jauge
 
bmp.Width:=longueur.Value;
bmp.Height:=largeur.Value;
 
for x:= 0 to listeimg.Count -1 do begin
 
p1.Progress:=x;
 
 if Uppercase(ExtractFileExt(listeimg.Items.Strings[x]))='.JPG' then
 begin
 jpg.LoadFromFile(listeimg.Items.Strings[x]); 
 jpg.PixelFormat:=jf24Bit;          
 image1.Picture.Bitmap.Assign(jpg); 
 avirecorder1.AddAVIFrame(image1.Picture.Bitmap);
 
 end;
 
 if Uppercase(ExtractFileExt(listeimg.Items.Strings[x]))='.BMP' then
 begin
bmp.LoadFromFile(listeimg.Items.Strings[x]);
bmp.Canvas.StretchDraw(rect(0,0,longueur.Value,largeur.Value),bmp);
avirecorder1.AddAVIFrame(bmp);
 
end;
 
end;
avirecorder1.CloseAVIFile();
 
p1.Progress:=0;
 
end;
end;

Si quelqu'un avait une idée, merci d'avance.

@+,

Cincap

[cincap]

En effet, j'ai aussi besoin de savoir si il était possible d'afficher que le nom du fichier image et son extension lors d'une sélection multiselect.

Sinon pour un seul fichier, je connais :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFFilmImage.BAjouterListeClick(Sender: TObject);
Var
 Filename : String;
begin
 
 FileName := ExtractFileName(bdimage.FileName);
 listeimg.Items.Add(filename);
 
end;

Mais dans mon cas, j'ai aussi ceci lorsque je sélectionne plusieurs fichiers :

Code :

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

1
2
 
if MultiSelect.Checked then listeimg.Items.Assign(bdimage.Files);

Et avec ce code, j'ai forcément le chemin complet ce qui ne m'arrange pas.

Merci d'avance,

@+,

Cincap

[Aos]

hello,

1 question :
- Est ce que tu es sur que tu rentres le nombre de fois necessaire dans ta boucle ? (tu as qu'a faire un ShowMessage() en rentrant dans ta boucle pour en etre sur.

- Je sais pas s'il y a une fonction qui donne directement le nom du fichier mais sinon, la fonction monSplit() que j'ai posté ici fera largement ton affaire.

http://www.developpez.net/forums/d63...i/#post3764135

ton délimiteur est : '/' et tu affiches uniquement le dernier élément de la liste ainsi crée.

[cincap]

Bonsoir,

@ Aos, merci de ta réponse, mais je ne vois pas ou insérer ta fonction dans mon code :

Code :

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

1
2
 
if MultiSelect.Checked then listeimg.Items.Assign(bdimage.Files);

J'essayerai encore demain.

@+,

Cincap

[cincap]

Bonjour à toutes et à tous,

Concernant le problème de la vidéo, c'est ok en effet, cela se situait au niveau de l'emploi du codec DviX, donc le code est correct.

Sans compression, le fichier Avi affichait 4 Bitmaps et avec compression DivX, 3 Bitmaps.

Pourtant ces codecs ont été téléchargés sur le site DivX.

Par contre pour afficher que le nom avec son extension dans le Tlistbox avec une multisélection dans un TopenDialog, je cale toujours.

Pour ne pas vous faire perdre du temps, je vais cloturer ce topic.

Bon Week-end.

@+,

Cincap

[Aos]

Mauvaise idée de mettre RESOLU alors que ça l'est pas...
Ca va piéger les gens qui vont chercher la prochaine fois un problème similaire au tiens.
Bref.

Pour la fonction SPLIT, il suffit (je pense mais j'ai pas essayé) de faire

Code :

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

1
2
3
 
if MultiSelect.Checked then 
   listeimg.Items.Assign(monSplit(bdimage.Files,'\')[monSplit.count-1]);

A condition que bdimagine.Files soit bien un string, sinon tu le convertis en String avant de l'appeler, mais je pense bien que c'est un string.

[cincap]

@ Aos, Bonsoir,

Voila j'ai l'erreur suivante en utilisant la fonction :

Code :

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

1
2
3
 
if MultiSelect.Checked then 
   listeimg.Items.Assign(monSplit(bdimage.Files,'\')[monSplit.count-1]);

Code :

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

1
2
 
[Erreur] UnitFilmImage.pas(234): Types incompatibles : 'String' et 'TStrings'

Ne te tracasse pas trop.

De mon côté j'ai essayé des tas de trucs en multiselect.

@+,

Cincap

[Andnotor]

Cette fonction MonSplit ne peut pas fonctionner en l'état. Elle transforme simplement une chaîne en TStrings sans extraction.

Cincap, tu sais le faire avec un fichier, fait la même chose dans une boucle:

Code :

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

1
2
for i := 0 to bdimage.Files.Count -1 do
  listeimg.Items.Add(ExtractFileName(bdimage.Files[i]));

[cincap]

@ Andnotor, dis donc, j'avais essayé une boucle mais apparemment il me manquait un paramètre et avec tous les essais, complications à la compilation.

Décidément, c'est encore toi qui donne une excellente solution.

Je viens de tester et cela fonctionne logiquement

Merci à toi et à tous.

Je clôture ce topic.


@+,

Cincap