Discussion :

[Coussati]

salut

j'ai fais une recherche et j'ai trouvé un post interessant :

http://www.developpez.net/forums/vie...&highlight=png

j'ai donc utilisé ceci :

AFFICHAGE DE L'IMAGE - Il suffit d'assigner la propriété Picture d'un TImage pour afficher l'image source :
Code:
...
Image1.AutoSize := True;
Image1.Picture.Assign(png);
...


or j'ai le msg d'erreur qui s'arrête sur mon "Image1.Picture.Assign(png);"

[Erreur] Unit1.pas(119): Types incompatibles : 'TPersistent' et 'TPNGObject'

je pense avoir tout fait

qqun peut m'aider ?

mon doe complet est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button3Click(Sender: TObject);
begin
png := TPNGObject.Create;
png.LoadFromFile('C:\image.png');
Image1.AutoSize := True;
Image1.Picture.Assign(png);
Image1.Picture.LoadFromFile(png);
end;

[Graffito]

Bonjour,

Ceci supprimera probablement l'erreur de compilation:

Code :

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

Image1.Picture.Graphic.Assign(png);

[Coussati]

non tjrs pas

[Erreur] Unit1.pas(118): Types incompatibles : 'TPersistent' et 'TPNGObject'

jai erreur sur ces 3 lignes là :

Image1.Picture.Graphic.Assign(png);
Image1.Picture.Assign(png);
Image1.Picture.LoadFromFile(png);

jai testé chacune toute seul et impossble de comiler

[neilbgr]

Désolé, j'ai pas Delphi sous la main, mais comme ceci :

Code :

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

 Image1.Picture.Graphic := png;

:

[neilbgr]

Je confirme (avec un Delphi sous la main ce coup-ci): ca fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.btn1Click(Sender: TObject);
var
  vPng: TPNGObject;
begin
  vPng := TPNGObject.Create;
  vPng.LoadFromFile('X:\www\Tests\test.png');
 
  img1.Picture.Graphic := vPng;
end;

[Coussati]

je ne comprends pas
je copie colle ce code et j'ai l'erreur :

[Erreur] Unit1.pas(140): Types incompatibles : 'TGraphic' et 'TPNGObject'

[Coussati]

jai recommencé le projet et now c bon
thx à tout le monde

[devyan]

Salut,

Si le composant PNG que tu as trouvé est implémenté de façon compatible, il devrait être possible de charger directement l'image dans un TPicture.
Pour ceci, il faut vérifier que le format est enregistré.

voir TPicture.RegisterFileFormat()