Discussion :

[kournane]

Bonjour à tous;
Voici mon problème :
Je dois communiquer avec un service web (dont je ne suis pas le concepteur) pour envoyer une requête et recevoir la réponse. J'ai importé le fichier WSDL nécessaire mais je n'ai pas très bien compris l'organisation des classes.
J'ai les modèles xml de la requête et la réponse. Je cherche un moyen simple de recevoir le fichier xml réponse. Est-il possible de faire cela en utilisant un composant THTTPRIO seulement, si oui, j'aimerai juste avoir quelques éclaircissement sur la manière de le faire. Je vous remercie d'avance pour toute réponse ou aide.

[kournane]

J'ai paramétré Mon THTTPRIO avec l'URL, le service, le port et les autres infos du service web, puis j'ai mis le texte du fichier xml correspondant à la requête dans un TMEMO (Memo1).
Pour envoyer la requête, je clique sur un bouton dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button2Click(Sender: TObject);
var
Xml:TMemoryStream;
XmlRep:TStream;
begin
xml:=tMemorystream.Create;
Memo1.Lines.SaveToStream(xml);
XmlRep:=tmemorystream.Create;
xmlrep:=HTTPRIO1.HTTPWebNode.Execute(xml);
Memo2.Lines.SaveToStream(xmlrep);
end;

Je voulais récupérer le xml de la réponse dans Memo2, je n'ai pas de message d'erreur mais ça ne marche pas.
Avez vous une idée d'où proviens l'erreur ?
Merci d'avance.

[kournane]

Voici le vrai code en fait, il y avait une erreur à la dernière ligne que j'ai corrigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button2Click(Sender: TObject);
var
Xml:TMemoryStream;
XmlRep:TStream;
begin
xml:=tMemorystream.Create;
Memo1.Lines.SaveToStream(xml);
XmlRep:=tmemorystream.Create;
xmlrep:=HTTPRIO1.HTTPWebNode.Execute(xml);
Memo2.Lines.LoadFromStream(xmlrep);
end;

Mais ça ne marche toujours pas.

[tsuji]

Je ne travaille pas sur delphi et ses dérivés: je ne dis que au nom de sens common. Essayez-ceci ?

Code :

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

1
2
3
4
xmlrep:=HTTPRIO1.HTTPWebNode.Execute(xml);
xmlrep.Position := 0;
Memo2.Lines.LoadFromStream(xmlrep);
xmlrep.Free;

[kournane]

ça a marché, je vous remercie.