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;