Consumir WSDL desde Delphi
 

Saludos compañeros y amigos, requiero consumir el Web Service SOAP: http://181.176.170.150:555/ConsultaRUCDNI.svc?wsdl
El dato de entrada es <tem:ruc>10181594212</tem:ruc>
Requiero consumirlo desde Delphi y traer esas etiquetas en componentes TEdit
Agradezco la ayuda.

genera tu archivo .pas usando wdsl importer
luego puedes agregar ese achivo a tu aplicacion para usar sus funciones

aqui hay un ejemplo https://www.clubdelphi.com/foros/sho...=wsdl+importer

gracias x responder
 

Gracias por responder amigo, precisamente en el archivo .pas generado por el WSDL importer me sale un error: Project Code


Imagen: https://ibb.co/YRB1j5y


Muchas Gracias

Parece que se produce un error al generar el .PAS en la importación, con algo relacionado con el array (parámetro).
Basta con cambiar esto:

Código Delphi [-]
    procedure Set_foto(Index: Integer; const ATArray: TArray);

Por esto:

Código Delphi [-]
    procedure Set_foto(Index: Integer; const ATArray: TArray);

Lo mismpo en la implementación (tanto en la cabecera como en el interior de la función.
El fichero queda tal como te adjunto.

Parece que se produce un error al generar el .PAS en la importación, con algo relacionado con el array (parámetro).
Basta con cambiar esto:



Por esto:



Lo mismpo en la implementación (tanto en la cabecera como en el interior de la función.

El fichero queda tal como te adjunto.

Gracias Germán, usted como siempre demostrando calidad de caballero, un abrazo


Americo

te funcionó?
pudiste hacer las consultas?
al parecer a traves de la sunat ya no se puede, la rutina que yo tenia para "capturar" los datos segun el ruc ya no me funciona

hola
estuve revisando este post

el tema que aun no logro deducir, es como parsear el JSON

Código Delphi [-]
arr: ResponseSunat2;
  JSo: TJSONObject;
  JSOarray: TJSONArray;
  JSOValue: TJSONValue;
  _Codigo, _Periodo, _Fecha, _Opcion: string;
begin
  arr := GetIConsultaRUCDNI.GetBuscaRUC(Edit1.Text);

  // se recibe la informacion en formato JSON
  JSOarray := TJSONObject.ParseJSONValue(arr) as TJSONArray;

en la ultima linea me aparece el error

como puedo "capturar" la informacion que esta en la variable arr ???

investigando, y dandole muchas vueltas al asunto, descubri que puedo aceder a las propiedades de la clase ResposeSunat2 asi

Código Delphi [-]
arr := GetIConsultaRUCDNI.GetBuscaRUC(Edit1.Text);
  Label1.Caption := Format('%s', [arr._razonSocial]);

Espero que le sirva a alguien mas

pero tengo una consulta...
en lo que es busqueda de DNI, como puedo mostrar la foto?

Hola, [oscarac]

El manejo de la foto, se revisó en este post

Interesante, pero lo que aun lo logro invocar o deducir es como invocar a la funcion verFoto ??

verfoto ([_res._foto]) ?????

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var _res : ResponseReniec2;
_razon, _dir :string;
begin
  _res := GetIConsultaRUCDNI.GetBuscaDNI(Edit1.Text);
  _RAZON := Format('%s', [_res._primerApellido + ' ' + _res._segundoApellido + ' ' + _res._nombres]);
  _DIR := Format('%s', [_res._direccion]);
  StaticText1.Caption := _razon;
//  VerFoto ([_res._foto]);
end;

procedure TForm1.VerFoto(Foto: TArray< System.Byte >; Image: TImage);
  var
    AStringStream: TStringStream;
begin
  AStringStream := TStringStream.Create(StringOf(Foto));
  try
    AStringStream.Position := 0;
    Image1.Picture.Graphic.LoadFromStream(AStringStream);
  finally
    AStringStream.Free;
  end;
end;

la unidad JPEG esta incluida, estoy usando xe7


me aparecen este error
[dcc32 Error] Unit1.pas(42): E2010 Incompatible types: 'Byte' and 'System.TArray<System.Byte>'