TWebResponse renvoi d'un TStringList à une page php

**curt25** · 06/05/2011, 14h54

Bonjour,

J'ai réalisé un web Service qui va interroger une application Delphi via le protocole TCP qui retourne une variable de type TStringList. Actuellement je renvoi une une page HTML via propriété ‘content’ du l’objet response.
Mais je voudrais renvoyer directement ma variable de type TStringList à une page php, est-ce possible ? Si oui comment ?
Voici actuellement ma procédure :

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
sResponse := TStringList.Create;
  IdTCPClient1.IoHandler.Capture(sResponse);
  if sResponse[3] = '3' then
  begin
      Response.Content:=
           '<HTML>'
         + '  <BODY>'
         + '    <H1>Impossible de calculer la route</H1><BR>'
         + '  </BODY>'
         + '</HTML>'
         ;
  end
  else
  begin
    Response.Content:=
           '<HTML>'
         + '  <BODY>'
         + '    <H1>- Distance :'+sResponse[0]+'</H1><BR>'
         + '    <H1>- Temps :'+sResponse[1]+' jours et '+sResponse[2]+' heures</H1><BR>'
         + '    <H1>- Erreur :'+sResponse[3]+'</H1><BR>'
         + '  </BODY>'
         + '</HTML>'
         ;
  end;

Merci pour votre aide.

**ShaiLeTroll** · 06/05/2011, 15h37

Non, tu ne peux pas en utilisant du HTML !
A la rigueur, tu peux envoyer dans un Champ Hidden de type TEXT ou LIST, soit le contenu de Text ou chaque Strings[], c'est de la totale bidouille

Tu devrais plutôt utiliser un WebService SOAP dans lequel tu définiras tes interfaces (WSDL)

Ou alors remplace ton HTML par un XML, une partie contenant des données à usage interne pour le PHP, une autre partie contenant le HTML

Tu es vraiment en TCP ? Response c'est typiquement TIdHTTP

**curt25** · 06/05/2011, 16h08

Merci pour la réponse, effectivement j'avais essayé la piste du web service SOAP avec les interfaces WSDL mais je ne suis pas aller bien loin, n'y comprenant pas grand chose ! Si tu as un petit exemple simple sur le sujet ?

Et oui je suis bien en TCP mais ce que je récupère c'est un TstringList à partir de la classe TIdTCPClient.

Merci pour ton aide en tout cas !

**ShaiLeTroll** · 06/05/2011, 16h37

Tu as évidemment lu l'article Services Web Delphi - John COLIBRI, il décrit le HTML et le SOAP, puis il montre un exemple de WebService !

A savoir que par défaut, un projet WS Server de Delphi fourni 4 méthodes d'exemples, c'est très pratique pour les débutants !
Ensuite en PHP, la WSDL générée par le WS Server permet de créer les pseudo objet de PHP (qui est plus souple que Delphi sur certains éléments mais très pénible sur d'autres, perso, je préférais NuSOAP de PHP4 que le Soap intégré de PHP5)

Du côté Delphi, il n'y a que des interfaces à coder, tu n'as même pas besoin de vraiment pigé le WSDL (ce qui devient sérieux lorsque l'on échange des énumérations ou des objets complexes qui vaut mieux forcer en encoded, delphi ne semblant par très efficace avec le literal)

Sinon, si tu discute en TCP\IP, que vient faire ce TWebReponse typiquement utilisé en ISAPI\CGI qui utilise HTTP comme protocol !

Je serais toi, je supprimerais tout notion de HTML de Delphi, je fournirais un XML au client PHP, ce dernier s'occupant de la partie fusion XML + HTML (via un XSD et XSLT par exemple)

TWebResponse renvoi d'un TStringList à une page php

Web & réseau Delphi

Vue hybride

Discussions similaires

Partager

Partager