Delphi 为何机器‘黑屏‘ ?(100分)

  • 主题发起人 主题发起人 hthugm
  • 开始时间 开始时间
H

hthugm

Unregistered / Unconfirmed
GUEST, unregistred user!
[:)]delphi正在给WORD传送数据时(WORD可见) ,这是我不想传数据了,
点击WORD的关闭按钮, 为何机器‘黑屏‘ ,之后出现系统正忙请按任一键,
我的程序中断,请高手不惜指教。
 
WordApplication的onquit事件中添加

var
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication1.Disconnect;
except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication1.Disconnect;
end;
end;
end;
 
ccgaosong
谢谢!
因为我用OLE自动化而不是用控件而且要传的数据很多,故用线程来做的(如果不用线程是不
会出现这种情况的),而且在Execute里面用
myword:=createOleobject('word.Application');
myWord.visible:=True;
WORD不显示出来。必须在这个线程之外还要有一个线程在运行,为什么?请指教。
 
太費事了吧還用線程啊﹐有此必要否
可能是兩個線程互七沒處理好
 
分給我﹐結束問題﹐好不好?
[:D][:D][:D][:D][:D][:D][:D]
[:P][:P][:P][:P][:P][:P][:P]
 
不行不用线程很慢。
 
不會吧﹐您難道邊偉數據邊看言情小說不行!!
 
确实如此
 
你給我的什么代碼在哪?我找不到
 
多人接受答案了。
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部