Appel et retour de script PHP depuis Delphi

Version imprimable

24/08/2009, 15h12
Pascal Fonteneau

Appel et retour de script PHP depuis Delphi

Bonjour,

Je souhaite depuis Delphi appeler un script PHP avec un appel de ce style

http://www.monsite.fr/monscript.php?code="ABCDEF" :oops:

et en retour du script dans delphi recuperer un texte ou une variable exploitable.

J'espere avoir été clair, je ne sais pas trop comment m'y prendre

Merci :ccool:

Pascal

bonjour, moi j'utilise sa:

uses Wininet;

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
 
    PageDown             := DownAndReturnThis('http://www.ffddg.fr/fggg.php');
 
//pour télécharger un fichier sur Internet et le retourner sous forme de string
Function DownAndReturnThis(URL: String): String;
Const
  Agent = 'Check for update';
Var
  hFile, HInet: HINTERNET;
  Buffer:       Array[0..32767] Of Char;
  BufRead:      Cardinal;
  BufSize:      Cardinal;
Begin
  // on met le résultat vide si il y a une erreur
  Result := '';
  HInet  := InternetOpen(PChar(Agent), INTERNET_OPEN_TYPE_PRECONFIG, NIL, NIL, 0);
  If Assigned(HInet) Then
    Try
      //on essaye d'ouvrir l'adresse du fichier
      hFile := InternetOpenUrl(HInet, PChar(URL), NIL, 0, INTERNET_FLAG_RELOAD +
        INTERNET_FLAG_NO_CACHE_WRITE + INTERNET_FLAG_EXISTING_CONNECT +
        INTERNET_FLAG_NO_COOKIES, 0);
      //si on a réussi à l'ouvrir
      If Assigned(hFile) Then
        Try
          //on essaie de récupérer les données du fichier
          BufSize := SizeOf(Buffer);
          With TStringStream.Create('') Do
            Try
              While InternetReadFile(hFile, @Buffer, BufSize, BufRead) And (BufRead > 0) Do
                Write(Buffer, BufRead);
              //le résultat est le fichier téléchargé
              Result := DataString;
            Finally
              Free; //on libère l'élément qui a permet de stocker le téléchargement de fichiers
            End;
        Finally
          InternetCloseHandle(hFile);
        End;
    Finally
      InternetCloseHandle(hinet);
    End;
End;

24/08/2009, 19h29
Pascal Fonteneau

C'est pas exactement ca

Merci OUIOUIOUI pour cette réponse, mais ton code charge le fichier PHP dans une chaine dans le programme Delphi. ce que j'ai besoin, c'est d'executer le script PHP et recuperer le resultat dans delphi.

merci quand même
24/08/2009, 20h12
Pascal Fonteneau

un bou de code
J'ai trouvé QQchose qui fonctionne a peut pret . Mais si vousa avez mieux (protection des codes erreurs en retour) je suis preneur

Un composant TIDHTTP sur la fiche

et ce code
Code:

1 2 3 4 5 6 7 8 var retour : string; begin Idhttp1.get('http://wwww.monsite.com/mapage.php'); retour := Idhttp1.response; showmessage(retour); end;
24/08/2009, 23h11
Andnotor
Citation:

Envoyé par Pascal Fonteneau

J'ai trouvé QQchose qui fonctionne a peut pret

Ben tu trouveras pas mieux ;).
Mais si tu est aussi à l'origine du code php, tu peux faire précéder la réponse d'un code numérique (que tu testeras en Delphi) qui te permettera de valider ou non le résultat.
Code:

1 2 3 4 5 6 7 define('ERROR', '0', TRUE); define('SUCCESS', '1', TRUE); //Puis echo SUCCESS .'tes données'; //ou echo die(ERROR .'ton erreur');
25/08/2009, 09h57
Paul TOTH

deux remarques,

1) il n'est pas très compliqué d'invoquer un site web sans composant

2) Sub0 a déjà bossé sur la question de façon plus évoluée avec DelPHP