XE5 变相连接数据库

XE5中Android不支持SQL Server的连接，所以近来弄出了个歪办法：

通过DataSnap(Web Services也可)来获取数据，现在建立一个DataSnap吧

打开XE5,点击菜单File>>New>>Other>>DataSnap Server

然后一直Next(设置端口那里可默认，也可以改为自己要想的),最后Finish

到这一步会看到生成了这些

在ServerContainerUnit1.Pas中加入关系如图所示(连接数据库的控件可换为你所熟用的)

接着打开ServerMethodsUnit1.Pas编写获取数据的代码了

public下加入 function GetTableData(AParams:OleVariant):OleVariant;然后Ctrl+Shift+C快速生成模版

AParams 不要看它是OleVariant,其实它是TParams,通过另外一个过程将它转换成OleVariant的，

为什么要这么麻烦，因为XE5 Android中直接传输TParams的会出现Remote Error等等的错误;

将AParams再转换回TParams（我在其中加入3项东东,一个是表名，一个是查询的字段，一个是查询条件），

将其中的内容拼合成查询语句，后用ServerContainerUnit1.Pas中的ADOQuery1查询

Result值就是ServerContainerUnit1.Pas的DataSetProvider1.Data到此，服务端好了

function TServerMethods1.GetTableData(AParams: OleVariant):OleVariant;
var
 ATemp:TParams;
 tmpVar:Variant;
begin
  ATemp := TParams.Create;
  VariantToParams(tmpVar,ATemp);
  With ServerContainer1.qry1 do
  begin
    try
      Close;
      SQL.Clear;
      SQL.Add('Select '+ATemp.ParamByName('Fields').AsString+
              ' From '+ATemp.ParamByName('Table').AsString+
              ' Where 1=1 '+ATemp.ParamByName('WhereStr').AsString);
      Open;
      Resut :=ServerContainer1.DataSetProvider1.Data,ftStream;
    except
    end;
    Close;
  end;
end;

运行着；接着编写客户端

客户端就很简单了

File>>New>>FireMonKey Mobile Application选择Blank Application

再加入DataSnap的Client

Fiel>>New>>Other>>DataSnap Server

点OK，下一步你选择哪个都可以，一直Next到测试端口连接那里(服务端要开启才能连接)，Finish

会看到生成这些

在Unit1放入Grid,ClientDataSet,利用LiveBindings连接起来

加入个按钮调用服务端

//Params转Variant
function ParamsToVariant(par:TParams): OleVariant;
var
  tmpv:OleVariant;
  n,i:integer;
begin
  try
    tmpv:=VarArrayCreate([1,par.Count*3],VarVariant);
    n:=0;
    i:=0;
    while par.Count>i do
    begin
      tmpv[n+1]:=Ord(par.Items[i].DataType);
      tmpv[n+2]:=par.Items[i].Name;
      tmpv[n+3]:=par.Items[i].Value;
      i:=i+1;
      n:=n+3;
    end;
    result:=tmpv;
  except
    Exit;
  end;
end;

//Variant转Params
procedure VariantToParams(input:OleVariant;par:TParams);
var
  n, i:integer;
begin
  try
    n:=0;
    i:=0;
    par.Clear;
    while VarArrayHighBound(input,1)>=(n+3)do
    begin
      par.CreateParam(TFieldType(input[n+1]),input[n+2],ptInput);
      par.Items[i].Value := input[n+3];
      par.Items[i].Size :=SizeOf(input[n+3]);
      n:=n+3;
      i:=i+1;
    end;
  except
    Exit;
  end;
end;

//调用服务端
procedure TForm1.Button2Click(Sender: TObject);
const
  Fields:string=' ks_bh,ks_mc,cp_lb,pt,pt2,pt3 ';
  TableName:string=' cpzl ';
var
 WhereStr:string;
 AClient:TServerMethods1Client;
 tmpVar:Variant;
 tmpParams:TParams;
begin
  if Trim(ClearingEdit3.Text)<>'' then
  begin
    case ComboBox1.ItemIndex of
     0: WhereStr:=' and ks_bh='+QuotedStr(ClearingEdit3.Text);
     1: WhereStr:=' and ks_mc='+QuotedStr(ClearingEdit3.Text);
     2: WhereStr:=' and cp_lb='+QuotedStr(ClearingEdit3.Text);
    end;
  end;
  try
    tmpParams:= TParams.Create;
    tmpParams.Clear;
    with tmpParams.CreateParam(ftString,'Fields',ptInput) do
    begin
     Value := Fields;
    end;
    with tmpParams.CreateParam(ftString,'Table',ptInput) do
    begin
     Value := TabeName;
    end;
    with tmpParams.CreateParam(ftString,'WhereStr',ptInput) do
    begin
     Value := WhereStr;
    end;
    tmpVar:=ParamsToVariant(tmpParams);
    AClient := TServerMethods1Client.Create(ClientModule1.SQLConnection1.DBXConnection);
   try
     ClientData1.Data:= AClient.GetTableData(tmpVar);
    end;
   except
    raise;
   end;
  finally
    FreeAndNil(tmpParams);
    FreeAndNil(AClient);
    tmpVar := Unassigned;
  end;
end;

去运行看看吧