红鱼儿

公告

统计

  • 随笔 - 97
  • 文章 - 1
  • 评论 - 18
  • 引用 - 0
kbmMW 5.08.10试用报告

1.不兼容Android

基于5.07的项目,升级到5.08,不能编译android app.已经反应给作者。作者回复将近快发布fixed,修正这个问题及其他发现的问题。

5.08.01解决了android兼容性问题,可以正常编译app了!

2.此版支持向下兼容旧版服务器

这个版本,升级了传输流(transport stream version)的版本到508,以支持传输除接口,对象及内置值(典型的Records)之外的其他基于TValue的数据。新版服务器能够检查并支持旧版本的客户端,可以通过设置将新版本客户端强制为旧版本以支持旧版的服务器。象下面这样调用即可:

kbmMWNativeHTTPClientTransport1.Params.Values[KBMMW_STREAM_FORMATTER_PARAM_STREAMVERSION]:='506'; //kbmMW 5.08向下兼容

作者在升级说明中有误,没调用Values,按上面方法调用即可,测试通过。

3.TkbmMWProcess.CreateProcess 问题修正

测试5.07时遇到的CreateProcess会产生AV错误,现在正常了。发现新的问题:调用cmd,不产生AV但不显示cmd窗口。将这个问题反应给作者后得到了答复,原来我的调用方式不对,要显示cmd窗口,要这样调用:

     TkbmMWProcess.CreateProcess(0,0,0,0,'c:\windows\system32\cmd.exe','','',true);

     TkbmMWProcess.ExecuteProcess('c:\windows\system32\cmd.exe','',0,'',true);

 

4.kbmMWTCPServerTransport

基于ScrossSocket修改的Transport,要启用他,此版还需要在kbmMWConfig.inc文件中增加

{$DEFINE  KBMMW_NATIVETRANSPORT_SUPPORT}
上版存在的提交大数据包的问题,我做的例子测试通过了!
 
5.SameFile
5.08.01解决了这个问题。
 
6.Resolve在特殊情况返回值错误
没有解决,重新发给了作者。
实际上,这个TkbmMWClientTransactionResolver.Resolve方法,应该在开始处设置Result:=False,当所有工作完成后,再设置Result:=True,从而避免没有正确提交时,返回结果为False。不然,在提交前后及提交过程中一但发生异常,都会返回True。
在作者没修正前,可以用下面的代码实现提交:
procedure Tmainform.Button5Click(Sender: TObject);
var
  q1, q2: TkbmMWClientQuery;
  bsf1, bsf2: TkbmMWBinaryStreamFormat;
  ResolveOK: Boolean;
  ErrorMessage: string;
begin
  ErrorMessage:='';
  q1 := TkbmMWClientQuery.Create(nil);
  q2 := TkbmMWClientQuery.Create(nil);
  bsf1 := TkbmMWBinaryStreamFormat.Create(nil);
  bsf2 := TkbmMWBinaryStreamFormat.Create(nil);
  try
    q1.SessionName := 'Test';
    q2.SessionName := 'Test';
    q1.QueryService := 'QueryService';
    q1.QueryServiceVersion := '1.0';
    q1.TransportStreamFormat:=bsf1;
    q2.QueryService := 'QueryService';
    q2.QueryServiceVersion := '1.0';
    q2.TransportStreamFormat:=bsf2;

    q1.TransactionOperation := mwtoExecute;
    q2.TransactionOperation := mwtoExecute;

    q1.Query.Text := 'Insert into t1 (fid,fname)         values (''1000'',''aaaa'')';
    q2.Query.Text := 'Insert into t2 (fid,fcustomername) values (''1'',''aaaa'')';
    ResolveOK := False;     //假设提交不成功
    try
       ResolveOK:=kbmMWClientTransactionResolver1.Resolve([q1,q2]);//提交两个数据集,当发生异常时,ResolveOK会为False
    except
       on E:Exception do
       begin
            ErrorMessage:=e.Message;
       end;
    end;
  finally
    if not ResolveOK then //提交失败显示错误信息
    begin
      ShowMessage('提交失败:'+ErrorMessage);
    end;
    bsf1.Free;
    bsf2.Free;
    q1.Free;
    q2.Free;
  end;

end;

 

 

 
 
 
 

 

posted on 2019-01-24 10:00 红鱼儿 阅读(...) 评论(...) 编辑 收藏