CGI: passage par get d'une variable

Version imprimable

Bonsoir,
je travaille avec EasyPhp2.0b1 et j'essaye de réaliser un simple petit programme cgi avec delphi (j'utilise les webbroker) qui récupère les variables passées par la méthode get (aprés j'essayerais par la méthode post).
html :
Code:

1 2 3 4 5 <form method="get" action="/cgi-bin/CGI_test_01.exe"> <br>UserName:<input type="text" name="UserName"> <br>PassWord:<input type="password" name="PassWord"> <br><input type="submit" value="Submit"> </form>
delphi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Writeln('Content-type: text/html'); Writeln; Writeln('<html><head><title>CGI_test_01</title></head><body>'); Writeln('Hello World !<br />'); { Méthode GET ou POST } Writeln('REQUEST_METHOD = ',GetEnvironmentVariable('REQUEST_METHOD'),'<br />'); { Pour la méthode GET } if GetEnvironmentVariable('REQUEST_METHOD')='GET' then Writeln('QUERY STRING = ',GetEnvironmentVariable('QUERY_STRING')); Writeln('</body></html>'); end;
Seulement voilà je ne reçois pas le résultat espéré :
Résultat :

Hello World !
REQUEST_METHOD = GET
QUERStatus: 200 OK Content-Type: text/html Content: Y STRING = UserName=sd&PassWord=s
Pourquoi j'ai cette ligne qui apparait en plein milieu ??? :

Status: 200 OK Content-Type: text/html Content:

Pourriez-vous m'éclairer s'il vous plait ?
merci

salut

c'est la reponse du serveur apres avoir traité la reponse il envoi ce message

un petit truc tu peut utilise le webrequest pour connaitre le type
et utiliser le response pour ecrire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
   st := 'Content-type: text/html';
   st :=st+'<html><head><title>CGI_test_01</title></head><body>';
   st :=st+'Hello World !<br />';
   if Request.MethodType in [mtPost] then
      st :=st+ 'REQUEST_METHOD = POST <br />'
   else 
   begin  
     st :=st+ 'REQUEST_METHOD = GET <br />';
     st :=st+Request.QueryFields;
  end;
    st :=st+'</body></html>';
  Response.content := st;
end;

@+ Phil

23/01/2007, 19h27
Nillak
Merci :lahola:
je me suis cassé la tête dessus pendant un petit moment!
Pour ceux qui liraient ce post :
Code:

1 2 var st:String;
Code:

1 2 3 st :=st+Request.QueryFields[0]; st :=st+Request.QueryFields[1];
Merci beaucoup Anapurna
comme tu t'en doutes j'en suis encore à mes balbuciments :bebe:
je passe à la méthode post ;)
23/01/2007, 19h41
anapurna
salut

attention pour le post y'a une feinte ;)

c'est :

Code:

Request.ContentFields

au lieu de

Code:

Request.QueryFields

@+ Phil

Ps : y'a plus simple que
Code:

1 2 3 Request.QueryFields[0] Request.QueryFields[1]
tu fait

Code:

Request.QueryFields.text

c'est un tstrings
23/01/2007, 20h21
Nillak

oki ;) encore MERCI