DataSnap 获取 服务端 的数据 求指教

Question

本帖最后由 thumb0422 于 2013-05-09 20:03:44 编辑

Answer 1

不要直接传对象啊,传data就行了
function TServerMethods1.GetByTable(const aTable: string; var AData : OleVariant):boolean;
begin
  FBCDS.Close;
  with FBQUERY do
  begin
    Close;
    sql.Clear;
    sql.Add('SELECT * FROM '+aTable+' WHERE 1=1 ');
    Open;
  end;
  FBCDS.Open;
  AData := FBCDS.Data;
  Result := true;
end;客户端
var
  acds:TClientDataSet;
  data : olevariant;
begin
  acds:=TClientDataSet.Create(self);
  if ServerMethods1.GetByTable('tm_user', data) then 
  begin 
    acds.data := data;
    DataSource1.DataSet:=acds;
  end;
end;