Ouvrir Image

Résolu
adec0127 Messages postés 53 Date d'inscription samedi 7 août 2004 Statut Membre Dernière intervention 22 février 2008 - 29 juil. 2005 à 11:17
adec0127 Messages postés 53 Date d'inscription samedi 7 août 2004 Statut Membre Dernière intervention 22 février 2008 - 29 juil. 2005 à 16:27
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

cptpingu Messages postés 3835 Date d'inscription dimanche 12 décembre 2004 Statut Modérateur Dernière intervention 1 novembre 2022 124
29 juil. 2005 à 16:04
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;
3
neodelphi Messages postés 442 Date d'inscription jeudi 4 avril 2002 Statut Membre Dernière intervention 11 août 2008
29 juil. 2005 à 15:08
Jeux su y passur queu on puisse sau veu regarder lèzimage en jipègue avecdelphi

neodelphi
0
adec0127 Messages postés 53 Date d'inscription samedi 7 août 2004 Statut Membre Dernière intervention 22 février 2008
29 juil. 2005 à 15:26
oui avec SavePictureDialog regarde bien les ext c'est [*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf]

ancore merci
0
adec0127 Messages postés 53 Date d'inscription samedi 7 août 2004 Statut Membre Dernière intervention 22 février 2008
29 juil. 2005 à 16:27
c'est le code que j'ai employer mai je ne pas mit
sept ligne ImageJPEG.CompressionQuality:=80; Ok :-)

Mairci
0
Rejoignez-nous