1

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%''

9
  • Consegue debuggar para ver em que momento o script fica errado? Commented 3/07/2018 às 14:09
  • Tentei, nesse ponto: FgetComandoSQLCommand.Parameters[0].Value.SetWideString(ASQL); Nao entra no método para ver como esta fazendo o Set... Commented 3/07/2018 às 14:37
  • 1
    Tente utilizar UTF8Encode(_SQL), talvez seja apenas isto... Commented 3/07/2018 às 14:37
  • Sem sucesso.. mesmo resultado Commented 3/07/2018 às 19:21
  • 1
    @MagnoCosta, você envia um SQL para o servidor executar via DataSnap?... não era mais fácil deixar o servidor fazer isso recebendo um código que referencie esse SQL. Commented 4/07/2018 às 11:58

1 Resposta 1

1

Isso acontece porque é feito de forma automática um encode da sua URL.

Resumindo, para você passar %FAZENDA% teria que ser %25FAZENDA%25, porque o caractere % é representado por %25.

Isso não é do Delphi tá... qualquer linguagem vai acontecer isso.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .