Estou com um problema: Tenho um servidor datasnap/rest, no mesmo tenho o seguinte metodo:
Function TServerMethods.getComandoSQL(ASQL: string): TFDJSONDataSets;
begin
qryComando.Active := False;
qryComando.SQL.Clear;
qryComando.SQL.Add(ASQL);
Result := TFDJSONDataSets.Create;
TFDJSONDataSetsWriter.ListAdd(Result, qryComando);
end;
O método criado pelo próprio delphi no cliente:
function TServerMethodsClient.getComandoSQL(ASQL: string; const ARequestFilter: string): TFDJSONDataSets;
begin
if FgetComandoSQLCommand = nil then
begin
FgetComandoSQLCommand := FConnection.CreateCommand;
FgetComandoSQLCommand.RequestType := 'GET';
FgetComandoSQLCommand.Text := 'TServerMethods.getComandoSQL';
FgetComandoSQLCommand.Prepare(TServerMethods_getComandoSQL);
end;
FgetComandoSQLCommand.Parameters[0].Value.SetWideString(ASQL);
FgetComandoSQLCommand.Execute(ARequestFilter);
if not FgetComandoSQLCommand.Parameters[1].Value.IsNull then
begin
FUnMarshal := TDSRestCommand(FgetComandoSQLCommand.Parameters[1].ConnectionHandler).GetJSONUnMarshaler;
try
Result := TFDJSONDataSets(FUnMarshal.UnMarshal(FgetComandoSQLCommand.Parameters[1].Value.GetJSONValue(True)));
if FInstanceOwner then
FgetComandoSQLCommand.FreeOnExecute(Result);
finally
FreeAndNil(FUnMarshal)
end
end
else
Result := nil;
end;
Ao solicitar esse metodo no cliente:
var
dataset: TFDJSONDataSets;
begin
dataset := DataModule1.ServerMethodsClient.getComandoSQL( _SQL )
self.AppendData( TFDJSONDataSetsReader.GetListValue(dataset, 0) );
end;
Até ai tudo bem, o problema é quando envio um sql do tipo: select codigo, descricao from tabela where descricao like '%AD%'
No servidor fica: select codigo, descricao from tabela where descricao like ''�%''
Isso acontece com AD, FA, FE entre outros... se coloca por exemplo %FAZENDA% o resultado é ''�ZENDA%''