@ds-sampaio chegou a testar esse código no Lazarus?

@viniciussanchez No lazarus não cheguei a testar

Eu acho que essa alteração não é tão simples assim, desta forma está limitando a codificação em UTF-8, e por algum motivo pode estar sendo enviado no body um text com encoding ASCII que pode gera erro de codificação.

O problema não está no Horse, é sim na unit Web.HTTPApp.pas que faz o parse do body, verifica como está na tua versão do Delphi, estou usando o Delphi RIO 10.3.3.

Sim... eu vejo alguns reclamando de problemas de encode mas realmente usamos aqui e até hoje sem problemas com acentuação. Pode realmente ser algum problema na versão do Delphi mesmo.

Sim... eu vejo alguns reclamando de problemas de encode mas realmente usamos aqui e até hoje sem problemas com acentuação. Pode realmente ser algum problema na versão do Delphi mesmo.

Uma alternativa é criar um overload da função Body passando um TEncoding, assim não fica engessado a codificação, por exemplo:

function Body(const Encoding: TEncoding): string; overload; virtual;

function THorseRequest.Body(const Encoding: TEncoding): string;
begin
  {$IF DEFINED(FPC)}
  Result := Body; // Tem que ver no Lazarus qual a classe de Encoding disponível, como default está retornando o Body
  {$ELSE}
  {$IF CompilerVersion <= 31.0}
  Result := Encoding.GetString(BytesOf(FWebRequest.RawContent));
  {$ELSE}
  Result := Encoding.GetString(FWebRequest.RawContent);
  {$ENDIF}
  {$ENDIF}
end;

Então na minha versão do delphi que é o Seatlle ta diferente do teu Delphi Rio.
Veja:

antoniojmsjr Essa solução de criar um overload function Body(const Encoding: TEncoding): string; overload; virtual;
atende ao que preciso, posso realizar a alteração e enviar o PR?

antoniojmsjr Essa solução de criar um overload function Body(const Encoding: TEncoding): string; overload; virtual; atende ao que preciso, posso realizar a alteração e enviar o PR?

O bom seria a gente identificar a classe de Encoding que tem disponível no Lazarus para implementar essa alteração também, no momento estou de férias e não vou consegui te ajudar agora, só na volta.

antoniojmsjr Essa solução de criar um overload function Body(const Encoding: TEncoding): string; overload; virtual; atende ao que preciso, posso realizar a alteração e enviar o PR?

Fiz um teste aqui no Lazarus e achei uma maneira de fazer o enconding:

function THorseRequest.Body(const Encoding: TEncoding): string;
{$IF DEFINED(FPC)}
var
  lContent: TStringStream;
{$ENDIF}
begin
  {$IF DEFINED(FPC)}
  try
    lContent := TStringStream.Create(FWebRequest.Content, Encoding);
    Result := lContent.DataString;
  finally
    lContent.Free;
  end;
  {$ELSE}
  {$IF CompilerVersion <= 31.0}
  Result := Encoding.GetString(BytesOf(FWebRequest.RawContent));
  {$ELSE}
  Result := Encoding.GetString(FWebRequest.RawContent);
  {$ENDIF}
  {$ENDIF}
end;

Compilado com sucesso Lazarus: ✅
Compilado com sucesso Delphi Rio: ✅
Compilado com sucesso Delphi Seatlle: ⁉️ - Consegue testar @ds-sampaio?

@antoniojmsjr Realizei o teste e funcionou perfeitamente no Delphi Seatlle

@antoniojmsjr Realizei o teste e funcionou perfeitamente no Delphi Seatlle

Blz, altera os fontes e faz o commit.

@antoniojmsjr Acabei de realizar o commit
@viniciussanchez