Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 21-04-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.321
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por Neftali Ver Mensaje
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 [-]
  // Crear componente para acceder
  IdH := TidHttp.Create(nil);
  IdH.ReadTimeout := 30000;
  IdSSL := TIdSSLIOHandlerSocket.Create(nil);
  IdH.IOHandler := IdSSL;
  IdSSL.SSLOptions.Method := sslvTLSv1;
  IdSSL.SSLOptions.Mode := sslmUnassigned;

  // proteccion para liberar
  try
    // proteccion por error
    try
      // Obtenemos la pagina
      Resp := IdH.Get(Trim(StrURL));
      // recuperamos la respuesta
      TSContent.Text  := Resp;
      mmContent.Lines.Text := Resp;
      // Activar el siguiente paso
      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;  // try
  finally
    IdH.Free;
    IdSSL.Free;
  end;

Es posible que tengas que añadir alguna de estas units: IdSSLOpenSSL, IdIOHandler, IdIOHandlerSocket
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Chequear Conexion mysql antes de abrir la aplicacion asdbernardo Conexión con bases de datos 1 26-09-2011 07:41:26
Error al abrir conexión con Zeos MaGNa MySQL 1 30-11-2009 16:29:54
Como Abrir una conexion de manera global uper JAVA 4 14-03-2009 19:26:04
Abrir conexión tras restaurar Marjinhos Conexión con bases de datos 0 10-01-2007 00:17:45
¿ Que puertos debo abrir para conexion remota ? Javier_A Internet 3 15-04-2004 11:57:44


La franja horaria es GMT +2. Ahora son las 23:38:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi