什么是网站改版,做网站效果图是用ps还是ai,免费商城网站建站系统,医疗集团手机网站建设运行环境#xff1a;delphi 10.2kbmmw 5.6.20 在kbmmw 的老版本中#xff0c;要向服务器传送一个本地的对象#xff0c;一般都需要进行一些转换#xff0c;例如通过序列化的方式。 在新版的kbmmw中这一切都变的很简单#xff0c;使用use... 方法就可以了#xff0c;非常的…运行环境delphi 10.2kbmmw 5.6.20 在kbmmw 的老版本中要向服务器传送一个本地的对象一般都需要进行一些转换例如通过序列化的方式。 在新版的kbmmw中这一切都变的很简单使用use... 方法就可以了非常的方便下面就简单的说一下。 首先不管是在客户端和服务端都要引用kbmMWSmartUtils 这个单元。 首先我们做服务器端。 在服务器端做一个处理过程 function Txalionsrv.Performgetobject(ClientIdent: TkbmMWClientIdentity;const Args: array of Variant): Variant;varsl:Tstringlist;beginsl: use.AsObjectTstringlist(args[0]);result:sl.text;end; 这个意思就是把客户端传上来的对象当作Tstringlist 处理。然后返回其内容。 就这么简单。运行即可。 现在再在客户端写对应的请求过程。 代码一样的简单。 procedure TForm2.Button8Click(Sender: TObject);
varargs:array[0..1] of Variant;v:Variant;teststringlist:Tstringlist;
beginteststringlist:Tstringlist.Create;teststringlist.Add(xalion);teststringlist.Add(红鱼儿);teststringlist.Add(努力的干);teststringlist.Add(烦人的土豪小凡);args[0]:use.AsVariant(teststringlist,False) ;v: kbmMWSimpleClient1.Request(xalion_srv,,getobj,args);memo1.Lines.Add(v);teststringlist.Free;
end; ok, 搞定了运行客户端。 无图无真相 可以看到服务上正确的处理了请求并返回信息。 就是这么简单。 转载于:https://www.cnblogs.com/xalion/p/9608790.html
