Accueil > Forum > > > > Récupérer le nom de l'image affichée dans un TPIcture
Récupérer le nom de l'image affichée dans un TPIcture
mardi 17 juillet 2007 à 17:32:14 |
Récupérer le nom de l'image affichée dans un TPIcture

Yil2201
|
Salut ! Voilà, le titre est bien explicite, je voudrais récupérer le nom de l'image ouverte dans un TPicture. Pas le nom, mais plutôt le chemin complet "C:/..../12.jpg" Merci, A+!
|
|
mardi 17 juillet 2007 à 18:29:28 |
Re : Récupérer le nom de l'image affichée dans un TPIcture
|
mardi 17 juillet 2007 à 20:29:10 |
Re : Récupérer le nom de l'image affichée dans un TPIcture

cincap
|
Bonsoir à toutes et à tous,
@ Yil2201, Foxi à raison, peut être ce code pourra t'aider.
op1 = TOpenPictureDialog
procedure TFTest.BTestClick(Sender: TObject); begin if op1.execute then Imagetest.picture.LoadFromFile(Op1.FileName); labeltest.caption := op1.FileName; end;
@+,
Cincap
[url]mailto:[/url]
|
|
mardi 17 juillet 2007 à 20:38:49 |
Re : Récupérer le nom de l'image affichée dans un TPIcture

Yil2201
|
Salut ! Merci pour l'OpenDialog, ça fonctionnera donc avec une partie de mon soft, mais l'autre partie chargeait les images depuis une liste ou depuis des aperçus ... contenus dans des TPictures ...
Merci, A+
|
|
mercredi 18 juillet 2007 à 08:43:17 |
Re : Récupérer le nom de l'image affichée dans un TPIcture

cincap
|
Bonjour à toutes et à tous,
@ Yil2201, même principe, quel est le composant utilisé pour ta liste, si c'est un TlistView, en mettant sa propriété sur "Vsreport" et en créant une colonne dénomée "Path" tu auras tous les chemins des images chargées dans ta ListView.
@+,
Cincap
[url]mailto:[/url]
|
|
mercredi 18 juillet 2007 à 18:27:23 |
Re : Récupérer le nom de l'image affichée dans un TPIcture

florenth
|
Réponse acceptée !
Ou plus souple, avec une petite variante du TStringList que voici :
TEnhancedStringList = class(TStringList) public function FindStringFromObject(AObject: TObject): string; end;
implementation
function TEnhancedStringList.FindStringFromObject(AObject: TObject): string; var I: Integer; begin Result := ''; for I := Count - 1 downto 0 do if Objects[I] = AObject then begin Result := Strings[I]; Exit; end; end;
Tu crée une variables globale FileNames: TEnhancedStringList que tu crée dans le OnCreate de la fiche. Ensuite, à chaque endroit où tu fais Picture.LoadFromFile(xxxxx) tu ajoute en dessous: FileNames.AddObject(xxxxxx, Picture)
Pour rechercher un nom de fichier de Pic, il suffit donc de faire FileNames.FindStringFromObject(Pic)
Et voila ! ++ Flo
|
|
jeudi 19 juillet 2007 à 10:01:31 |
Re : Récupérer le nom de l'image affichée dans un TPIcture

Yil2201
|
Salut.
Merci beaucoup, ça fonctionne !
A+
|
|
Cette discussion est classée dans : récupérer, image, affichée, tpicture
Répondre à ce message
Sujets en rapport avec ce message
Couleur moyenne d'une image [ par Paic_citron ]
Voila, j'aimerais récupérer la couleur moyenne d'une image, dans le but de réaliser un logiciel de Mozaik Art, c'est comme le Ascii Art, mais à la pla
ImageList ... Help ! ;-) [ par HEproduct ]
Bonjour, je voudrai stocker des images de trés petites tailles dans une image lit et récupérer les noms dans une list box. Après quoi l'utilisateur en
DETERMINER SI TPICTURE EST CHARGE AVEC UN GIF [ par VERTY ]
JE CHERCHE A SAVOIR COMMENT DETERMINER SI UNE IMAGE DECLAREE EN TPICTURE EST UN GIF.Var Image : Tpicture;LA SYNTAXE IF Image.graphic is TGIfimage ne f
Récupérer seulement le nom d'un fichier [ par ni69 ]
Le plus simple écolier sait maintenant des vérités pour lesquelles Archimède eut sacrifié sa vie... <br
Convertir texte en image [ par ludopika ]
Bonjour a tous,Je voudrais convertir un apercu de texte ( exemple avec rich edit) en image bitmap.J'ai essayé avec les memorystream et le clipboard ma
Delphi 6 - SQL Server 2000 - Format Image- [ par Matdes ]
Dans une table sql server 2000, j'ai une application qui met à jour une colone de type image(binaire).Via un programme delphi 6 je voudrais recuperer
contraste d image [ par valkyrie ]
bonjour a tous et a toutesje suis debutantje dois realiser une fonction graphique noir et blanc permettant de faire varier les niveaux de noir et de b
OCR : Courbes mathématiques avec ScanLine [ par delphi77 ]
Salut à ceux que ça intéresse :Je bosse en ce moment sur un OCR et je cherche quelqu'un qui a déjà rencontré le problème lié à la reconnaissance elle
faire défiler une grande image sur une TImage avec Scrollbar! [ par atupac1 ]
Bonjour, je suis en stage en allemagne.Problém:Je dessine des canvas sur un Timage, et comme l'image peut parfois dépasser la taille de la Form1, je
Timage et Tscrollbox [ par atupac1 ]
L'image est placée dans la scrollbox, et je veux faire défilertoute l'image avec les scrollbars. Le probléme est que en mettant autosize de l'image a
Livres en rapport
|
Derniers Blogs
[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg [MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|