Discussion :

[Pascal Fonteneau]

Bonjour,

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

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

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

Pascal

[ouiouioui]

bonjour, moi j'utilise sa:

uses Wininet;

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
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;

[Pascal Fonteneau]

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

[Pascal Fonteneau]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Andnotor]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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');

[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