kbmMW 5.08.01压力测试报告

2021-12-03 17:16:26

上图为客户端测试结果，运行14小时，无异常报告。基于洞主封装的HttpsysTransport，基于ClientQuery完成25万多次数据库访问操作，含查询并对查询结果进行修改及增加新记录，然后提交操作。客户端64线程同时访问，基于kbmMW Scheduler实现的定时线程，每10秒发起一次访问。（朋友说线程少，主要原因这个Server还在生产中，多了影响客户端App的反应速度，影响人员正常操作）。

附压力测试的内容：

procedure TMainForm.query;

var

  bsf: TkbmMWBinaryStreamFormat; // 建立独立实现，确保线程安全

  q: TkbmMWClientQuery;

  i: Integer;

  msg: string;

begin

  bsf:=TkbmMWBinaryStreamFormat.Create(nil);

  q:=TkbmMWClientQuery.Create(nil);

  try

    try

      q.QueryService:='QueryService';

      q.QueryServiceVersion:='1.0';

      q.SessionName:='test';

      q.TableName:='t1';

      q.KeyFields:='f1';

      q.TransportStreamFormat:=bsf;

      q.query.Text:='select top 100 * from t1';

      q.Open;

      while not q.Eof do

      begin

        q.Edit;

        q.FieldByName('f2').AsString:=RandomRange(, ).ToString;

        q.Post;

        q.Next;

      end;

      for i :=  to  do

      begin

        q.Append;

        q.FieldByName('f1').AsString := kbmMWGenerateShortGUID;

        q.FieldByName('f2').AsString := RandomRange(, ).ToString;

        q.FieldByName('f3').AsString := RandomRange(, ).ToString;

        q.Post;

      end;

      q.Resolve;

      // finally

      // q.Unlock;

      // end;

    except

      on E: Exception do

      begin

        // ApplicationShowException(E); //显示异常，避免应用闪退

        msg:=E.Message;

        TThread.Queue(nil,

          procedure

          begin

            mmo1.Lines.Add(msg);

          end);

      end;

    end;

  finally

    bsf.DisposeOf;

    q.DisposeOf;

  end;

end;