Проблема с потоками

[denis76560]

Спасибо за информацию. Уже хоть что-то есть.

[Sciv]

Ну вообще говоря, если Вы объявили глобальные переменные:

var
  DecompStream: TStringStream;
  HTTP: THTTPSend;
  HTML:TStringList;

которые очищаются вместе с потоком:

destructor TGetHTTP.Destroy;
begin
  HTTP.Free;
  HTML.Free;
  DecompStream.Free;

  DeleteCriticalSection(FCS);
    inherited;
end;

То чего вы ждёте от второго потока? Первый поток создал их, пока он работает - Вы создаёте второй, который меняет значения у указанных переменных, а первый при завершении себя любимого делает им Free. А второму потоку не с чем становится работать

Чтобы это починить - нужно их перекинуть в секцию Private класса потока:

  TGetHTTP=class(TThread)
  private
    DecompStream: TStringStream;
    HTTP: THTTPSend;
    HTML:TStringList;

Аналогично в модуле Main - переменную лучше тоже выкинуть в класс формы:

var
  postline:integer;

Избавляйтесь от глобальных переменных везде, где возможно

[denis76560]

Спасибо огромное, все в порядке теперь, и утечек памяти теперь нет
С меня +

[denis76560]

Аналогично в модуле Main - переменную лучше тоже выкинуть в класс формы:

var
  postline:integer;

Избавляйтесь от глобальных переменных везде, где возможно

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

[evg_m]

type
  TForm1 = class(TForm)
 ...
  private
    { Private declarations }
   postline: integer;
...

[Sciv]

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

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

Ну если Вы её используете НЕ только в методах класса TForm, то никуда не надо перемещать. Я судил по коду и посчитал, что у Вас там только этот класс.

А если только в TForm - то ответ дан выше