Besoin d'aide sur le composant TidhttpServer

**korntex5** · 09/01/2007, 16h28

Salut j'ai besoin d'une aide éclairée pour me permettre de faire un toute petite appliqui utilise le tidhttpserver

je souhaite en fait faire une page html avec soit un edit ou deux bouttons qui mer permettre de dire au serveur ihhttserver de me renvoyer une page html A ou une page html B

je supose que le composant en est capable.

avez vous des info ou du source la dessus?

un grand merci d'avance

**Sub0** · 09/01/2007, 21h21

Ceci ne correspondrait pas plus à ce que tu recherches par hasard ?

**korntex5** · 09/01/2007, 22h39

non fait non ça ne vas pas je veux aire un serveur http que je pourrais attaquer depuis internet explorer par exemple en se connectant à une page index.html par exemple

sur cette page je souhaite dans un premier temps avor un edit e un boutton
l'utilisateur écrit 1 ou 2 puis valide en cliquant sur le boutton

je ne sais pas comment mais le je pense que le boutton doit lancer un commande avec en paramètre la valeur de l'edit.

le idhttpserver doit alors lire la commande et renvoyer la page html 1 ou 2 à afficher par le client autrment dit internet explorer

je ne sais pas trop comment faire

**Sub0** · 09/01/2007, 23h44

il faut bien sûr spécifier l'IP du server dans tes urls.
Je ne peux pas t'en dire plus, j'utilise ICS. Mais je suppose qu'il ya aussi des exemples d'utilisation avec les composants Indy, non ?
Par contre, il n'ya pas grand chose dans la faq du forum à propos d'IdHttpServer et de son utilisation.

Bon courage.

**Jipété** · 10/01/2007, 07h29

Salut.
Bon, ben si on lit bien ce que tu as écrit,

en se connectant à une page index.html

sur cette page je souhaite dans un premier temps avor un edit e un boutton
l'utilisateur écrit 1 ou 2 puis valide en cliquant sur le boutton

, on va dire que c'est du html pur et dur et que ça n'a rien à voir avec du Delphi.
Enfin, il me semble...
Mes 2 cts,
--
jp

**Fabrice ROUXEL 1** · 10/01/2007, 08h55

Bonjour,

Jipété a écrit

on va dire que c'est du html pur et dur et que ça n'a rien à voir avec du Delphi

Eh oui!

Le formulaire de la page d'accueil transmet par la méthode post ou get le contenu des objets input text.

Tu récupéres les valeurs des inputs en javascript( ou via Ajax

) pour lancer l'une ou l'autre des pages web situées dans un répertoire du serveur.

Sinon Bob Swart a sûrement dû étudier ce compo.
http://www.drbob42.com/
@+

**korntex5** · 10/01/2007, 09h15

ok donc dans mon bouton de la page index.html je dois mettre ma commande post avec le contenu de l'edit, je sais pas encore faire mais j'ai compris

Mais comment le serveur va, dès réception de cette commande, faire pour renvoyer au client internet explorer la page html?

il doit envoyer la page? son adresse ? une commande qui le redirige vers la page html voulue?

**Jipété** · 10/01/2007, 09h20

Et si tu postais ta question sur un forum html ? Ou Javascript ?

--
jp

**Rayek** · 10/01/2007, 09h21

Code de la page qui va appeler le serveur Http

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulaire</title>
</head>

<body>
<p align="center"><big><b><u>Formulaire de saisie standard </u></b></big></p>

<form name="form1" method="Get" action="http://192.168.1.5:10000">
  <fieldset id="info1">
    <legend>Test</legend>
    <table width="400"  border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="30%" height="28">
          <div align="left">
            code (1 ou 2) :
          </div>
        </td>
        <td width="70%" height="28">
          <div align="left">
            <input name="lecode" type="text" id="lecode" value="">
          </div>
        </td>
      </tr>
    </table>
  </fieldset>

  <p align="center">
    <input type="submit" name="Button" value="Envoyer" onClick="this.disabled=true;">
  </p>
