Cita:
Empezado por Neftali
Como dice Osorio te falta toda la información del componente que se encarga de la conexión SSL.
|
Lo dicho.
Te adjunto un código extraído
de esta entraba de mi web (código del ejemplo actualizado al final de la entrada) que usa Indy para acceder a un server con HTTPS, aunque si buscas referencias a ese componente encontrarás muchos más códigos similares.
Si lo comparas con el tuyo, verás que la estructura es parecida, pero te falta la parte (en rojo) que completa el componente para acceder a HTTPS.
Código Delphi
[-]
IdH := TidHttp.Create(nil);
IdH.ReadTimeout := 30000;
IdSSL := TIdSSLIOHandlerSocket.Create(nil);
IdH.IOHandler := IdSSL;
IdSSL.SSLOptions.Method := sslvTLSv1;
IdSSL.SSLOptions.Mode := sslmUnassigned;
try
try
Resp := IdH.Get(Trim(StrURL));
TSContent.Text := Resp;
mmContent.Lines.Text := Resp;
ActiveLabel(lblPaso2);
except
on E:Exception do begin
MessageDlg('Error al acceder a la página. '+#13+#10+'Mensaje: '+E.Message, mtError, [mbOK], 0);
end;
end; finally
IdH.Free;
IdSSL.Free;
end;
Es posible que tengas que añadir alguna de estas units: IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket