使用kbmmw 生成客户端delphi函数原型

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

function TkbmMWCustomHTTPSmartService1.DelphiAPI: string;
var
   unitName: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;

procedure TForm1.Button1Click(Sender: TObject);
var
   c:IkbmMWSmartClient;
   ca:TkbmMWSmartClientCaller;
   s:string;
    xalionrest: TXALIONREST;
begin
     Transport.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;

procedure TForm1.Button2Click(Sender: TObject);
var
    xalionrest: TXALIONREST;
begin
     Transport.Host:=eIP.Text;
     xalionrest:= TXALIONREST.Create( Transport);
      try
        mt:=xalionrest.querytable(‘customer‘,‘‘);
        mt.Active:=True;
        datasource1.DataSet:=mt;
     finally
        xalionrest.Free;
      end;

end