</form>
</body>
</html>

En rouge l'adresse Ip et le port doivent être modifiée pour indiquer le serveur que l'on appel

Dans le serveur IdHttpServer

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
 
procedure TfrmMain.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  i : integer;
  lst,lsttxt : TStringList;
  sTmp : String;
  sText : String;
begin
  if ARequestInfo.Params.Count > 0 then
  begin
    // récupération des paramètres
    lst := TStringList.Create;
    lsttxt := TStringList.Create;
    try
      for i := 0 to ARequestInfo.Params.Count -1 do
      begin
        Lst.Add(ARequestInfo.Params.Strings[i]);
      end;
 
      lsttxt.loadFromFile('MonHtmlReponse.htm');
      case StrToIntDef(lst.Values['lecode'],0) of
        1: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 1');
        2: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 2');
        else begin
         lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'On a dit 1 ou 2 !!!');
         end;
      end;         
 
      AResponseInfo.ContentText := lsttxt.text; // Le texte que l'on renvoi
      AResponseInfo.WriteContent; // on envoi le code html au browser appelant ^^
    finally
      lst.Free;
      lsttxt.free;
    end;
  end;
end;

Dans le fichier MonHtmlReponse.htm

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
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulaire</title>
</head>
 
<body>
<p align="center"><big><b><u>La reponse </u></b></big></p>
<br>
@MONTEXTE@
<br>
</body>
</html>

Voila la methode que j'utilise (le code a peut être des erreurs je n'ai aps testé ce que je t'ai ecrit mais c'est surtout pour que tu vois le fonctionnement global).

**korntex5** · 10/01/2007, 14h11

super ça marche j'ai juste corrigé la procédure 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  i : integer;
  lst,lsttxt : TStringList;
  sTmp : String;
  sText : String;
begin
  if ARequestInfo.Params.Count > 0 then
  begin
    // récupération des paramètres
    lst := TStringList.Create;
    lsttxt := TStringList.Create;
    try
      for i := 0 to ARequestInfo.Params.Count -1 do
      begin
        Lst.Add(ARequestInfo.Params.Strings[i]);
      end;
 
      lsttxt.loadFromFile(extractfilepath(application.exename)+'MonHtmlReponse.htm');
      case StrToIntDef(lst.Values['lecode'],0) of
        1: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 1', [rfReplaceAll]);
        2: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 2', [rfReplaceAll]);
        else begin
         lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'On a dit 1 ou 2 !!!', [rfReplaceAll]);
         end;
      end;
 
      AResponseInfo.ContentText := lsttxt.text; // Le texte que l'on renvoi
      AResponseInfo.WriteContent; // on envoi le code html au browser appelant ^^
    finally
      lst.Free;
      lsttxt.free;
    end;
  end;
end;

par contre comment faire pour que depuis un autre poste dans internet explorer je tombe sur la première page index.html ?

j'ai essayé: http:\\monip\index.html
mais sans résultat.....

y a t'il un évenement onconnect qui me permettrait de rediriger sur index.html?

**Rayek** · 10/01/2007, 14h34

Euh .. la joker

Je suis pas allé jusque la

Une idée comme ca :

Tu peux rajouter un paramètre (invisible qui te serviera de tag) afin d'identifier la page et l'action à faire.

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
 
 if ARequestInfo.Params.Count > 0 then
  begin
    // récupération des paramètres
    lst := TStringList.Create;
    lsttxt := TStringList.Create;
    try
      for i := 0 to ARequestInfo.Params.Count -1 do
      begin
        Lst.Add(ARequestInfo.Params.Strings[i]);
      end;
 
  case StrToIntDef(lst.Values['letag'],0) of
    1: // le choix 1
    2: // Le choix 2
    else
      // Affiche la page de garde index.htm
  end;
 
...

Tout cela en appelant avec le browser seulement http://IP

