Получение Https страницы

[Fahman]

Здравствуйте!
У меня не получаеться получить исходный код старницы:

html:=idHTTP1.Get('https://account.sonyentertainmentnetwork.com/login.action');
memo1.Lines.add (html);

Кто может помочь? В чем ошибка?

[Stilet]

Для HTTPS нужно подключать SSL компоненты. Так просто Инди не сможет достучаться к таким сайтам.

[Fahman]

Сообщение от Stilet

Для HTTPS нужно подключать SSL компоненты. Так просто Инди не сможет достучаться к таким сайтам.

Можно пример?

[Stilet]

Не-а... Я сам с ним так и не смог разрулиться. Но вот гугл знает:
http://www.programmersforum.ru/showthread.php?t=97537
http://yandex.ua/yandsearch?text=IdS...ammersforum.ru

[Lardes]

uses
  IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

var
  IdHTTP: TIdHTTP;

  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  IdCookieManager: TIdCookieManager;

  SourceCode: UnicodeString;
begin
  IdHTTP := TIdHTTP.Create;

  IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  IdCookieManager := TIdCookieManager.Create;
  IdHTTP.CookieManager := IdCookieManager;
  IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

  try
    IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.2; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0';
    IdHTTP.Request.Accept := 'application/json, text/javascript, */*; q=0.01';
    IdHTTP.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';

    SourceCode := IdHTTP.Get('https://account.sonyentertainmentnetwork.com/login.action', TEncoding.UTF8);

    // TEncoding.UTF8 можете убрать, так как брал код со своего проекта, написанного на XE3

    ShowMessage(SourceCode);
  finally
    IdHTTP.Free;
    IdSSLIOHandlerSocketOpenSSL.Free;
    IdCookieManager.Free;

  end;

[Человек_Борща]

А что возвращает?

[Lardes]

Сообщение от Человек_Борща

А что возвращает?

Не понял. Вы о чем?

[Fahman]

Сообщение от Lardes

uses
  IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

var
  IdHTTP: TIdHTTP;

  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  IdCookieManager: TIdCookieManager;

  SourceCode: UnicodeString;
begin
  IdHTTP := TIdHTTP.Create;

  IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  IdCookieManager := TIdCookieManager.Create;
  IdHTTP.CookieManager := IdCookieManager;
  IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;

  try
    IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.2; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0';
    IdHTTP.Request.Accept := 'application/json, text/javascript, */*; q=0.01';
    IdHTTP.Request.AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';

    SourceCode := IdHTTP.Get('https://account.sonyentertainmentnetwork.com/login.action', TEncoding.UTF8);

    // TEncoding.UTF8 можете убрать, так как брал код со своего проекта, написанного на XE3

    ShowMessage(SourceCode);
  finally
    IdHTTP.Free;
    IdSSLIOHandlerSocketOpenSSL.Free;
    IdCookieManager.Free;

  end;

Получилось! Огормное спасибо!