关于用消息（自定义消息）刷新的问题（很奇怪）

rzport_lq0

有的用户有多个工作台，有的可能只有其中之一。例如（TA，TB），现在在某任务处理后，需要分别对TA,TB进行刷新操作。我用消息对他们进行刷新。现在遇到一个问题。用户A，把任务给了用户A，和用户B，如果A先提交任务，B再提交任务正常，如果B把任务提交了，注销平台系统（换用A的账号登陆），处理这条任务后在刷新时报错，如果不是注销，而是直接退出系统，重新用A的账号登陆，处理这条任务，系统正常。请问这是什么原因造成的？

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=18518
你是不是退出系统的时候没有释放消息对象啊。

rzport_lq0

释放掉了，消息是没有问题的。
现在的情况是如果用户用的不是系统默认的工作台时，而且是采用注销的方式处理任务时会报错。

由于任务处理完毕后，需要对工作台刷新，由于当前活动的工作台不是系统工作台，所以DataSetBrokerTaskIndex 这个数据集就是一个空对象。
每次运行到这个函数时就报错。
function TTASKNAV.GetTaskDataSet: TSQLDataSet;
begin
  Result := DataSetBrokerTaskIndex.DataSet as TSQLDataSet; //运行到此处报错。
end;

lixy

那加个判断啊。

rzport_lq0

加个判断还是不行。
想用 try   finally end  把那个异常处理掉，也不行。只有处理完毕后，全部关掉，重新登录就可以处理。

lixy

那我还是感觉有资源没释放。

rzport_lq0

步骤都是严格按照2楼的链接做的，不知道还需要释放一些什么资源？

lixy

你加个 try   except end

rzport_lq0

加上 try   except end 就OK了。
不知道为啥 try   finally end   却捕获不了异常。

lixy

!!两个语法差别很大啊，一个是强制执行，一个是捕获异常。