今天遇到奇怪的问题,在线程中建立一个TkbmMWClientQuery的临时对象q,及一个TkbmMWBinaryStreamFormat的临时对象bsf,第一次执行正常,再次执行时一直等待,也不产生异常,最后发现原来用q.DisposeOf,bsf.DisposeOf释放对象产生的问题,改成Free正常了,kbmMW版本5.08.10.

procedure TMainForm.Rectangle1Click(Sender: TObject);
var
  url: string;
begin

  CCLoadingIndicator1.ShowLoadingIndicator;
  Scheduler.Run(
    procedure
    var
      bsf: TkbmMWBinaryStreamFormat;
      q: TkbmMWClientQuery;
    begin
      bsf := TkbmMWBinaryStreamFormat.Create(nil);
      q := TkbmMWClientQuery.Create(nil);
      try
       //执行查询任务
      finally
        bsf.DisposeOf;
        q.DisposeOf;
      end;
    end).SynchronizedAfterRun(
    procedure
    begin
      //同步界面操作

      CCLoadingIndicator1.HideLoadingIndicator;
    end).Activate;
end;

上面代码,在kbmMW 5.09.00下正常了

相关文章:

  • 2021-12-04
  • 2022-12-23
  • 2021-08-28
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-12-28
猜你喜欢
  • 2022-12-23
  • 2022-12-23
  • 2021-12-16
  • 2021-05-15
  • 2022-12-23
  • 2022-01-11
  • 2021-08-20
相关资源
相似解决方案