[DELPHI]: Scambio di messaggi XML tramite Post in HTTP

[crippo]

devo implementare uno scambio di messaggi xml tramite post http. ho utilizzato il metodo Post del componente IdHTTP. ma non mi ritorna nulla. c'è qualche proprietà particolare del componente che devo cambiare? grazie. se può servire sto utilizzando delphi7

[alka]

Originariamente inviato da crippo
devo implementare uno scambio di messaggi xml tramite post http. ho utilizzato il metodo Post del componente IdHTTP. ma non mi ritorna nulla. c'è qualche proprietà particolare del componente che devo cambiare?

Se non ti restituisce nulla, il problema potrebbe essere anche dovuto al server.

In quanto alle proprietà da impostare, per sapere se sono corrette è necessario che tu dica come le hai impostate, magari postando anche la porzione di codice che esegue il metodo Post.

Ciao!

[crippo]

ho risolto parte del problema, il messaggio xml arriva correttamente solo che ad ogni riga ci aggiunge il carattere "&"
esempio:
<?xml version="1.0" encoding="UTF-8"?>&
<Message id="test">&
<esempio code="1">&
</esempio>&
</Message>&


per toglierlo?

[crippo]

mi spiego meglio:
compongo il messaggio xml in una memo e poi utilizzo il metodo post:

memRisposta.Text := IdHTTP1.Post(url, memXml.Lines);

il problema è questo:
se sulla memo scrivo tutto su una riga funziona correttamente.

se su più righe mi aggiunge il carattere "&" alla fine di ogni riga.

vorrei mantenere il messaggio su più righe

[alka]

Se sei tu che spezzi le righe, posta il codice: forse c'è qualcosa che non va...

[crippo]

//uso questo componente per comporre il messaggio xml:
Var ADoc: TNativeXml;
begin
ADoc := TNativeXml.CreateName('Message');

ADoc.Root.WriteAttributeString('id','test');
ADoc.Root.WriteAttributeString('type','test');
ADoc.Root.WriteAttributeString('code','1');

with ADoc.Root.NodeNew('code2') do
begin
WriteAttributeString('code2','3456');
WriteString('startdate', data);
end;

ADoc.EncodingString := 'UTF-8';
ADoc.Utf8Encoded := False;
ADoc.XmlFormat := xfReadable;

//scrivo nella memo
memXml.Text := ADoc.WriteToString;

//post
memRisposta.Text := IdHTTP1.Post(url, memXml.Lines);