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:
Código:
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:
Código:
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