ort

A tester ^^

**korntex5** · 10/01/2007, 14h51

voila ce que j'ai fais mais ça marche pas l'évenement ne se déclenche plus lorsque je clique sur le bouton, autrement la page index elle s'affiche toujours bien

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
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  i : integer;
  lst,lsttxt : TStringList;
  sTmp : String;
  sText : String;
begin
  try
    lst := TStringList.Create;
    lsttxt := TStringList.Create;
    if ARequestInfo.Params.Count > 0 then
    begin
      // récupération des paramètres
      try
        for i := 0 to ARequestInfo.Params.Count -1 do
        begin
          Lst.Add(ARequestInfo.Params.Strings[i]);
        end;
 
          lsttxt.loadFromFile(extractfilepath(application.exename)+'MonHtmlReponse.htm');
 
          case StrToIntDef(lst.Values['lecode'],0) of
            1: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 1', [rfReplaceAll]);
            2: lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'T''as saisi 2', [rfReplaceAll]);
            else
            begin
             lsttxt.text := StringReplace(lsttxt.text ,'@MONTEXTE', 'On a dit 1 ou 2 !!!', [rfReplaceAll]);
             end;
          end;
      except
 
      end;
    end
     else
       lsttxt.loadFromFile(extractfilepath(application.exename)+'index.html');
    AResponseInfo.ContentText := lsttxt.text; // Le texte que l'on renvoi
    AResponseInfo.WriteContent; // on envoi le code html au browser appelant ^^
  finally
    lst.Free;
    lsttxt.free;
  end;
end;

**korntex5** · 10/01/2007, 14h56

d'ailleurs si je lance à la main index.html tout se passe bien on dirait que une fois que je suis passé par l'évenement in ne se déclenche plus correctement par la suite.

**Rayek** · 10/01/2007, 14h57

Fait voir le code de ta page index en récupérant les sources via le browser.

**korntex5** · 10/01/2007, 15h09

voila le code envoyé au client lorsque celui-ci tape http://10.234.92.90/

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulaire</title>
</head>

<body>
<p align="center"><big><b><u>Formulaire de saisie standard </u></b></big></p>

<form name="form1" method="Get" action="http://10.234.92.90:80">
<fieldset id="info1">
<legend>Test</legend>
<table width="400" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td width="30%" height="28">
<div align="left">
code (1 ou 2) :
</div>
</td>
<td width="70%" height="28">
<div align="left">
<input name="lecode" type="text" id="lecode" value="">
</div>
</td>
</tr>
</table>
</fieldset>

<p align="center">
<input type="submit" name="Button" value="Envoyer" onClick="this.disabled=true;">
</p>
</form>
</body>
</html>

et ça ça fonctionne mais dès que clique sur le bouton il se grise et puis plus rien, le serveur ne déclenche pas l'évenement rien ne se passe, mais isi je fait actualiser alors le serveur répond bien et me réaffiche la page index.html

**Rayek** · 10/01/2007, 15h13

Tu as tracé en pas à pas le serveur pour voir ce qu'il se passe ?

**korntex5** · 10/01/2007, 15h19

oui et il ne rentre pas dans l'évenement

mais comme je te l'aio dit si je lance le fichier index.html à la main depuis l'explorateur windows cela marche bien

on dirait que le pb est coté client

**korntex5** · 10/01/2007, 15h29

si je met à la main dans IE

Code :

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

http://10.234.92.90/?lecode=1&Button=Envoyer

le serveur répond

c'est donc bien le client qui n'effectue pas cette commande quand je clique

**Rayek** · 10/01/2007, 15h34

Je viens de tester et ca fonctionne nikel chez moi

**korntex5** · 10/01/2007, 15h37

comprend pas voici mon projet

sinon j'ai ie7 mais bon je pense pas que ce soit ça

Besoin d'aide sur le composant TidhttpServer

Delphi

Discussions similaires

Partager

Partager