Ver Mensaje Individual
  #4  
Antiguo 20-05-2019
PEIIB PEIIB is offline
Miembro
 
Registrado: mar 2016
Posts: 21
Reputación: 0
PEIIB Va por buen camino
Hola,
Tengo el mismo problema que Ivanzinho, pero en mi caso la solución no ha sido efectiva.
El caso que intento hacer una llamada post a una web API (es mi primera vez en esto).
Siguiendo un monton de hilos, he llegado a este código:
Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var S: TStringList;
   M: TStream;
   IdSSLIOHandlerSocket: TIdSSLIOHandlerSocket;
   HTTP1: TidHTTP;
begin
 S := TStringList.Create;
 M := TMemoryStream.Create;
 IdSSLIOHandlerSocket := TIdSSLIOHandlerSocket.Create(self);
 HTTP1:= TidHTTP.Create(self);
 try
   S.Values['Username'] := 'aaa';
   S.Values['Password'] := 'bbb';
   S.Values['company_id'] := 'ccc';

   HTTP1.IOHandler := IdSSLIOHandlerSocket;
   HTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
   HTTP1.Post('https://api.sesametime.com/api/getChecksDB', S, M);
   Memo1.Lines.Add(Format('Response Code: %d', [HTTP1.ResponseCode]));
   Memo1.Lines.Add(Format('Response Text: %s', [HTTP1.ResponseText]));

   M.Position := 0;
   S.LoadFromStream(M);
   Memo1.Lines.AddStrings(S);
 finally
   S.Free;
   M.Free;
 end;

end;

El caso es que al ejecutar la línea HTTP1.Post, aparece el error 'Could not load SSL library'
Buscando la solucion a este error, he llegado a este hilo, y pensaba que ya había hallado la solucion, pero no. Despues de descargar los DLL indicados por IvanZino, sigue sin funcionar la cosa. Supongo que la version de las librerias descargadas, no coinciden con el Indy que tengo instalado. Así que me surgen varias preguntas:
1) Como puedo saber la version Indy que tengo instalada?
2) Como puedo encontrar las librerías correspondientes?
3) Teneis alguna sugerencia que se aparte de esas preguntas?

Gracias de antemano
Responder Con Cita