TidHttp в потоке(утечка памяти)

[FLIER]

Добрый день.Создаю поток, а в нем циклические get запросы веб-серверу. Через некоторое время поток не удается заморозить (Suspend) а так-же используемая память постоянно растет.

...
type
 ThreadHTTP=class(TThread)
 private
  http1, http2:TidHttp;
  ssl1, ssl2: TIdSSLIOHandlerSocketOpenSSL;
  cookieall: TIdCookieManager;
  sList:tStringList;
  n:integer;
  vs:TMainVS;
  quit:boolean;
  PotokNum:integer;
 public
  procedure Execute;override;
  procedure ShowResult;
end;
...

procedure ThreadHTTP.Execute;//Подготавливаем поток к работе
var
host1,host2,link1,link2:string;
begin
  inherited;
   sList:= TStringList.Create;
   cookieall :=  TIdCookieManager.Create;
   ssl1    :=  TIdSSLIOHandlerSocketOpenSSL.Create;
   ssl2   :=  TIdSSLIOHandlerSocketOpenSSL.Create;
   vs.list1 := TStringList.Create; vs.list1.Clear;
   vs.list2 := TStringList.Create; vs.list2.Clear;
    case vs.BkVsBk of
     1:begin
        host1 := 'wap.site1.com';
        host2 := 'www.site2.com';
        vs.link1 := 'https://site1'+vs.link1;
        vs.link2 := 'http://site2'+vs.link2;
       end;
     end;
   http1 := TIdHttp.Create(nil); //Настройка первого idHttp
   http1.IOHandler := ssl1;
   http1.CookieManager := cookieall;
   http1.AllowCookies := true;
   http1.HandleRedirects := true;
   http1.Request.Host:= host1;
   http1.Request.UserAgent:='Nokia6630/1.0 (2.3.129) SymbianOS/8.0 Series60/2.6 Profile/MIDP-2.0 Configuration/CLDC-1.1';
   http1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   http1.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   http1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   http1.ConnectTimeout := 2000;

   http2 := TIdHttp.Create(nil); //Настройка второго idHttp
   http2.IOHandler := ssl2;
   http2.CookieManager := cookieall;
   http2.AllowCookies := true;
   http2.HandleRedirects := true;
   http2.Request.Host:= host2;
   http2.Request.UserAgent:='Nokia6630/1.0 (2.3.129) SymbianOS/8.0 Series60/2.6 Profile/MIDP-2.0 Configuration/CLDC-1.1';
   http2.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
   http2.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
   http2.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
   http2.ConnectTimeout := 2000;

   quit := False;
   n:=0;
   while  (true) do
     begin
      try
       vs.list1.Clear;
       vs.list2.Clear;
       vs.list1.Text := http1.Get(vs.link1);
       vs.list2.Text := http2.Get(vs.link2);
       vs.Error := 0;
      except
        if (http1.ResponseText <> 'HTTP/1.1 200 OK')  or (http2.ResponseText <> 'HTTP/1.1 200 OK') then
         begin
          vs.Error := 1
         end else
         begin
          vs.Error := 2;
         end;
      end;
     Synchronize(ShowResult);
     http1.Disconnect;
     http2.Disconnect;
     vs.list1.Clear;
     vs.list2.Clear;
     sleep(1000);
    end;
end;
...

Дальше в Synchronize(ShowResult); забираю html код из 2-х TidHttp для парсинга. Мне нужно несколько таких потоков запускать одновременно, для разных ресурсов.

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

[BDA]

По существу идей не могу подсказать (все же ночь уже), но что-то у вас в коде не вижу ни одного освобождения tidhttp.

[Пепел Феникса]

где хоть один Free?

[FLIER]

Сообщение от Пепел Феникса

где хоть один Free?

А где освобождать ?
при синхронизации или после
vs.list1.Text := http1.Get(vs.link1);
vs.list2.Text := http2.Get(vs.link2); ?

Хороший ли это тон, делать в потоке бесконечный цикл ?

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

Когда поток отмирает, тогда и освободи.
Создавай в конструкторе, разрушай к деструкторе.

[FLIER]

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

Когда поток отмирает, тогда и освободи.
Создавай в конструкторе, разрушай к деструкторе.

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

Может как-то иначе реализовать ?

[FLIER]

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

[xoodoo]

Правило № 1:

Занял ресурс
try
.. поработал с ресурсом
finally
.. БЕЗУСЛОВНО освободил ресурс
end;

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

Если я правильно понимаю,

Не правильно.
У любого класса есть конструктор и есть деструктор.
Стандартный сэмпл TThread их не определяет, и дает вам только метод Execute.
И это печально...

В секции public вашего TThread создайте эти 2 метода. Как это делать, написано в любой книге по ООП в Delphi.

[FLIER]

Большой спасибо всем отписавшимся. Написал конструктор и деструктор - всё работает как нужно.

Думаю можно закрывать.