前面我们讲了使用swagger 生成java,php 的客户端调用函数原型。

对于delphi,其实很遗憾，不能直接生成客户端函数原型代码。

不要紧，解铃还须系铃人，既然是kbmmw 自己生成的，我们就自产自销，

为kbmmw 客户端生成函数原型。也为我们前面说的双引擎提供服务。

闲话少说。

很简单

[kbmMW_Rest('method:get, path: "delphi", responseMimeType:"text/plain"')]function DelphiAPI:string;

function TkbmMWCustomHTTPSmartService1.DelphiAPI: string;varunitName:string;begin//Return Delphi client stub unit for all methods in this service marked with//kbmMW_Method attribute.//Add 'servers: [ "url1", "url2",.. "urln" ]' to ASettings if you want to//embed server location information in the comments of the returned unit.Result:=TkbmMWSmartDelphiStubGenerator.GenerateDelphi('',self,unitName);SetResponseFileName(unitName);end;

编译，运行。

在浏览器里面输入http://127.0.0.1/xalionrest/delphi

看看我们的函数原型都出来了。

我们把这个文件保存成pas 文件，放到客户端目录。

打开客户端工程。加入生成的单元。

客户端调用代码就非常简单了。

procedureTForm1.Button1Click(Sender: TObject);varc:IkbmMWSmartClient;ca:TkbmMWSmartClientCaller;s:string;xalionrest: TXALIONREST;beginTransport.Host:=eIP.Text;xalionrest:= TXALIONREST.Create( Transport);s:=xalionrest.EchoString('abc');memo1.Lines.Add('EchoString(''abc'')='+s );s:=xalionrest.version;memo1.Lines.Add('version='+s );s:=xalionrest.AddNumbers(34,7);memo1.Lines.Add('AddNumbers(34,7)='+s );xalionrest.Free;end;

还是那么的完美。

我们还可以使用客户端访问服务器端的数据库服务

procedureTForm1.Button2Click(Sender: TObject);varxalionrest: TXALIONREST;beginTransport.Host:=eIP.Text;xalionrest:= TXALIONREST.Create( Transport);trymt:=xalionrest.querytable('customer','');mt.Active:=True;datasource1.DataSet:=mt;finallyxalionrest.Free;end;end

运行结果

显示服务端图像

procedureTForm1.BitBtn1Click(Sender: TObject);varc:IkbmMWSmartClient;s:string;xalionrest: TXALIONREST;b:Tbytes;NewG: TJPEGImage;bs:Tbytesstream;beginTransport.Host:=eIP.Text;xalionrest:= TXALIONREST.Create( Transport);tryb:=xalionrest.GetImage('Boa') ;bs:=Tbytesstream.Create(b);newg:=TJPEGImage.Create;newg.LoadFromStream(bs);image1.Picture.Graphic.Free;image1.Picture.Graphic:=newg;finallybs.Free;newg.Free;xalionrest.Free;end;end;

不能再简单了，否则大家就要失业了。