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

[denis76560]

неа, такая же тема =(

[Aliens_wolfs]

lдля проверки

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

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

Если надпись будет то все норм с потоком, еще ищи в уничтожении буфера который у тебя в потоке если есть в destructor MyThread.Destroy; нужно уничтожать если есть такой буфер

[denis76560]

сделал так:

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

  protected
    procedure Execute; Override;
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy;
    procedure  Threadfree;
    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.Threadfree;
begin
Showmessage('Уничтожен;');
end;

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


procedure MyThread.Execute;
begin

rezult:=RandomRange(0,456546);

 Synchronize(Sync);
 Sleep(100);
 end;


procedure MyThread.Sync;
var
i:integer;
begin
Form1.memo1.Lines.Add(IntToStr(Rezult));
end;

end.

Запускаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create(false);
end;

Мессага не выскакивает об уничтожении потока.
Утечка остается..

[Aliens_wolfs]

Покажи его запуск
и объяви так

 

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

  protected
    procedure Execute; Override;
    constructor Create(CreateSuspended: Boolean); virtual; // здесь
    destructor Destroy; override;  // здесь 
    procedure  Threadfree;
    procedure Sync;
end;

[denis76560]

Вот что в итоге получилось:

unit Unit1;

interface

uses
  Classes, SysUtils,dialogs,math;

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

  protected
    procedure Execute; Override;
    constructor Create(CreateSuspended: Boolean); virtual;
    destructor Destroy; override;
    procedure  Threadfree;
    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.Threadfree;
begin
Showmessage('Óíè÷òîæåí');
end;

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

procedure MyThread.Execute;
begin
 Randomize;
 rezult:=RandomRange(0,456546);
 Synchronize(Sync);
 Sleep(100);
 end;

procedure MyThread.Sync;
var
i:integer;
begin
Form1.memo1.Lines.Add(IntToStr(Rezult));
end;

end.

И запуск с главной формы:

procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create(false);
end;

Ничего не изменилось, увы =(

Кода вроде кот наплакал, а столько времени уже с ним вожусь =(

[Aliens_wolfs]

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

  protected
    procedure Execute; Override;
       constructor Create; virtual;
   destructor Destroy; override;
    procedure Sync;
    procedure Threadfree;
end;


 var
  Form1: TForm1;



{$R *.dfm}

implementation


constructor MyThread.Create;
begin
  inherited Create(false);
  FreeOnTerminate := True;
end;


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

procedure MyThread.Threadfree;
begin
Showmessage('Óíè÷òîæåí');
end;

procedure MyThread.Execute;
begin
  Randomize;
rezult:=RandomRange(0,456546);
Synchronize(Sync);
//sleep(100); и без этого работает
 end;


procedure MyThread.Sync;
var
i:integer;
begin
Form1.memo1.Lines.Add(IntToStr(Rezult));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create;
end;

у меня работает

[denis76560]

Ооооооо !!!!!!!!! Есть еще светлые головы у нас в Питере и на этом форуме =)))
Спасибо огромное !!!!!
Сейчас копирнул все в один модуль, все ок сработало, утечек нет.. =))))
Правда не знаю почему у меня в том коде не срабатывает, может потому-что в другом модуле код потока, или косяк где-то в коде, сейчас по одной строчке буду сравнивать..
Еще раз спасибо ОГРОМНОЕ !!!

[Aliens_wolfs]

Сейчас проверим в другом модуле

[Aliens_wolfs]

ТОЖЕ РАБОТАЕТ, Я И НЕ СОМНЕВАЛСЯ

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

  type
  MyThread = class(TThread)
  private
    Rezult : integer;
  public
    procedure Execute; Override;
    constructor Create; virtual;
   destructor Destroy; override;
    procedure Sync;
    procedure Threadfree;
end;

implementation

uses
Unit1;

constructor MyThread.Create;
begin
  inherited Create(false);
  FreeOnTerminate := True;
end;


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

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

procedure MyThread.Execute;
begin
  Randomize;
rezult:=RandomRange(0,456546);
Synchronize(Sync);
 end;


procedure MyThread.Sync;
var
i:integer;
begin
Form1.memo1.Lines.Add(IntToStr(Rezult));
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;




 var
  Form1: TForm1;



{$R *.dfm}

implementation

uses
Unit2;


procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create;
end;

Но лучше данные в Memo передавать через объекты, могу показать как это сделать

[denis76560]

Да, вероятнее всего где-то закралась нелепая машинальная ошибка, еще у себя пока не нашел.