maria
28 de Agosto del 2003

Hola,
Vereis estoy intentando enviar un xml a traves de sockets. El siguiente trozo de código carga un xml y a continuacion lo envia. El Client socket tiene las propiedades siguientes:
address := localhost/DPSwscm/LocalServlet donde se aloja la aplicacion que debe responder
port := 8080
host := localhost (utilizo tomcat)
Active := true

procedure TForm1.BSendRequestClick(Sender: TObject);
var
szXML : String;
st : TWinSocketStream;
begin

FDoc := TXMLDocument.Create(self);
FDoc.LoadFromFile('uploadRequest.xml');
szXML := Fdoc.XML.Text + #13#10 + #13#10;
with ClientSocket do
begin
Open;
Socket.SendText(szXML);
st := TWinSocketStream.Create(Socket, 2000);
szXML := '';
if st.WaitForData(9000) then
szXML := Socket.ReceiveText;
showmessage(szXML);
st.Free;
CLose;
end;
end;

El caso es que no me respode nada : - (((( alguien tiene idea de cual puede ser el problema????? o como puedo hacerlo?? He buscado ejemplos y lo hacen asi !!!

Gracias de antemano!!!!