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

Langage Delphi Discussion :

Comment lire les specifications d'un fichier Jpeg ?


Sujet :

Langage Delphi

  1. #1
    Guy
    Guy est déconnecté
    Nouveau Candidat au Club
    Inscrit en
    Avril 2002
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Avril 2002
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Comment lire les specifications d'un fichier Jpeg ?
    Comment retrouver les informations "Resolution", "Height" et "Width" des fichiers Jpeg (ou jpg) avec Delphi 6.0 Pro ?

    J'arrive à retrouver les "Height" et "Width" en chargeant le fichier dans une Timage, mais pour ce qui est de la résolution (nombre de pixel/inch ou cm) dur dur ??

  2. #2
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    1 132
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 132
    Points : 1 418
    Points
    1 418
    Par défaut
    C'est très simple

    après avoir chargé l'image dans ton TImage, il suffit d'accéder directement à la propriété Graphic qui est l'objet qui contient "réellement" le fichier JPEG.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    procedure JPegProps;
    var
      JPegImage : TJPegImage; // C'est un dérivé de TGraphic nécessite un USES à JPEG.dcu
    begin
          JPegImage := TJPegImage(Image1.Picture.Graphic);
          // JPegImage.Scale ... sont maintenant disponibles
    end;


    devYan.

  3. #3
    Expert éminent
    Avatar de Lung
    Profil pro
    Analyste-programmeur
    Inscrit en
    Mai 2002
    Messages
    2 664
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-programmeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 664
    Points : 6 961
    Points
    6 961
    Par défaut
    Certe, mais comment accéder à la résolution ?
    Où est-elle ?

    L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. ___ Écrivez dans un français correct !!

    C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.3.2 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.1 Entreprise
    OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.4)

  4. #4
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    1 132
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 132
    Points : 1 418
    Points
    1 418
    Par défaut
    Citation Envoyé par Lung
    Certe, mais comment accéder à la résolution ?
    Où est-elle ?

    En effet, il semble que cette propriété n'est pas renseignée (en tout cas, elle n'est pas documentée dans l'aide en ligne)

    Une solution qui me vient à l'esprit est d'ouvrir le fichier et d'en lire directement l'entête.

    le site suivant contient des docs sur un grand nombre de formats de fichiers différents : http://www.wotsit.org


    devYan.

  5. #5
    Expert éminent
    Avatar de Lung
    Profil pro
    Analyste-programmeur
    Inscrit en
    Mai 2002
    Messages
    2 664
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-programmeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 664
    Points : 6 961
    Points
    6 961
    Par défaut
    http://www.wotsit.org contient beaucoup de format, mais les explications sur le JPEG sont obscurs.

    Voilà une autre page interressante :
    http://www.obrador.com/essentialjpeg/HeaderInfo.htm

    L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. ___ Écrivez dans un français correct !!

    C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.3.2 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.1 Entreprise
    OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.4)

  6. #6
    Membre expérimenté
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    1 132
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 132
    Points : 1 418
    Points
    1 418
    Par défaut
    Citation Envoyé par Lung
    http://www.wotsit.org contient beaucoup de format, mais les explications sur le JPEG sont obscurs.

    Voilà une autre page interressante :
    http://www.obrador.com/essentialjpeg/HeaderInfo.htm

    Je ne le connaîssait pas celui-ci ...

    Je vais voir et le garder dans mes tablettes si il est intéressant

    Merci Lung


    devYan.

Discussions similaires

  1. [AC-2010] Comment lire les propriétés d'un fichier Accdb en VBA ?
    Par Daejung dans le forum VBA Access
    Réponses: 8
    Dernier message: 07/02/2012, 20h49
  2. [Qt WebKit] Comment lire les fichiers JS d'une page c?
    Par GoldenEyes dans le forum Moteurs Web
    Réponses: 23
    Dernier message: 16/06/2008, 18h09
  3. Comment lire les fichiers dont l'extension est .tex ?
    Par condor_01 dans le forum Ubuntu
    Réponses: 3
    Dernier message: 19/10/2007, 16h24
  4. Réponses: 3
    Dernier message: 31/01/2007, 17h46
  5. Réponses: 5
    Dernier message: 16/03/2005, 22h17

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