Hola,
No se si es buena idea continuar este hilo, pero creo que mejor si se centraliza todo en este maravilloso tutorial
Lo primero decir que estoy trabajando con DELPHI 6.
He estado pegandome con esto de los servicios web durante unos días y parece que por fin he conseguido llegar a algo, creo que me responde, al menos obtengo como resultado: ‘Credenciales incorrectas’
El servicio web al que tengo que realizar la conexion supongo que tendrá login y password, hay una via alternativa para hacerlo a mano desde una web y ahí tengo que hacer login.
He probado a poner en HTTPRIO.HTTPWebNode.UserName el usuario y en el Password la clave, pero, sigo obteniendo la misma respuesta.
He estado buscando por internet y he encontrado esto:
procedure TTestMapPointRender.HTTPRIO1HTTPWebNode1BeforePost(
const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
UserName: string;
PassWord: string;
begin
UserName := GetWSToken('MapPoint', 'UserName');
Password := GetWSToken('MapPoint', 'Password');
if not InternetSetOption(Data,
INTERNET_OPTION_USERNAME,
PChar(UserName),
Length(UserName)) then
raiseException(SysErrorMessage(GetLastError));
if not InternetSetOption(Data,
INTERNET_OPTION_PASSWORD,
PChar(Password),
Length (Password)) then
raiseException(SysErrorMessage(GetLastError));
end;
Mi problema es que no consigo acceder al evento BeforePost por ningun lado, y como tampoco tengo ni idea de si esto funcionara ...
Muchas gracias por vuestro tiempo.
hola segui todos los pasos del ejemplo pero a ejecutar el programa, (abrir el .exe) me sale un error: [0x0005]: Operation Not Supported. al hacer paso en el IWsClientes1 al terminar la rutina de la function GetIWSdbAccess lanza el mensaje
