JSON Server:
[code delphi]

type
{$MethodInfo ON}
TDSServerModule1 = class(TDSServerModule)
SQLDataSet1: TSQLDataSet;
SQLConnection1: TSQLConnection;
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
private
{ Private declarations }
public
{ Public declarations }
function GetData(ASQL: String): TDataSet;
end;
{$MethodInfo OFF}


function TDSServerModule1.GetData(ASQL: String): TDataSet;
begin
Self.ClientDataSet1.Close;
Self.DataSetProvider1.Options:= DataSetProvider1.Options [poAllowCommandText];
Self.ClientDataSet1.CommandText:= ASQL;
Self.ClientDataSet1.Active:= True;
Self.ClientDataSet1.FindFirst;
Result:= Self.ClientDataSet1;
end;
[/code]


JSON Clinet:

[code delphi]
procedure TMainForm.IWButton1Click(Sender: TObject);
begin
UserSession.ClientDataSet1.Close;
UserSession.SqlServerMethod1.ServerMethodName:= 'TDSServerModule1.GetData';
UserSession.SqlServerMethod1.ParamByName('ASQL').Value:= IWEdit1.Text;
UserSession.SqlServerMethod1.ExecuteMethod;
UserSession.ClientDataSet1.Active:= True;
end;
[/code]


當我執行Client 端時 會出現
Project XXX.exe raised exception class EDatabaseError with 'SqlServerMethod1:Parameter 'ASQL' not found'.
想請問怎麼會不認識'ASQL' ???

=Tks=

編輯記錄