kbmMW 5.06.20试用笔记

先看kbmMW 5.07.00试用笔记，再继续下面的内容。

1.kbmMWConfiguration自动备份配置文件的问题还没有修正。

下面是以前写过的内容，再一次在新闻组中提出这个问题：

kbmMW提供一个强大的配置信息管理对象，前期译过这个对象的介绍，在使用过程中，发现一个问题， 就是TkbmMWCustomConfigurationStorage.BackupMaxCount属性，当设置为0时，也会生成配置信息的备份文件，在最新的kbmMW 5.05.11版本中，每运行一次就生成一个配置文件，对此，修正了代码。

打开单元文件 kbmMWGlobal,找到下面这个方法：

function kbmMWBackupFile，
....
     if not FileExists(AFile) then
     begin
          Result:=AFile;
          exit;
     end;
     if AMaxBackups<= then//判断AMaxbackups来决定是否生成备份文件：
     begin
          Result:=AFile;
          exit;
     end;
...

 

2018-7-28:作者终于度完假，回复说下一版本修正，小时0，不备份，等于0，无限备份。

 

2.TkbmMWConfigurableObject不支持跨平台。(5.08中解决了)

在新闻组中提了Issue of TkbmMWConfigurableObject，今天测试发现：

  TSysConnectionParam = class//(TkbmMWConfigurableObject)
  private
    [kbmMW_Config('QueryServiceVersion',mwcdReadWrite)]
    FQueryServiceVersion: string;

    [kbmMW_Config('QueryServiceName',mwcdReadWrite)]
    FQueryServiceName: string;

    [kbmMW_Config('SessionName',mwcdReadWrite)]
    FSessionName: string;

    [kbmMW_Config('FileServiceVersion',mwcdReadWrite)]
    FFileServiceVersion: string;

    [kbmMW_Config('FileServiceName',mwcdReadWrite)]
    FFileServiceName: string;

  public
    property SessionName: string read FSessionName write FSessionName;
    property QueryServiceName: string read FQueryServiceName write FQueryServiceName;
    property QueryServiceVersion: string read FQueryServiceVersion write FQueryServiceVersion;
    property FileServiceName:string read FFileServiceName write FFileServiceName;
    property FileServiceVersion:string read FFileServiceVersion write FFileServiceVersion;
  end;

这个TSysConnectionParam不从TkbmMWConfigurableObject继承，否则在android平台，出这个错误：Type (TSysConnectionParam@6260DC60) not registered as a known type.

说明TkbmMWConfigurableObject还是存在跨平台的问题。

既然不能从TkbmMWConfigurableObject继承，怎么实现一个自动读取与保存的配置对象呢，按Configuration REST easy with kbmMW #7。

为配置对象重载AfterConstruction与BeforeDestruction方法，实现自动保存与读取配置对象！

  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;

{ TSysConnectionParam }

procedure TSysConnectionParam.AfterConstruction;
begin
  inherited;
  Config.ReadConfig(Self);
end;

procedure TSysConnectionParam.BeforeDestruction;
begin
  Config.WriteConfig(Self);
  inherited;
end;

现在，TSysConnectionParam的实例在建立与释放时，就能自动读取与保存参数，在Win32及Android下测试通过。

虽然TkbmMWConfigurableObject存在跨平台问题，但用上面方法来跳过，也是很好的方案，毕竟可以跨平台使用kbmMWConfiguration Frame！

 

3.在客户端利用事务提交数据时产生stream read error异常：

procedure Tmainform.Button3Click(Sender: TObject);
begin

  kbmMWClientQuery1.Close;
  kbmMWClientQuery2.Close;

  kbmMWClientQuery1.Open;
  kbmMWClientQuery2.Open;

  kbmMWClientQuery1.AppendRecord([,'']);
  kbmMWClientQuery1.AppendRecord([,'']);//t1表在数据库中主键重复错

  kbmMWClientQuery2.AppendRecord([,'']);
  kbmMWClientQuery2.AppendRecord([,'']);//t2表在数据库中主键重复错

  kbmMWClientTransactionResolver1.Resolve([kbmMWClientQuery1,kbmMWClientQuery2]);

end;

上面是测试代码，同时提交两个ClientQuery，每个表都有主键重复错误，造成提交失败的场景，这时候，客户端会产生异常：stream read error.

已经反馈到官方新闻组，但作者还让我写个demo,已经发给他，等处理。注意：这个问题在上一版本中就存在。

4.更新主键遇到的问题

这个是朋友在学习过程中遇到的，整理出测试项目，大体情况是这样的：

现在有表t1,FID是主键，假设有如下记录

FID      FName

1        1

2        2

