Ouvrir Image [Résolu]

Signaler
Messages postés
53
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
22 février 2008
-
Messages postés
53
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
22 février 2008
-
Salut
J'ai un prob dans mon l'application un cour.

Voila quand je ouvre un image mon aplc la coup comment un tablaeu
Exemple je veu 10 decoupe dans l'image je fait (2 * 5);
la Tree bien
je eregistre les image découpes en form jpej ou jpg.
la tree bien
le prb c'est j'ai ouvre une image avec photoshop la rien a faire
pour qua.
Mairci

4 réponses

Messages postés
3840
Date d'inscription
dimanche 12 décembre 2004
Statut
Modérateur
Dernière intervention
19 février 2021
119
Essaie ceci:




Procedure ExporterImage(FormatImage:byte; const Chemin:String; Image: TBitmap);

var

ImageJPEG:TJPEGImage;

begin

Case FormatImage of

0 : Image.SaveToFile(Chemin);

1 : begin

ImageJPEG := TJpegImage.Create;

Try

ImageJPEG.CompressionQuality: =80;

ImageJPEG.Assign(Image);

ImageJPEG.SaveToFile(Chemin);

Finally

ImageJPEG.Free;

end;

end;

end;

end;
Messages postés
442
Date d'inscription
jeudi 4 avril 2002
Statut
Membre
Dernière intervention
11 août 2008

Jeux su y passur queu on puisse sau veu regarder lèzimage en jipègue avecdelphi

neodelphi
Messages postés
53
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
22 février 2008

oui avec SavePictureDialog regarde bien les ext c'est [*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf]

ancore merci
Messages postés
53
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
22 février 2008

c'est le code que j'ai employer mai je ne pas mit
sept ligne ImageJPEG.CompressionQuality:=80; Ok :-)

Mairci