Освобождение памяти после работы потока

[denis76560]

Здравствуйте уважаемые форумчане, недавно начал знакомство с потоками, столкнулся с такой проблемой.

имею модуль для работы с потоком такого плана:

.....................
.....................

type
  MyThread = class(TThread)
  private
    Rezult : integer;
  public

  protected
    procedure Execute; Override;
    constructor Create(CreateSuspended: Boolean);
    procedure Sync;
end;

.....................
.....................

implementation

uses MainForm;

constructor MyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := True;
  if not CreateSuspended then
    Resume;
end;

procedure MyThread.Execute;
begin
  // тут идут долгие расчеты
rezult:=RandomRange(0,456546); // RandomRange - для теста 
 Synchronize(Sync);
 Terminate; // не помогает
end;


procedure MyThread.Sync;
begin
Form1.memo1.Lines.Add(IntToStr(Rezult));
end;

с главной формы создаю поток так

Unit1.MyThread.Create(false);

Проблема в том что после работы потока он не уничтожается (насколько я понял), так как память не освобождается, вот что выходит в отчете по утечкам памяти:



если перейти по ссылке из отчета по утечке памяти то попадаю прямиком на строчку создания потока

Unit1.MyThread.Create(false);

Подскажите пожалуйста как побороть эту проблему.

[Pavia]

Покажите как вызываете поток? Вы уверены что он успеват уничтожиться раньше чем вы закрываете форму?

[denis76560]

Вызываю его так

Unit1.MyThread.Create(false);

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

[Serge_Bliznykov]

насколько я понимаю принципы ООП,
то вызывать нужно так:

myThreadTemp := Unit1.MyThread.Create(false);

а освобождать

myThreadTemp.Free;

[denis76560]

Че-то не могу сообразить как это реализовать, пробовал так:

.......
var
  myThreadTemp: array of TThread;
.......
myThreadTemp[0] := Unit1.MyThread.Create(false);
FreeAndNil(myThreadTemp[0]);

, но тогда поток вообще вываливается в Access Violation =(

а если сделать так:

   
var
 myThreadTemp: TThread;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   myThreadTemp:= Unit1.MyThread.Create(false);
   myThreadTemp.Free;

то поток даже не запускается =(

а если так

   myThreadTemp:=TThread.Create(true);
   myThreadTemp:= Unit1.MyThread.Create(false);
   myThreadTemp.Free;

то поток не срабатывает, но утечка памяти все равно есть =((

[Serge_Bliznykov]

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

var
  myThreadTemp: array of TThread;
.......
myThreadTemp[0] :=

прежде чем обращаться к элементу динамического массива, нужно выделить память под массив.
то бишь предварительно должно быть:

SetLength( myThreadTemp, N);

где N - это число элементов массива (в данном случае - число потоков).

кстати, возможно, при изменяемом числе использовать не массив, а коллекцию ( TList и его наследники).
но можно и массив задействовать.

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

myThreadTemp:=TThread.Create(true);
   myThreadTemp:= Unit1.MyThread.Create(false);
   myThreadTemp.Free;

вы создаёте два раза поток (два раза выделяется память), а освобождается только один раз, вот и утечка.


Вы бы определились, когда и сколько потоков Вам нужны.
и когда их нужно очищать (освобождать память).

[denis76560]

Сам код брал отсюда http://forummaxi.ru/topic/68236-%D0%...5%D0%BC%D0%B0/

просто хотел из него сделать прокси чекер.

Дело в том что количество потоков задается пользователем

for Thread:=0 to Form1.sSpinEdit1.Value do
begin
    Unit1.MyThread.Create(false);
    Proxy:=-1;
Work:=True;
end;

далее в потоке идет проверка каждого прокси

procedure MyThread.Execute;
begin
      while Work do begin
        Cs.Enter;

           inc(Proxy);
           if Proxy<ProxysList.Count-1 then CurProxy:=Proxy else Work:=False;

..тут идет проверка самого CurProxy
.....
           Cs.Leave;

[Aliens_wolfs]

Объяви переменную создания своего потока

var
myThreadTmp: MyThread;
for Thread:=0 to Form1.sSpinEdit1.Value do
begin
myThreadTmp:= myThread.Create(true);
myThreadTmp.Proxy:=-1; // если эта переменная объявлена в потоке
myThreadTmp.Work:=True;// если эта переменная объявлена в потоке
end;

Уничтожиться он сам по завершению ведь у тебя объявлено FreeOnTerminate := True;

[denis76560]

Сделал как Вы написали, все равно утечка памяти.
Вот исходник сам - там полторы строчки, http://myfiles.pro/uploads/1567305898.zzz.rar
Времени на него потерял, но все еще проблему не решил.
Буду очень благодарен за любую помощь.

[Aliens_wolfs]

прерывание попробуй поставить

procedure MyThread.Execute;
begin
rezult:=RandomRange(0,456546);
Synchronize(Sync);
sleep(100); // прерывание попробуй поставить здесь
 end;

да и для проверки уничтожения сделай так

destructor MyThread.Destroy;
begin
  Synchronize(Threadfree);
  inherited;
end;

procedure MyThread.Threadfree;
begin
Showmessage('Уничтожен');
end;