DELPHI DataSnap Restful 连接方式1--使用DSRestConnection

1、安置一个DSRestConnection控件

2.设置DSRestConnection1控件属性

  host

loginprompt

port

3、右键点击DSRestConnection1，出现菜单

4、选择“Test Connecttion”

这就表示成功连接到了datasnap Restful服务器

5、右键点击DSRestConnection1，出现菜单，选择“Generate datasnap client class”

生成一个“ClientClassesUnit1.pas”文件，保存。

ClientClassesUnit1.pas有在datasnap Rest服务器端建立的方法函数

 

6、在主窗口总调用函数

procedure TForm1.Button1Click(Sender: TObject);
var
  LSStream: TStream;
  aServer: TServerMethods1Client;
begin

  aServer := TServerMethods1Client.Create(Self.DSRestConnection1);

  try

    begin
      LSStream := aServer.GetID(1);
    end
  except
    on e: Exception do
    begin
      ShowMessage('log发生错误' + e.message);
      Exit;
    end;
  end;

  if LSStream <> nil then
  begin
    LSStream.Position := 0;
    FDMemTable1.LoadFromStream(LSStream, TFDStorageFormat.sfBinary);

  end

end;

7、记得要在窗体加入FDStanStorageJSONLink  、FDStanStorageBinLink 、FDGUIxWaitCursor