如此的调用线程,为何不起作用?

程晨c 程晨c 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
线程类

unit uTSavePic;

interface

uses
Classes, StdCtrls, ComCtrls, ExtCtrls, Graphics, SysUtils;

type
TSavePic = class(TThread)
private

protected

public
constructor create;
procedure Execute; override;
procedure SendPic;
end;

implementation

constructor TSavePic.create;
begin
FreeOnTerminate:=true;
inherited create(false);
end;

procedure TSavePic.Execute;
begin
//访问一个不存在的网路路径,这会使用很长时间
end;

procedure TSavePic.SendPic;
begin
//访问一个不存在的网路路径,这会使用很长时间
end;

end.

==================================================================
调用线程的方法一
TSavePic.Create;

==================================================================
调用线程的方法二

var
nTSavePic:TSavePic;
begin
nTSavePic:=TSavePic.Create;
nTSavePic.SendPic;

==================================================================
问题:为何方法二调用线程时主程序仍假死呢?而方法一调用线程则主程序不受影响。
...全文

相关推荐

评论 8
收藏 已收藏
分享
返回顶部