把第一条记录，FID改成2，提交，这时候主键重复，提交失败，这时候kbmMW的工作结果是对的

FID      FName

1        1

2        2

现在把第一条记录的FID改成3,提交，这时候没有了主键重复问题，提交成功，这时候kbmMW的工作结果也是对的。

FID      FName

3        1

2        2

现在把第一条记录的任务字段改变值，如FName改成2，提交失败，这个结果不对的。问题就在这里。

FID      FName

3        2

2        2

这是按上面的测试方法写的代码，重显问题：

procedure Tmainform.Button4Click(Sender: TObject);
begin

//这是一个bug

  Label1.Caption := ''; Memo1.Lines.Clear;

  // 删除所有记录
  kbmMWClientQuery1.Close;
  kbmMWClientQuery1.Open;
  kbmMWClientQuery1.DeleteRecords;
  kbmMWClientQuery1.Resolve;

  kbmMWClientQuery1.AppendRecord([, '']);
  kbmMWClientQuery1.AppendRecord([, '']);
  kbmMWClientQuery1.Resolve;

  // keyfield
  //
  // 1,2      2,2       3,2       3,1
  // 2,2      2,2       2,2       2,2
  //          error     ok        error

  kbmMWClientQuery1.Close;
  kbmMWClientQuery1.Open;

  kbmMWClientQuery1.First;
  kbmMWClientQuery1.Edit;
  kbmMWClientQuery1.FieldByName('fid').AsInteger := ;//主键重复
  if not kbmMWClientTransactionResolver1.Resolve([kbmMWClientQuery1]) then
  begin
    DataSource3.DataSet := kbmMWClientQuery1.InfoTable;
    Label1.Caption := kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString;
    Memo1.Lines.Add('Step 1: Modify the primary key to generate an error, the submission failed,it''s right. '+kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString);
  end;

  kbmMWClientQuery1.First;
  kbmMWClientQuery1.Edit;
  kbmMWClientQuery1.FieldByName('fid').AsInteger := ;//设置主键不重复

  if not kbmMWClientTransactionResolver1.Resolve([kbmMWClientQuery1]) then
  begin
    DataSource3.DataSet := kbmMWClientQuery1.InfoTable;
    Label1.Caption := kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString;
    Memo1.Lines.Add('Step 2: Modify the primary key to resolve the error and submit successfully，it''s right. '+kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString);
  end
  else
  begin
    Memo1.Lines.Add('Step 2: step 2:Modify the primary key to resolve the error and submit successfully，it''s right.');
    Label1.Caption := 'Resolve OK.';
  end;

  kbmMWClientQuery1.First;
  kbmMWClientQuery1.Edit;
  kbmMWClientQuery1.FieldByName('fname').AsString := '';//无法修改这条记录了！这是bug.

  if not kbmMWClientTransactionResolver1.Resolve([kbmMWClientQuery1]) then
  begin
    DataSource3.DataSet := kbmMWClientQuery1.InfoTable;
    Label1.Caption := kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString;
    Memo1.Lines.Add('Step 3: Modify any field and cannot submit，it''s bug. '+kbmMWClientQuery1.InfoTable.FieldByName('kbmMW_ErrorMessage').AsString);
  end
  else
  begin
    Label1.Caption := 'Resolve OK.';
  end;

end;

5.洞主测试rest上传文件服务需要修正下面两个方法，并已经提交给作者，等待修正。

function TkbmMWHTTPMultiPart.GetAsBytes:TBytes;
var
   p:PByte;
   i:integer;
begin
     SetLength(Result,FDataLength);
     p:=PByte(FOwner.FStream.Memory);
     inc(p,FDataOfs);
     Move(p^,Result[],FDataLength);

end;

function TkbmMWHTTPMultiPart.GetAsString:string;
begin
    Result:=TkbmMWPlatformMarshal.UTF8Decode(GetData,FDataLength);
end; 

这是xalion写的上传文件服务的例子，必须学习了！

6.Scheduler存在的问题

WaitRuns: FileService的SameFile方法，不等取得本地文件的CheckSum，造成执行结果错误，这个问题在5.04.30解决过，不知为何又回来了，问题出在WaitRuns上，不等Scheduler执行。

SynchronizedAfterRun:利用Scheduler在线程中执行一个查询，然后在SynchronizedAfterRun使用查询回来的数据集，偶尔会出现找不到字段的问题。感觉与WaitRuns存在的问题有关系。

7.Q友冰雨反应Resolve问题

KbmMW V5.06.2,修改数据，kbmwclntrnsctnrslvrTR.Resolve([kbmwclntqryMain])，保存的时候，变成insert语句，导致主键重复。KbmMW V5.06.1 beta版本已经发现了这个问题，退回前一个正式版，目前正常了。