Consumir WSDL desde Delphi

[darkamerico]

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.

[[oscarac]]

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

[darkamerico]

Empezado por oscarac

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 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

[Neftali [Germán.Estévez]]

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.

[Neftali [Germán.Estévez]]

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 PHP:

    procedure Set_foto(Index: Integer; const ATArray<System.Byte>: TArray<System.Byte>); 


Por esto:

Código PHP:

    procedure Set_foto(Index: Integer; const ATArray: TArray<System.Byte>); 


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.

[darkamerico]

Empezado por Neftali [Germán.Estévez]

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 PHP:

    procedure Set_foto(Index: Integer; const ATArray<System.Byte>: TArray<System.Byte>); 


Por esto:

Código PHP:

    procedure Set_foto(Index: Integer; const ATArray: TArray<System.Byte>); 


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

[[oscarac]]

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

[[oscarac]]

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

[dcc32 Error] Unit1.pas(46): E2250 There is no overloaded version of 'ParseJSONValue' that can be called with these arguments

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

[[oscarac]]

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?

[[movorack]]

Hola, [oscarac]

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

[[oscarac]]

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>'