1、数据包较大时,界面会没有反应,给用户死机的感觉,另外不知道打包的进度。
2、因此改用线程完成,但遇到手机应用秒退,自己用messagebox,日志文件,还有动态设label1.text显示程序的结果,没想到自己给自己设一个大坑,怎么也解决不了闪退的问题,有时候正常,有时候确秒退,最后在百度的以下链接里找到一条
https://bbs.csdn.net/topics/360223723
这是因为MyThread和主线程不同造成的,
在线程中不要做刷新GUI的操作,这是Delphi线程使用的常识。
https://bbs.csdn.net/topics/391849897
你这个代码2个问题
1、不能在线程中直接操作VCL控件。
2、 k := i;执行的时候,可能i已经不是原来的值了,所以出现你所说的6居多,你可以设想极端情况,线程start后并未马上切换到线程执行,但是你创建匿名线程的那个线程,已经全部跑完,这个时候i=6,然后系统线程切换,你想那些线程k是不是等于6呢?
它遇到的问题和我不一样,但我却从这句话知道了线程中是不允许进行控件操作的,而我恰好犯了此错误
修改代码,将涉及控件操作的更改在
TThread.Synchronize(nil ,
procedure begin
RenameTempFileName(sf,label1.Text+'_');
label2.Text:='导入树';
label2.Repaint;
XMLDoc := TXMLDocument.Create(nil);
xml2treeItem(treeview1.Selected,XMLDoc);
tdirectory.Delete(MyWorkDir+'temp',true);
end );
内,解决闪退的问题,我的打项目打包与接收的功能可以正常使用了
。