CGI: passage par get d'une variable

**Nillak** · 23/01/2007, 18h53

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 :

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

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 :

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

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

**anapurna** · 23/01/2007, 19h16

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 :

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

**Nillak** · 23/01/2007, 19h27

Merci

je me suis cassé la tête dessus pendant un petit moment!
Pour ceux qui liraient ce post :

Code :

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

1
2
var
  st:String;

Code :

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

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

je passe à la méthode post

**anapurna** · 23/01/2007, 19h41

salut

attention pour le post y'a une feinte

c'est :

Code :

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

Request.ContentFields

au lieu de

Code :

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

Request.QueryFields

@+ Phil

Ps : y'a plus simple que

Code :

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

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

tu fait

Code :

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

Request.QueryFields.text

c'est un tstrings

**Nillak** · 23/01/2007, 20h21

oki

encore MERCI

CGI: passage par get d'une variable

Delphi

Discussions similaires

Partager

Partager