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/
@+

**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).

Besoin d'aide sur le composant TidhttpServer

Delphi

Vue hybride

Discussions similaires

Partager

Partager