F�rum ERRO ACENTUACAO - RAD STUDIO 10.2 E HTML #617775

18/03/2022

estou gerando um codigo html com rad studio 10.2 por�m sai um losango com uma interroga��o no lugar do "�" e acentos.

HTML := TSTringList.Create;
HTML.Add('<html lang=pt-br>');

HTML.Add(' <head>');
HTML.Add(' <title>O.S.</title>');
HTML.Add(' <meta charset="UTF-8">');
HTML.Add(' <meta name="viewport" content="width=device-width, initial-scale=1.0">');
HTML.Add(' </head>');
HTML.Add(' <body bgcolor=#FFFFFF link=#000000 vlink=#000000 alink=#B5B5B5>');
...

como posso resolver isso?

Joao Silva

Curtir t�pico

+ 0

Responder

Posts

22/03/2022

Raimundo Pereira

Fala Jo�o, tente assim.

  uses
  shellapi,

  var
  HTML: TStringList;
  Caminho: string;
  i: integer;
begin
  HTML := TStringList.Create;
  with HTML do
  begin
    try
      Caminho := GetEnvironmentVariable('TEMP') + '\\' + 'teste.html';

      Add('<html>');
      Add('<title>O.S.</title>');
      Add('<font size=4>Teste acentua��o em HTML-Delphi XE7</font>');
      Add('<meta charset = "UTF-8">');
      Add(' <meta name="viewport" content="width=device-width, initial-scale=1.0">');
      Add('<BR><BR>');

      //Adiciona todo conte�do do Memo no HTML
      for i := 0 to Memo_.Lines.Count - 1 do
      begin
        Add(UTF8Encode(Memo_.Lines[i])); //Permite acentua��o
        Add('</br>');
      end;

      Add('<body bgcolor=#FFFFFF link=#000000 vlink=#000000 alink=#B5B5B5>');
      Add('</html>');

      SaveToFile(Caminho, Encoding.UTF8);
      ShellExecute(Handle, 'open', Pchar(Caminho), nil, nil, SW_SHOWMAXIMIZED);
    finally
      Free;
    end;
  end;

Resultado no link

https://uploaddeimagens.com.br/imagens/vnzXnXQ

Responder

Gostei + 0

12/06/2022

Joao Silva

Resolvido. Muito obrigado!!!

Responder

Gostei + 0