关于datasnap的一点傻傻的有关问题，多谢各位大侠帮小弟我一下

关于datasnap的一点傻傻的问题，谢谢各位大侠帮我一下
关于datasnap的一点傻傻的问题，谢谢各位大侠帮我一下



datasnap客户端怎么调用服务器端的 sql[ 只需要说一下delete 或 insert ；select 我会 就不用说了]

用代码解释，多谢啊

下面是服务器端的代码

procedure TServerMethods1.AddUser(const User, Password, Role, Email: String);
var
  SQLQuery: TSQLQuery;
begin
  try
  SQLQuery := TSQLQuery.Create(nil);
  SQLQuery.SQLConnection := SQLConnection1;
  SQLQuery.CommandText := 'INSERT INTO [User] (Name, PasswordHASH, Role, Email) VALUES (:Name, :PasswordHASH, :Role, :Email)';
  SQLQuery.ParamByName('Name').AsString := User;
  SQLQuery.ParamByName('PasswordHASH').AsString := HashMD5(Password);
  SQLQuery.ParamByName('Role').AsString := Role;
  SQLQuery.ParamByName('Email').AsString := Email;
  SQLConnection1.Open;
  try
  SQLQuery.ExecSQL;
  finally
  SQLConnection1.Close;
  end;
  except
  on E: Exception do
  begin
  SQLConnection1.Close
  end
  end;
end;

---------------------------------
最好能给一个包括添加修改删除查询的datasnap完整例子 多谢 请发到 dlduan@sohu.com

[解决办法]
客户端使用SqlServerMethod或代理类，来调用服务器端的方法
http://www.cnblogs.com/gfkz/archive/2009/03/21/1418559.html

Delphi(Pascal) code

SqlServerMethod.ServerMethodName := 'TServerMethods1.AddUser';SqlServerMethod.Params[0].AsString :='张三';SqlServerMethod.Params[1].AsString :='密码';SqlServerMethod.Params[2].AsString :='老大';SqlServerMethod.Params[3].AsString :='av@163.com';SqlServerMethod.ExecuteMethod;