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.