Buenas compañer@s,
buscando en los foros no encontrado nada sobre mi problema:
Estoy haciendo un programa de Sockets que se conectan a compañias aseguradoras para obtener tarifas y una de ellas me pider una pre-validación en su servidor IIS, es decir:
Primero me tengo que validar con un usuario y una contraseña en su servidor IIS a través de post y luego me dan otro usuario y contraseña para validarme a través de XML.
Parte del código de conexión a través de IIs es el siguiente:
Código PHP:
// CONEXION CON SERVIDOR IIS
procedure TProtocolThread.HTTPConectarConElServidor_Compania1;
var
salida: string;
kk: TIdCustomHTTP;
begin
//creo el TXMLDocument del registro protocolo
regprotocolo.xmlprotocolo:=TXMLDocument.Create(nil);
regProtocolo.HTTPCliente.ReadTimeout:=12000;
// OBTENGO DATOS DE CONEXIÓN DE FICHERO TXT
kk.Port:=StrToInt(regprotocolo.regHTTP.port);
kk.Host:=regProtocolo.regHTTP.host;
kk.URL.Create(regprotocolo.regHTTP.url);
kk.Request.Username:=regprotocolo.regHTTP.user;
kk.Request.Password:=regprotocolo.regHTTP.password;
try
kk.Connect(5000);
//////////////////////////////////////////////
//////////////////////////////////////////////
// Aquí envío el post pero no se como
// pasar el usuario y contraseña
//////////////////////////////////////////////
//////////////////////////////////////////////
// esto es un intento de conexión -> ERROR !!!
kk.Post(kk.URL,kk.Response,kk.Response);
except
on e: Exception do
begin
GetRespuestaError('[>]ERROR AL INTENTAR CONECTAR CON COMPAÑIA 2 ',GetUso,regProtocolo.xmlprotocolo);
//Elimina saltos de linea y el retornos de carro
salida:=regProtocolo.XMLProtocolo.XML.Text;
salida:=StringReplace(salida, String(Chr(13))+String(Chr(10)),'',[rfReplaceAll]);
xmlGlobal.XML.Append(salida);
end;
end;
¿Alguien sabe como puedo pasar el usuairo y la contraseña al servidor de la compañia?
Muchas gracias.