Побороть зависание при слабом интернете

[RIO]

Есть приложение, которое проходит авторизацию на одном сайте, так вот, при слабом интернете, приложении буд-то зависает, и нужно ждать и смотреть в буд-то завишее меню . . . Подскажите как побороть данную проблему, я пробовал через потоки, но как мне показалось, так дольше грузится, чем без них

[uberchel]

А какой компонент используется indy ?

[RIO]

Используется THTTP

[uberchel]

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

Используется THTTP

Наверно IDHTTP на вкладке IndyClients ))
На вкладке IndyMisc найтете компонент idAntiFrizee, просто киньте его на форму и се, можете так же добавить к концу кода авторизации Application.ProccessMessages;

[RIO]

Спасибо за совет Но ничего не помогло

[uberchel]

Код авторизации в студию....

[RIO]

procedure TBox.GetCaptcha;
var
  S, T: string;
  I, P: Integer;
  Captcha: TMemoryStream;
begin
  S := HTTP.Get('http://www.mts.com.ua/ukr/sendsms.php');
  P := Pos('/back/modules/golden/captcha.php?', S);
  Delete(S, 1, P);
  for I := 1 to Length(S) do
      if S[i] <> '"' then
         T := T + S[i]
      else
         Break;
  Captcha := TMemoryStream.Create;
  HTTP.Get('http://www.mts.com.ua/' + T, Captcha);
  Captcha.Seek(0, 0);
  Captcha.SaveToFile('Captcha.Jpg');
  Image1.Picture.LoadFromFile(GetCurrentDir + '\Captcha.Jpg');
  DeleteFile(GetCurrentDir + '\Captcha.Jpg');
  Captcha.Free;
end;

PS : Вот это например, здесь мы вытаскиваем капчу

[uberchel]

Я думаю так быстрее будет и удобнее:

procedure TBox.GetCaptcha;
var
  TS: TMemoryStream;
const
  Captcha: string = 'Captcha.jpg';
begin
  TS:= TMemoryStream.Create;
  idhtp1.Get('http://www.mts.com.ua/back/modules/golden/captcha.php?', TS);
  TS.SaveToFile(Captcha);
  Image1.Picture.LoadFromFile(Captcha);
  Application.ProcessMessages;
  TS.Free;
end;

[RIO]

Да быстрее, но это не избавляет программу от временного зависания

[Квэнди]

У компонента TidHTTP есть событие onbeginwork,onwork,onendwork (в написании могу ошибиться). Обработайте эти события, добавив в них хотя бы Application.ProcessMessages; Из остальных мест его можно убрать, ибо толку там от него мало.