IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Utiliser la commande pour l'aperçu sur une photo qui est numérotée !


Sujet :

Delphi

  1. #1
    Membre expérimenté
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 425
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 425
    Points : 1 326
    Points
    1 326
    Par défaut Utiliser la commande pour l'aperçu sur une photo qui est numérotée !
    Bonjour à toutes et à tous,

    J'aimerai pouvoir utiliser l'aperçu de Windows Seven pour voir la dernière photo prise qui est numérotée.

    Pour une photo sans numéro soit "CamArriere.jpg" j'utilise ce code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    var
    fname, prevu, cheminbis : string;
    i : integer;
    begin
     
     
     fname := chemin + Edtitre2.text + '.jpg';
     
     prevu :='C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen ' + fname;
     
     ShellExecute(0,'open','rundll32.exe',pchar(prevu) ,nil, SW_SHOW);
    Et je vérifie ma photo.

    Par contre dans une autre application, j'utilise une numérotation type incrementation soit "CamArriere_20.JPG" ou "CamAvant_18.JPG" et la je ne vois pas la solution.

    Dans le cas d'une solution, merci d'avance.

    @+,

    cincap

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 858
    Points : 11 301
    Points
    11 301
    Billets dans le blog
    6
    Par défaut
    Si l'Edit donne la partie fixe du nom seulement, à toi de lister le répertoire et trouver quel nom de fichier a le dernier incrément pour l'afficher.
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre expérimenté
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    2 425
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : Belgique

    Informations forums :
    Inscription : Janvier 2006
    Messages : 2 425
    Points : 1 326
    Points
    1 326
    Par défaut
    @ tourlourou,

    merci de ta suggestion, entretemps j'ai utilisé la valeur de mon afficheur (Lindex.value) pour afficher la dernière photo prise et cela fonctionne avec le code présent au topic.

    Cela rejoint un peu ta suggestion.

    Je clôture ce topic et merci.

    @+,

    cincap

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Utiliser AVG pour un calcul sur une liste d'entité
    Par VirgApps dans le forum Langage SQL
    Réponses: 3
    Dernier message: 01/10/2014, 14h46
  2. Je bute sur une requête qui est, a priori, simple.
    Par WinNew dans le forum Requêtes
    Réponses: 2
    Dernier message: 10/07/2010, 12h51
  3. Réponses: 7
    Dernier message: 01/09/2007, 15h27
  4. Err $251E avec le BDE... pour un prog sur une becane...
    Par Harry dans le forum Bases de données
    Réponses: 14
    Dernier message: 11/04/2006, 17h59
  5. [DELPHI6][MySQL 4.1.11] Pb pour se connecter sur une base My
    Par Desraux dans le forum Bases de données
    Réponses: 3
    Dernier message: 04/06/2005, 10h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo