kbmMW 5.08.01压力测试报告

公告

上图为客户端测试结果，运行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(1, 100).ToString;
        q.Post;
        q.Next;
      end;

      for i := 0 to 9 do
      begin
        q.Append;
        q.FieldByName('f1').AsString := kbmMWGenerateShortGUID;
        q.FieldByName('f2').AsString := RandomRange(1, 100).ToString;
        q.FieldByName('f3').AsString := RandomRange(1, 100).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;