TOpenPictureDialog [Résolu]

Question

Posez votre question Signaler

TOpenPictureDialog [Résolu]

berlierb

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

- 29 mai 2009 à 11:30 - Dernière réponse : JulioDelphi

Messages postés: 2354
Date d'inscription: dimanche 5 octobre 2003
Dernière intervention: 18 novembre 2010

- 29 mai 2009 à 17:34

Delphi / Pascal Posez votre question Signaler

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

Votre réponse

Répondre au sujet

6 réponses

Signaler Commenter la réponse de JulioDelphi

JulioDelphi

Messages postés: 2354
Date d'inscription: dimanche 5 octobre 2003
Dernière intervention: 18 novembre 2010

- 29 mai 2009 à 11:51

0

Merci

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

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Dernière intervention: 3 août 2018

- 29 mai 2009 à 12:46

0

Merci

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

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

- 29 mai 2009 à 13:09

0

Merci

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

Signaler Commenter la réponse de JulioDelphi

JulioDelphi

Messages postés: 2354
Date d'inscription: dimanche 5 octobre 2003
Dernière intervention: 18 novembre 2010

- 29 mai 2009 à 14:07

0

Merci

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

Signaler Commenter la réponse de berlierb

berlierb

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

- 29 mai 2009 à 17:14

0

Merci

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 ?

Votre réponse

Répondre au sujet

Posez votre question

Accepted Answer

3

Merci

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 !

Merci JulioDelphi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

TOpenPictureDialog [Résolu]

Votre réponse

Votre réponse

Votre réponse

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 !