Discussion :

[dragonno]

Bonjour, quelqu'un voit pourquoi ce code m'indique à l'éxecution : "image bitmap incorrecte" ?
J'ai Delphi 5.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCreate(Sender: TObject);
begin
  debut:=0;
  livre.Photo:='noir.jpg';
  img:=TBitMap.create;
  img.LoadFromFile('noir.jpg');
end;

Livre.Photo est un record mais cela n'a rien à voir avec l'erreur.
"noir.jpg" est dans le dossier du programme.

[evarisnea]

le TBitmap c'est pour une image Bitmap.
je ne sais pas si sous delphi 5 il y avait déjà la classe TJPEGImage qu'il faudrait utiliser pour charger un fichier jpg.
néalnmoins une recherche sur le net te permettra certainement de trouver un composant capable de charger du jpeg.

[dragonno]

Je te remercie
C'est effectivement le problème :/

EDIT :
J'ai une autre erreur cette fois en chargeant un bmp à la place du jpeg.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.couvertureClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    // Détermine quelle ligne du stringGrid est sélectionnée
    // place le nom de l'image dans le champ Photo du record.
    livre.Photo:=OpenPictureDialog1.FileName;
    // Affiche l'image
    couverture.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   // Ajoute l'image au TimageList.
    ImageList1.Add(couverture.Picture.Bitmap,Nil);
  end;
end;

Erreur : "Taille d'image incorrecte" à la ligne : ImageList1.Add....

L'image chargée, "noir.bmp" fait 8x8 pixels.
couverture est un TImage classique.

[dragonno]

Bizarre, l'instruction :

Code :

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

couverture.Picture.LoadFromFile(OpenPictureDialog1.FileName);

permet de charger un jpeg sans problemes pourtant.
Donc cela signifie que delphi 5 accepte le jpg pour charger le champ bitmap d'un Timage.

Pour ma première erreur (premier post) img est déclarée Tbitmap et j'essayais d'y charger un jpg donc erreur.

Par contre pour TimageList je vois pas pourquoi il m'indique une erreur de taille d'image, quelque soit le type bmp ou jpg.

[dragonno]

C'est bon j'ai résolu mon second probleme c'était juste la proprieté height du TlimageList que j'avais laissé par défaut à 16 pixels alors que l'image que je voulais charger est de 8 pixels.
Une erreur C.. en somme

[evarisnea]

Une erreur C.. en somme

ya des jours comme ça ...