Items dans TlistBox

Version imprimable

Items dans TlistBox

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:

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

08/11/2008, 14h10
cincap

J'ai oublié l'autre question
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:

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:

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
08/11/2008, 18h42
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.
08/11/2008, 22h31
cincap

Je ne vois pas ou insérer la fonction !
Bonsoir,

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

1 2 if MultiSelect.Checked then listeimg.Items.Assign(bdimage.Files);
J'essayerai encore demain.

@+,

Cincap
09/11/2008, 10h28
cincap

Pour la vidéo, une explication !

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
09/11/2008, 14h48
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:

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.
09/11/2008, 16h57
cincap

Erreur avec la fonction
@ Aos, Bonsoir,

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

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

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
09/11/2008, 19h02
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:

1 2 for i := 0 to bdimage.Files.Count -1 do listeimg.Items.Add(ExtractFileName(bdimage.Files[i]));
09/11/2008, 22h44
cincap

Andnotor, mais bien entendu cela va de soit

@ 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 :lol:

Merci à toi et à tous. :yaisse2:

Je clôture ce topic.

@+,

Cincap