About TIdHTTP

[IPOz]

Is the following code right ?

procedure TForm1.Button2Click(Sender: TObject);
const
URL = '

http://192.168.1.118:8080/imonitor/putXml.jsp';

var
ms : TMemoryStream;
hi : TIdHeaderInfo;
begin
if memo1.Text <> '' then
try
ms := TMemoryStream.Create;

hi.ContentType := 'text/xml';
IdHTTP1.Request := hi;

IdHTTP1.Post(URL,memo1.Lines,ms);
memo2.Lines.LoadFromStream(ms); // no response !
finally
ms.Free;
end;
end;
But i got nothing into memo2 !

Regards! ipo_z@cmmail.com
Garbage in,Garbage out