MyException - 我的异常网
当前位置:我的异常网» Delphi » 请问Thread的释放有关问题

请问Thread的释放有关问题

www.myexceptions.net  网友分享于:2013-02-20  浏览:76次
请教Thread的释放问题
最近常常遇到线程,线程的释放的问题让我一直拿捏不准。今天写了一个简单的线程,本来还从中学了点东西,但是最后遭遇到一个大问题,就是主线程要Destroy的时候,尝试释放线程就失效了,用FastMM以检测,线程对象、线程中手动申请的内存完全释放不了。但是,可以先调用Termiante,然后调用Close关闭掉主窗口,关掉程序就没有问题,于是,我目前只好做成尝试关掉主窗口前强制手动Termiante。
线程类代码
Delphi(Pascal) code

unit UThread;

interface
uses
  Classes, Dialogs, Windows, SysUtils;

type
  TMyThread = class(TThread)
  private
    FMainHandle: THandle;
    FNum: Integer;
    FAnswer: Cardinal;
    FTimeElapse: Cardinal;
    FShowLst: TList;
    procedure DoOnTerminate(Sender: TObject);
    procedure DisplayAnswer;
  protected
    procedure Execute; override;
  public
    constructor create(Suspended: Boolean; Vol: Cardinal);
    destructor  destroy; override;
    property Terminated;
    property MainHandle: THandle read FMainHandle write FMainHandle;
  end;

implementation
uses
  UMain;

{ TMyThread }

constructor TMyThread.create(Suspended: Boolean; Vol: Cardinal);
begin
  FNum := Vol;
  FreeOnTerminate := True;
  OnTerminate := DoOnTerminate;
  inherited Create(Suspended);
  FShowLst := TList.Create;
end;

destructor TMyThread.destroy;
begin
  FreeAndNil(FShowLst);
  inherited;
end;

procedure TMyThread.DisplayAnswer;
begin
  Form1.edt1.Text := IntToStr(FAnswer);
  if Form1.pb1.Position < Form1.pb1.Max then
    Form1.pb1.StepIt; 
end;

procedure TMyThread.DoOnTerminate(Sender: TObject);
begin
  begin
    MessageBox(Form1.Handle, PChar(Format('Total Time Elapse:%d', [FTimeElapse])),
      'Info', 0);
    Form1.pb1.Position := 1;
    Form1.btn1.Enabled := True;
  end;
end;

procedure TMyThread.Execute;
var
  i: Integer;
  Start_TickCount, k: Cardinal;
begin
  Start_TickCount := GetTickCount;
  for i := 0 to FNum - 1 do
  begin
    k := Round(Abs(Sin(Sqrt(i))));
    if Terminated then
      Break;
    FAnswer := FAnswer + k;
    Synchronize(DisplayAnswer);
  end;
  FTimeElapse := GetTickCount - Start_TickCount;
  inherited;
end;

end.


主线程代码
Delphi(Pascal) code

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, UThread, ComCtrls, Buttons;

type
  TForm1 = class(TForm)
    btnCreateSuspend: TButton;
    edtDisplay: TEdit;
    pb1: TProgressBar;
    btnSuspend: TButton;
    btnResume: TButton;
    btnTerminate: TButton;
    btnCheckThreadStatus: TButton;
    btn6: TSpeedButton;
    procedure btnCreateSuspendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnSuspendClick(Sender: TObject);
    procedure btnTerminateClick(Sender: TObject);
    procedure btnResumeClick(Sender: TObject);
    procedure btnCheckThreadStatusClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    procedure TerminateThread;
  public
    { Public declarations }
    FThread: TMyThread;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnCreateSuspendClick(Sender: TObject);
var
  Vol: Integer;
begin
  Vol := 200000;
  FThread := TMyThread.create(True, Vol);
  pb1.Max := Vol;
  TButton(Sender).Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  pb1.Step := 1;
end;

procedure TForm1.btnSuspendClick(Sender: TObject);
begin
  if not FThread.Terminated then
  begin
    FThread.Suspended := not FThread.Suspended;
  end;
end;

procedure TForm1.btnTerminateClick(Sender: TObject);
begin
  TerminateThread;
end;

procedure TForm1.btnResumeClick(Sender: TObject);
begin
  if Assigned(FThread) and (not FThread.Terminated) and (FThread.Suspended) then
    FThread.Resume;
end;

procedure TForm1.btnCheckThreadStatusClick(Sender: TObject);
var
  sStatus: string;
begin
  if not Assigned(FThread) then
  begin
    sStatus := 'Thread is nil!';
    btn6.Caption := 'Thread Current Status: ' + sStatus;
    Exit;
  end;

  if FThread.Suspended then
  begin
    sStatus := 'Is Suspended: Yes ;';
  end
  else
    sStatus := 'Is Suspended: No ;';

  if FThread.Terminated then
  begin
    sStatus := sStatus + ' Is Terminated: Yes';
  end
  else
    sStatus := sStatus + ' Is Terminated: No';
  btn6.Caption := 'Thread Current Status: ' + sStatus;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  try
    TerminateThread;
  except
  end;
end;

procedure TForm1.TerminateThread;
begin
  if Assigned(FThread) and (not FThread.Terminated) then
  begin
    if FThread.Suspended then
    begin
      FThread.Resume;
    end;
    FThread.Terminate;
    FThread := nil;
  end;
end;

{没办法,强制Terminate线程才允许关闭窗口,有什么办法可以解决这个问题?}
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := (FThread = nil) or (FThread.Terminated = True);
  if not CanClose  then
    MessageBox(Handle, 'Termiante the thread first!', ' Terminate thread', 0);
end;

end.

文章评论

每天工作4小时的程序员
每天工作4小时的程序员
 程序员的样子
程序员的样子
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
老程序员的下场
老程序员的下场
为什么程序员都是夜猫子
为什么程序员都是夜猫子
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
鲜为人知的编程真相
鲜为人知的编程真相
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
旅行,写作,编程
旅行,写作,编程
程序员应该关注的一些事儿
程序员应该关注的一些事儿
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
我是如何打败拖延症的
我是如何打败拖延症的
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
Java程序员必看电影
Java程序员必看电影
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
总结2014中国互联网十大段子
总结2014中国互联网十大段子
那些争议最大的编程观点
那些争议最大的编程观点
程序员和编码员之间的区别
程序员和编码员之间的区别
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
程序员都该阅读的书
程序员都该阅读的书
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
漫画:程序员的工作
漫画:程序员的工作
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
代码女神横空出世
代码女神横空出世
10个调试和排错的小建议
10个调试和排错的小建议
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
程序员的鄙视链
程序员的鄙视链
一个程序员的时间管理
一个程序员的时间管理
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有