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

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    juillet 2004
    Messages
    395
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2004
    Messages : 395
    Points : 193
    Points
    193
    Par défaut Emettre une requête vers un serveur HTTP pour récupérer des données MySQL mise en forme par PHP
    Bonjour

    Dans la cadre d'un projet d'études universitaire j'accède à une base de données hébergée chez un FAI au travers de fichiers PHP.
    Le but est de permettre à des étudiants développant sur mobile d'interagir avec une base distante.
    Mais mon job est d'accéder sur PC en delphi aux données manipulées par les applications mobiles.

    Je teste les unités PHP par des commandes manuelles dans un navigateur Web pour les mettre au point.

    Si j'ouvre un TWebBrowser dans Delphi je peux récupérer des données par WebBrowser1.OleObject.Document.Body.InnerText;
    Mais le WebBrowser interprète les données reçues puisque c'est son rôle.
    Comment ouvrir le fichier PHP sur le serveur HTTP et recevoir intégralement les données émises par l'unité PHP sans traitement local ?
    Je pense qu'il existe des composants permettant cette fonction mais je nage un peu au milieu des composants Indy ou autre WebSnap ...

    C'est vraiment une question de néophyte en programmation Web, désolé !

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    12 709
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 12 709
    Points : 34 291
    Points
    34 291
    Billets dans le blog
    52
    Par défaut
    Bonjour,

    Tout va dépendre de la version de Delphi que vous avez et de ce que fournissent vraiment les unités PHP.
    S'il s'agit de données au format JSON et d'un version récente (XE5+) l'outil RESTDebugger va vous être d'un grand secours, cherchez ensuite toute documentation/video Delphi REST.
    Sinon effectivement idHTTP (GET, POST) pourrait être une solution.
    Maintenant vous parlez de documents là, je suis moins sûr de moi, je me penche actuellement un peu sur le sujet entre mes diverses et nombreuses occupations donc c'est un sujet que je vais suivre avec attention
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio, Sidney) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    juillet 2004
    Messages
    395
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2004
    Messages : 395
    Points : 193
    Points
    193
    Par défaut
    Bonjour
    les unités PHP retournent du JSON validé par https://codebeautify.org/jsonviewer
    J'ai Delphi 7 (très inférieure à XE5 donc) et XE7 (Rad Studio 10 Seattle) que j'utilise moins car beaucoup plus lourde.
    Je note donc IdHTTP.
    Je viens de le tester avec le code ci-après et ça fonctionne parfaitement.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    procedure TForm1.DownloadHTTP(const AUrl : string; out DestStream: TStream);
    begin
      with TIdHTTP.Create(Application) do
      try
        try
          Get(AUrl, DestStream);
        except
          on e: Exception do
            MessageDlg(Format('Erreur : %s',[e.Message]), mtInformation, [mbOK], 0);
        end;
      finally
        Free;
      end;
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Fs : TFileStream;
    begin
      Fs := TFileStream.Create('c:\temp\test.txt', fmCreate);
      try
        DownloadHTTP('<URL>', TStream(fs));
      finally
        Fs.Free;
      end;
    if fileexists('c:\temp\test.txt') then Label1.caption:='Ok' else Label1.caption:='Hélas';
    end;
    Merci

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    juillet 2004
    Messages
    395
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2004
    Messages : 395
    Points : 193
    Points
    193
    Par défaut
    Citation Envoyé par SergioMaster Voir le message
    .
    Maintenant vous parlez de documents là, je suis moins sûr de moi, je me penche actuellement un peu sur le sujet entre mes diverses et nombreuses occupations donc c'est un sujet que je vais suivre avec attention
    Je n'ai pas parlé de document, sauf à considérer la manière de récupérer les données reçues dans le WebBrowser :
    WebBrowser1.OleObject.Document.Body.InnerText;

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

Discussions similaires

  1. Réponses: 0
    Dernier message: 12/12/2017, 19h34
  2. Réponses: 3
    Dernier message: 14/12/2015, 12h09
  3. [2008R2] Une requête vers un serveur lié cause l'arrêt du service SQL SERVER.
    Par Kropernic dans le forum Administration
    Réponses: 13
    Dernier message: 26/05/2014, 09h01
  4. Réponses: 3
    Dernier message: 12/06/2008, 16h03
  5. Requête HTTP pour récupérer des quotations.
    Par Pierre8r dans le forum Développement Web en Java
    Réponses: 2
    Dernier message: 18/01/2008, 16h41

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