10 replies to this topic

[TMFV]

Hola amigos, he estado leyendo bastante desde otros foros y de este mismo foro temas parecidos pero no logro concretar en mi mente como solucionar este problema.

 

Resulta que estoy haciendo un cliente en delphi que consuma un web service:

http://..................s/input.asmx?wsdl

 

este debe ser consumido por medio de una funcion que recibe como parametro un xml, este xml me lo genera el wsdl de delhi así..

 

function  receiveRequest_Message(const xml_request: string): ArrayOfString; stdcall;

 

y este debe devolverme un mismo xml, el cual debo guardar como texto.

 

Pero mi experiencia con este tema es poca, no logro dar como obtener este xml_response.

 

Necesito ayuda de como podria salvar el xml de respuesta, agradezco su ayuda.

 

es poca la informacion que tengo, pido su orientación, por favor.

delphi

procedure TForm1.EnviarSolicClick(Sender: TObject);
var
  response: ArrayOfString;
begin
  Memo_xml_response.Clear;
  if(Memo_xml_request.Text <> '')then
   response:= (httprio_1 as GetInputSoap).receiveRequest_Message(Memo_xml_request.Text);
 
end;

Muchas gracias.

[egostar]

Hola Tatiana

 

Para guardar el request de un web service se debe utilizar el evento AfterExecute de HTTPRIO

 

Consulta éste hilo.

 

http://delphiaccess....cute#entry98228

 

Saludos

[TMFV]

Egostar Gracias.

[TMFV]

Egostar, tomando como referencia tu ayuda, y otras que encontré en la web, me gustaría compartirte e código que he ido construyendo y de las cuales he hecho uso de los componentes indy de delphi, use los eventos httprio_1AfterExecute y  httprio_1BeforeExecute, pero no me arrojo ninguna respuesta...

 

se con toda seguridad seguridad que no he aplicado algo correctamente en el código, por lo cual solicito vuestra ayuda.

aquí dejo colgado parte del código:

delphi

unit USysnetAPP;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Soap.InvokeRegistry,
  Soap.Rio, Soap.SOAPHTTPClient, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;
 
type
  TForm1 = class(TForm)
    Memo_xml_request: TMemo;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    EnviarSolic: TButton;
    Memo_xml_response: TMemo;
    httprio_1: THTTPRIO;
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    procedure Button1Click(Sender: TObject);
    procedure httprio_1BeforeExecute(const MethodName: string;
      SOAPRequest: TStream);
    procedure httprio_1AfterExecute(const MethodName: string;
      SOAPResponse: TStream);
    procedure EnviarSolicClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses input;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  //buscamos en el equipo
  if  OpenDialog1.Execute then
    Memo_xml_request.Clear;
    Memo_xml_request.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.EnviarSolicClick(Sender: TObject);
var
  wsdl: InputSoap;
  http: TIdHTTP;
  ssl: TIdSSLIOHandlerSocketOpenSSL;
  xmlRequest: TStringStream;
  xmlResponse: ArrayOfString;
  i: integer;
  dato, cadena: string;
begin
  xmlRequest:= TStringStream.Create(Memo_xml_request.Lines.Text);
  //preparamos la peticion requerida
  http:= TIdHTTP.Create(nil);
  ssl:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  ssl.SSLOptions.Method:= sslvSSLv3;
  http.IOHandler:= ssl;
  http.Request.ContentType:= 'text/xml';
  http.ConnectTimeout:= 100000;
  http.ReadTimeout:= 10000;
  try
    xmlResponse:= wsdl.receiveRequest_Message(Memo_xml_request.Text);
    http.Disconnect;
    //mostramos datos en memo - de arrayOfStrings to strings
    for I := Low(xmlResponse) to High(xmlResponse) do
      begin
        dato:= xmlResponse[I];
        cadena:= ' ' + dato;
      end;
      Memo_xml_response.Lines.Add(cadena);
  except on E: Exception do
    ShowMessage('ERROR SERVER: ' + E.Message);
  end;
    //liberamos de memoria a
    http.Free;
    ssl.Free;
    xmlRequest.Free;
end;
 
procedure TForm1.httprio_1AfterExecute(const MethodName: string;
  SOAPResponse: TStream);
{var
  arrStr: TStringStream;     }
begin
 { arrStr := TStringStream.Create('');
  try
    arrStr.CopyFrom(SOAPResponse, 0);
    SOAPResponse.Position:= 0;
    Memo_xml_response.Lines.Text:= arrStr.DataString;
  finally
    arrStr.Free;
  end;     }
end;
 
procedure TForm1.httprio_1BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
 { var
  req: TStringStream; }
begin
 { req:= TStringStream.Create('');
    req.LoadFromStream(SOAPRequest);
  Memo_xml_request.Lines.Text:= req.DataString;  }
end;
 
end.

[egostar]

Hola Tatiana

 

Veo que agregaste los eventos y el componente, pero no veo donde lo estás usando, en un tiempecito que tenga mas tarde veré mas a detalle tu código e intentaré ayudarte.

 

Saludos

[TMFV]

mil gracias, egostar.

[egostar]

Hola Tatiana

 

Asumo que tu código funciona y envía la petición al webService y obtiene una respuesta, pero algo me está faltando para entender el proceso.

 

¿Que probabilidades hay de que nos muestres la unidad input.pas ?

 

Saludos

[TMFV]

Claro que sí: ...

Por PM

[egostar]

Hola Tatiana

 

Adjunto encontrarás un pequeño proyecto para que lo ejecutes y veas si es lo que necesitabas, solo agrega la unidad INPUT.PAS al mismo y listo.

 

Espero te ayude, saludos.

Attached Files

•  ws-delphiaccess.png   23.01KB   14 downloads
•  WS-DelphiAccess.rar   87.23KB   67 downloads

[egostar]

Tambien dejo por aquí el código usado.
 
 

delphi

implementation
 
 
{$R *.dfm}
 
 
uses input;
 
 
procedure TForm2.Button1Click(Sender: TObject);
var
  servicio: InputSoap;
  retorno: ArrayOfString;
  I: Integer;
begin
  MiRIO := THTTPRIO.Create(nil);
  //Asignamos los eventos BeforeExecute y AfterExecute al objeto MiRIO.
  MiRIO.OnBeforeExecute := BeforeExecute;
  MiRIO.OnAfterExecute := AfterExecute;
  //Asignamos los eventos BeforeExecute y AfterExecute al objeto MiRIO.
  servicio := GetInputSoap(false, '', MiRIO);
  retorno := servicio.receiveRequest_Message('Algo');   
  for I := 0 to length(retorno) do     
    mResult.Lines.Add(retorno[I]); 
end; 
 
procedure TForm2.AfterExecute(const MethodName: string;
   SOAPResponse: TStream); 
var
  arrStr: TStringStream; 
begin
  arrStr := TStringStream.Create('');   
  try     
    arrStr.CopyFrom(SOAPResponse, 0);     
    SOAPResponse.Position:= 0;     
    mResponse.Lines.Text:= arrStr.DataString;   
  finally     
    arrStr.Free;   
  end; 
end; 
 
procedure TForm2.BeforeExecute(const MethodName: string;
   SOAPRequest: TStream); 
var
  req: TStringStream; 
begin   
  req:= TStringStream.Create('');     
  req.LoadFromStream(SOAPRequest);   
  mRequest.Lines.Text:= req.DataString; 
end; 
 
end.

 
Saludos

[TMFV]

Egostar. muchas gracias. Ya reviso en unas horas que he estado ocupada con otras cosillas