idhttp https потоки

[brownb]

Так получаю инфо со траницы

procedure TForm1.Button1Click(Sender: TObject);
var
 Result:TStringList;
begin
Result:= TStringList.Create;
Result.text:= idhttp2.get('https://wwwc/app/');
showmessage(result.Text);
end;

А в потоках не хочет почему?

while Work do
  begin
   CS.Enter;
   Inc(Acc);
   if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
   CS.Leave;

   if Work then
    begin

     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=true; //Запрещаем редиректtry

      Result.Text:= http.get('https://wwwc/app');
      showmessage(Result.Text);
      Rez:=-1;
     except
      if pos('send',Result.Text) <> 0 then 
       Rez:=1  //Гуд
      else
       Rez:=0; //Бэд
     end;
     HTTP.Free; //УБиваем HTTP
     data.Free; //И наши параметры

     Synchronize(Sync); //Делаем синхронизацию. Самая важная строка!

[Slym]

где ты в потоке к TIdHTTP SSL прикрутил? а надо.

[brownb]

    begin
     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=true; //Запрещаем редирект
      SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
      HTTP.IOHandler := SSL;

И все равно не хочет

[Black Fregat]

Мне в своё время помогло SSL.Method := sslvTLSv1