P
pdjwind
Unregistered / Unconfirmed
GUEST, unregistred user!
关于:解析xml文档,用按钮点击时正常,但放入线程后,报Microsoft MSXML is not installed错误!这是什么原因? ( 积分: 50 )<br />我描述一下我的问题:
程序功能是解析一个xml文档,然后写入数据库。(要求定时执行,所以我把处理过程放在线程中)
我在按钮中添加处理事件,能够正常解析,和写入数据库。但是我把按钮的点击事件放入到线程处理过程中,就报Microsoft MSXML is not installed这个错误!
注明一下:如果先执行一下按钮的处理过程,再启动线程,也没有问题。
感觉好像是什么没有初始化一样。
InBossXMLDoc 是 TXMLDocument
procedure TForm1.Button1Click(Sender: TObject);
begin
//这里导入xml文件,解析,写入数据库
try
InBossXMLDoc.LoadFromFile(FileName);
except
DisplayMessage(Format('XML文件格式有误!文件名: %s ',[FileName]));
exit;
end;
//end try
end;
线程单元的处理
procedure ThreadButtonClick.Execute;
begin
{ Place thread code here }
FreeOnTerminate:=true;
form1.Button3.Click ;
//form1.Button1.Click ;
end;
程序功能是解析一个xml文档,然后写入数据库。(要求定时执行,所以我把处理过程放在线程中)
我在按钮中添加处理事件,能够正常解析,和写入数据库。但是我把按钮的点击事件放入到线程处理过程中,就报Microsoft MSXML is not installed这个错误!
注明一下:如果先执行一下按钮的处理过程,再启动线程,也没有问题。
感觉好像是什么没有初始化一样。
InBossXMLDoc 是 TXMLDocument
procedure TForm1.Button1Click(Sender: TObject);
begin
//这里导入xml文件,解析,写入数据库
try
InBossXMLDoc.LoadFromFile(FileName);
except
DisplayMessage(Format('XML文件格式有误!文件名: %s ',[FileName]));
exit;
end;
//end try
end;
线程单元的处理
procedure ThreadButtonClick.Execute;
begin
{ Place thread code here }
FreeOnTerminate:=true;
form1.Button3.Click ;
//form1.Button1.Click ;
end;