TOpenPictureDialog [Résolu]

Question

Posez votre question Signaler Répondre au sujet

TOpenPictureDialog [Résolu]

berlierb 3 Messages postés mercredi 21 novembre 2007Date d'inscription 29 mai 2009 Dernière intervention - 29 mai 2009 à 11:30 - Dernière réponse : JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention

- 29 mai 2009 à 17:34

Delphi / Pascal Posez votre question Signaler Répondre au sujet

Bonjour,
Je suis totalement débutant en delphi, et j'aimerais simplement créer un programme qui visualise une image. Un bouton de recherche et un Timage pour l'afficher.

Est-ce que quelqu'un pourrait m'expliquer comment fonctionne le TOpenPictureDialog ? et me donner les éléments dont j'ai besoin pour réaliser ce petit programme ?

Merci.

Afficher la suite

6 réponses

Répondre au sujet

Signaler Commenter la réponse de JulioDelphi

JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention - 29 mai 2009 à 11:51

0

Utile

Salut
As tu fait "F1" sur le composant ? L'aide est complète la dessus ...
Aussi, tous les formats d'image ne sont pas supportés ni par le OpenDialog ni par le TImage (png, jpg etc ne sont pas gérés).
Tu vas donc devoir les gérer toi même avec des librairies externes.

Sinon pour démarrer tu peux faire :
1) Pose un TOpenPictureDialog
2) Pose un TImage, align Client
3) Poser un TPanel, Align Top ou Bottom. Supprimer son Caption.
4) Dans ce panel, pose un TButton, mets "Parcourir..." en caption, double clic dessus et mets :
if OpenPictureDialog1.Execute then
Image1.LoadFromFile(OpenPictureDialog1.FileName);

ça devrait deja faire quelquechose de sympa...

Signaler Commenter la réponse de Cirec

Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 29 mai 2009 à 12:46

0

Utile

Salut,

juste une petite précision au sujet de:
"Aussi, tous les formats d'image ne sont pas supportés ni par le OpenDialog ni par le TImage (png, jpg etc ne sont pas gérés)"

c'est vrai sauf pour la dernière version de Delphi (Delphi2009)
ou tous formats courant y sont supportés nativement par la VCL

pour les anciennes versions il faut utiliser des librairies externes comme la "PngLib" par exemple.

@+
Cirec

<hr siz="" />

Signaler Commenter la réponse de berlierb

berlierb 3 Messages postés mercredi 21 novembre 2007Date d'inscription 29 mai 2009 Dernière intervention - 29 mai 2009 à 13:09

0

Utile

Merci pour tout ! Tout marche. (J'ai delphi 2009)

Signaler Commenter la réponse de JulioDelphi

JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention - 29 mai 2009 à 14:07

0

Utile

Arf, je suis pardonné, mon avatar explique tout :]

Signaler Commenter la réponse de berlierb

berlierb 3 Messages postés mercredi 21 novembre 2007Date d'inscription 29 mai 2009 Dernière intervention - 29 mai 2009 à 17:14

0

Utile

Encore une petite question... En fait je suis entrain d'essayer de créer une interface pour ImageMagick. C'est un programme qui s'exécute à partir de ligne de commande.

Par exemple :
ShellExecute(Handle,'open', 'convert.exe','image1.jpg -resize 50% imagen_salida.png', nil, SW_SHOWNORMAL) ;

Cela convertit un .jpg en .png et au passage reduit la taille de 50%...

Ici l' "image1.jpg" devient "imagen_salida.png"

Maintenant
j'aimerais pouvoir remplacer image1.jpg par une variable... Pour que
l'utilisateur puisse choisir sa photo.( le nom de la photo est stocké
dans une variable.) Mais je ne sais pas quelle est la syntaxe pour inclure une variable entre deux ' ' au milieu d'une telle fonction...

Quelqu'un aurait la solution ?

Accepted Answer

+3

Utile

Le symbole + sert à concaténer :
Exemple :
var Chaine: string;
FPseudo: string;
FEntier: Integer;
...
FPseudo:= 'Julio';
FEntier:= '29';

Chaine:= 'Bonjour ' + FPseudo + ' !'; // depuis une variable string

Chaine:= 'Bonjour ' + IntToStr(FEntier) + ' !'; // depuis une variable integer castée en string

Chaine:= 'Bonjour ' + Edit1.Text + ' !'; // depuis un Edit
Chaine:= 'Bonjour ' + LowerCase(ComboBox1.Items[ComboBox1.ItemIndex]) + ' !'; // en minuscule depuis une combobox
etc etc

Pour toi :

ShellExecute(Handle, 'open', PChar('convert.exe'), PChar(
OpenPictureDialog1.FileName +
' -resize 50% imagen_salida.png'), nil, SW_SHOWNORMAL);

Il me semble que les PChar() sont fortement conseillés.

N'oublie pas le bouton "reponse acceptée" et n'hésite pas a créer 10 posts pour 10 questions afin que sujets correspondent au probleme !

Cette réponse vous a-t-elle aidé ? Oui Non

TOpenPictureDialog [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !