Emettre une requête vers un serveur HTTP pour récupérer des données MySQL mise en forme par PHP

Version imprimable

14/11/2020, 20h30
frantzgac

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é !
15/11/2020, 06h34
SergioMaster

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 :D

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:

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

17/11/2020, 10h47
frantzgac

Citation:

Envoyé par SergioMaster

.
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 :D

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 :

Citation:

WebBrowser1.OleObject.Document.Body.InnerText;