5,943
社区成员
发帖
与我相关
我的任务
分享程序退出时出现Exception EAccessViolation怎么回事？
我写了个程序，带多线程的，因为需要调用主窗体的许多资源，所以我在线程中直接传入了主窗体对象，运行没有什么问题，但是退出整个程序的时候（线程已释放），却出现以下错误：
Application Error
--------------------------------------------------------------
Exception EAccessViolation in module PrjThread.exe at 00000000.
Access violation at address 00000000. Read of address 00000000.
我整理了一下，程序大概是这个结构：
--------------------------------------------------------------
{untMain.pas}
type
TfrmMain = class(TForm)
......
private
FThreads: array of TThread;
......
//在主窗体的一个过程中创建线程对象
for i := 0 to MAX_THREADS do
FThreads[i] := TMyThread.create(Self);
{untMyThread.pas}
type
TMyThread = class(TThread)
......
private
FForm: TfrmMain;
public
constructor Create(aForm: TfrmMain);
......
//实现部分
constructor TMyThread.Create(aForm: TfrmMain);
begin
inherited Create(False);
FForm := aForm;
......
--------------------------------------------------------------
另外，如果在Execute中使用Synchronize，则在创建线程的时候会完全没有反应，整个程序瘫死掉。
不知道是哪儿不对啊？请高手赐教！
Application Error
--------------------------------------------------------------
Exception EAccessViolation in module PrjThread.exe at 00000000.
Access violation at address 00000000. Read of address 00000000.
我整理了一下，程序大概是这个结构：
--------------------------------------------------------------
{untMain.pas}
type
TfrmMain = class(TForm)
......
private
FThreads: array of TThread;
......
//在主窗体的一个过程中创建线程对象
for i := 0 to MAX_THREADS do
FThreads[i] := TMyThread.create(Self);
{untMyThread.pas}
type
TMyThread = class(TThread)
......
private
FForm: TfrmMain;
public
constructor Create(aForm: TfrmMain);
......
//实现部分
constructor TMyThread.Create(aForm: TfrmMain);
begin
inherited Create(False);
FForm := aForm;
......
--------------------------------------------------------------
另外，如果在Execute中使用Synchronize，则在创建线程的时候会完全没有反应，整个程序瘫死掉。
不知道是哪儿不对啊？请高手赐教！
...全文
请发表友善的回复…
发表回复
S.F. 2005-11-03
- 打赏
- 举报
装个EurekaLog V4.5.4 企业版 Full Source 查查；www.2ccc.com上有；不过没madCollection的好，不过madCollection只有dcu。
GARNETT2183 2005-11-03
- 打赏
- 举报
FThreads: array of TThread
for i := 0 to MAX_THREADS do
------------------------------
动态数组线程，我也出现过这样的问题过，我创建时是从 i := 0开始就会出问题，但是如果我从1开始创建就没问题，我不知道怎么回事，you try....
for i := to MAX_THREADS do
....
for i := 0 to MAX_THREADS do
------------------------------
动态数组线程，我也出现过这样的问题过，我创建时是从 i := 0开始就会出问题，但是如果我从1开始创建就没问题，我不知道怎么回事，you try....
for i := to MAX_THREADS do
....
linzhengqun 2005-11-03
- 打赏
- 举报
array of TThread改成ThreadList更好，线程安全的。
程序退出时出现违法访问，大概就是对象已经清除，但还去调用它。
你最好将Execute的代码，还有线程怎么样释放的写出来。
程序退出时出现违法访问，大概就是对象已经清除，但还去调用它。
你最好将Execute的代码，还有线程怎么样释放的写出来。
newskyline 2005-11-03
- 打赏
- 举报
Execute里就调用了一个方法，这个方法中调用了FForm的资源。
线程是自动释放：
FreeOnTerminate := True;
TThreadList还没用过，不过我觉得是我的写法有问题。
GARNETT2183(極品狼王) ，真有这事？我还没试，不过看起来很玄乎的说。
线程是自动释放：
FreeOnTerminate := True;
TThreadList还没用过，不过我觉得是我的写法有问题。
GARNETT2183(極品狼王) ，真有这事？我还没试，不过看起来很玄乎的说。
aiirii 2005-11-03
- 打赏
- 举报
在每个线程退出时，加一句：
FForm := nil;
在 TfrmMain 的 onClose 中，加入一句：
Action := crFree;
大概如此
FForm := nil;
在 TfrmMain 的 onClose 中，加入一句：
Action := crFree;
大概如此
konhon 2005-11-03
- 打赏
- 举报
能否看看线程Execute的代码, 你是线程是不是自动释放的呀.
lovendII 2005-11-02
- 打赏
- 举报
會出現 exception EAccessViolation im module
意思是說您所宣告的物件做了不正常的存取..
例如物件已經被釋放了..但您又去對它作存取
意思是說您所宣告的物件做了不正常的存取..
例如物件已經被釋放了..但您又去對它作存取
