datasnap 2010 客户端如何调用服务端上自定义的方法

使用dbexpress控件面板中的TSqlServerMethod控件来调用

下面使用示例代码来说明：

服务器的自定义方法代码：

function TServerMethods1.inBeginSteam(inStream:widestring): boolean;
var
  mem:TStringstream;
begin
  try
    result:=False;
    if inStream='' then exit;
    mem:=TStringstream.Create(inStream,TEncoding.Unicode);
    mem.SaveToFile('C:/ccc.pdf');
    result:=true;
  finally
    mem.Free;
    mem:=nil;
  end;
end;

 

客户端调用服务端自定义方法的代码：

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  f:tstringstream;
  s:widestring;
begin
  try
    f:=tstringstream.Create('',TEncoding.Unicode);
    f.LoadFromFile('c:/c1.pdf');
    s:=f.DataString;
    self.SqlServerMethod2.ServerMethodName:='TServerMethods1.inBeginSteam';
    self.SqlServerMethod2.ParamByName('inStream').AsWideString:= s;
    self.SqlServerMethod2.ExecuteMethod;
    showmessage(self.SqlServerMethod2.ParamByName('ReturnParameter').AsString);
  finally
    f.Free;
    f:=nil;
  end;
end;