Envoi d'un TidHttp.POST
Résolu
grandyaka54
Messages postés
97
Date d'inscription
vendredi 19 octobre 2007
Statut
Membre
Dernière intervention
18 décembre 2013
-
8 janv. 2009 à 10:30
grandyaka54 Messages postés 97 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 18 décembre 2013 - 9 janv. 2009 à 08:48
grandyaka54 Messages postés 97 Date d'inscription vendredi 19 octobre 2007 Statut Membre Dernière intervention 18 décembre 2013 - 9 janv. 2009 à 08:48
1 réponse
grandyaka54
Messages postés
97
Date d'inscription
vendredi 19 octobre 2007
Statut
Membre
Dernière intervention
18 décembre 2013
5
9 janv. 2009 à 08:48
9 janv. 2009 à 08:48
Bon, un bon début, j'arrive maintenant à bien envoyer mes informations. En faite, je lui envois un document xml...
Bout de code :
---------------
var
XmlReponse : TStringStream;
XmlDemande : TStringList;
adrUrl : String;
begin
adrUrl := 'http://' + adrServeur;
with frmMain.ConnectHttp do
begin
//Creation de la TStringList
XmlDemande := TStringList.Create();
try//1
//Chargement du fichier Xml dans XmlDemande
XmlDemande.Add('Ici mon document XML');
//Creation du fichier XmlReponse
XmlReponse := TStringStream.Create();
try//2
//Propriétés HTTP
ProtocolVersion := pv1_1;
IOHandler.Host := adrUrl;
IOHandler.Port := 80;
//Envoi du POST
Post(adrUrl,XmlDemande,XmlReponse);
//Traitement de la réponse
[...]
finally
XmlReponse.Free;
end;//2
finally
XmlDemande.Free;
end;//1
end;//with
Voilou !
Bout de code :
---------------
var
XmlReponse : TStringStream;
XmlDemande : TStringList;
adrUrl : String;
begin
adrUrl := 'http://' + adrServeur;
with frmMain.ConnectHttp do
begin
//Creation de la TStringList
XmlDemande := TStringList.Create();
try//1
//Chargement du fichier Xml dans XmlDemande
XmlDemande.Add('Ici mon document XML');
//Creation du fichier XmlReponse
XmlReponse := TStringStream.Create();
try//2
//Propriétés HTTP
ProtocolVersion := pv1_1;
IOHandler.Host := adrUrl;
IOHandler.Port := 80;
//Envoi du POST
Post(adrUrl,XmlDemande,XmlReponse);
//Traitement de la réponse
[...]
finally
XmlReponse.Free;
end;//2
finally
XmlDemande.Free;
end;//1
end;//with
Voilou !
