Consumir Webservice

[darkerbyte]

Estoy probando un camino un poco diferente.
Ahora coloqué en mi form un componente de tipo tHTTPRIO y al que le di la dirección del WSDL y automaticamente obtuvo los siguientes parámetros:

converter: HTTPRIO1.Converter1
    -> options: [soSendMultiRefObj,soTryAllSchema,soRootRefNodesToBody,soCacheMimeResponse,soUTF8EncodeXML]
HTTPwebNode: HTTPRIO1.HTTPWebNode1
Name: HTTPRIO1
Port: ConexionRemota32Soap
Service: ConexionRemota32
WSDLLocation: https://www.fel.mx/ConexionRemotaCFDI32/ConexionRemota32.asmx?WSDL

Y modifiqué el método así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 resultado, usuario : ArrayofString;
 i : integer;
 fel : ConexionRemota32Soap;
begin
 i:=0;
 SetLength(usuario,3);
 usuario[0]:='DEMO320024FEL';
 usuario[1]:='DEMO320024FEL';
 usuario[2]:='Link2801$';
 SetLength(resultado,1);
 resultado := (HTTPRIO1 as ConexionRemota32Soap).ObtenerNumeroCreditos(usuario);
 Memo1.Lines.Add(resultado[0]);
end;

Ahora, cuando lo ejecuto me manda este error:

Project Fel.exe raised exception class EREmotableException with message 
'Server was unable to process request. --->
 Object reference no set to an instance of an object'
Process stoped. Use Step or Run to continue

Si mi hipótesis no es incorrecta, ya se esta conectando al servidor pero el servidor esta regresando un error.
Pero no se si el error es mío por mandale parámetros incorrectos en la llamada del método ó estoy haciendo otra cosa mal.

Gracias de nuevo por su ayuda

[CSIE]

Sería algo como así

Código Delphi [-]
var
 fel : ConexionRemota32Soap;
 resultado, usuario : ArrayofString;
begin
   fel := GetConexionRemota32Soap(true, '', nil);
   SetLength(usuario,3);
   usuario[0]:='DEMO320024FEL';
   usuario[1]:='DEMO320024FEL';
   usuario[2]:='Link2801$';
   resultado := fel.ObtenerNumeroCreditos(usuario);
   if High(resultado) > 0 then
      Memo1.Lines.Add(resultado[0]);
end;

[edorantes]

Me mada este error
les dejo la url

s3.subirimagenes.com:81/imagen/previo/thump_8127733error.png

Alguna idea
intente con esto

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
var
 
 resultado, usuario : ArrayofString;
 
 i : integer;
 
 fel : ConexionRemota32Soap;
 
 
 
begin
 
 i:=0;
 
 SetLength(usuario,3);
 
 usuario[0]:='DEMO323416FEL';
 
 usuario[1]:='DEMO323416FEL';
 
 usuario[2]:='Link2701$';
 
 
 
 fel := GetConexionRemota32Soap(true,'',nil);
 
 resultado := fel.ObtenerNumeroCreditos(usuario);
 
 Memo1.Lines.Add(resultado[0]);
end;

[CSIE]

Consultando en https://www.fel.mx/ConexionRemotaCFD...NumeroCreditos se puede ver que el array usuario espera dos elementos y parece que también devuelve dos elementos.

¿Estas seguro de lo que defines en el array USUARIO?

Si es asi, prueba a cambiar esto

Código Delphi [-]
 SetLength(resultado,2);
 fel := GetConexionRemota32Soap(false,'',nil);

[darkerbyte]

Gracias a todos los amigos que se tomaron tiempo para responder:
Ya logramos que se haga la conexión de manera exitosa y consumir el webservice.
A continuación pongo cómo quedó el método:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 resultado, usuario: ArrayofString;
 i: integer;
 fel: ConexionRemota32Soap;

begin

  Memo1.Lines.Clear;
  SetLength(usuario,3);
  usuario[0]:='DEMO323016FEL';
  usuario[1]:='DEMO323016FEL';
  usuario[2]:='Link2701$';


  fel := GetConexionRemota32Soap(true,'',nil);
  resultado := fel.ObtenerNumeroCreditos(usuario);
  for i := 0 to High(resultado) do
    Memo1.Lines.Add(resultado[i]);
end;

Vamos a ver que tal nos va ahora tratando de obtener el PDF y el PNG del código de barras. Lo posteamos por si a alguien le sirve nuestro método.