運行環境：delphi 10.2+kbmmw 5.6.20

?

在kbmmw 的老版本中，要向服務器傳送一個本地的對象，一般都需要進行一些轉換，例如通過序列化的方式。

在新版的kbmmw中這一切都變的很簡單，使用use... 方法就可以了，非常的方便，下面就簡單的說一下。

首先不管是在客戶端和服務端都要引用kbmMWSmartUtils 這個單元。

首先我們做服務器端。

在服務器端做一個處理過程

function Txalionsrv.Performgetobject(ClientIdent: TkbmMWClientIdentity;const Args: array of Variant): Variant;varsl:Tstringlist;beginsl:= use.AsObject<Tstringlist>(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

總結

以上是生活随笔為你收集整理的kbmmw中向服务器端传递对象的一种简单方式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。