TRttiContext.DropContext线程不安全

原创

红鱼儿_ 2021-07-29 16:13:38 ©著作权

文章标签 编程 文章分类 后端开发

©著作权归作者所有：来自51CTO博客作者红鱼儿_的原创作品，请联系作者获取转载授权，否则将追究法律责任

QC上有人提出，下面两个方法配对调用时，因线程不安全而出错，QC地址：https://quality.embarcadero.com/browse/RSP-27771。

TRttiContext.KeepContext;
TRttiContext.DropContext;

我把提出者的代码改了下，测试结果果真如此，下面是测试代码：

procedure TForm61.Button1Click(Sender: TObject);
var
 i : Integer;
begin
  for i := 0 to 1000 do
  begin
//    TThread.CreateAnonymousThread(
//      procedure ()
//      var
//        j : Integer;
//      begin
//        for j := 0 to 100000 do
//        begin
//          TRttiContext.KeepContext;
//          TRttiContext.DropContext;
//        end;
//
//      end
//    ).Start;

  Scheduler.Run(procedure
                var
                  j : Integer;
                begin
                  for j := 0 to 100000 do
                  begin
                    TRttiContext.KeepContext;
                    TRttiContext.DropContext;
                  end;
                end)
           .WhenException(
                           procedure (const AException:Exception)
                           begin
                                ShowMessage(AException.Message);
                           end).Activate;

  end

end;