Yo he implementado algún que otro cliente de WebServices utilizando el componente HTTPReqResp de la paleta WebServices.
var
HTTPReqResp: THTTPReqResp;
Stream: TMemoryStream;
XMLEnvio: WideString;
begin
Stream := TMemoryStream.Create;
Stream.Clear;
HTTPReqResp := THTTPReqResp.Create(nil);
HTTPReqResp.InvokeOptions := [];
HTTPReqResp.Agent := 'Borland SOAP 1.2';
HTTPReqResp.URL := urlWebServices
//envias xmlEnvio y recibes un Stream:TMemoryStream
HTTPReqResp.Execute(xmlEnvio,Stream)
//Aquí tratas el stream
//****************************
HTTPReqResp.Free;
end;
Última edición por LauraAS fecha: 08-11-2007 a las 16:31:08.
|