Ler arquivo de texto online

[bnobre]

Olá a todos,

Estou lendo um arquivo de texto que hospedei em meu domínio, na verdade é um script SQL que executo em minha base local através de um componente ZSQLProcessor1. Para tal estou usando o tutorial do link abaixo:

http://blog.4each.com.br/blog/2015/06/11/delphi-ler-arquivo-texto-de-um-endereco-http/

O problema é que ao copiar o conteúdo para a variável S, as palavras acentuadas vem com caracteres estranhos.

Alguém pode me ajudar?

Desde já agradeço a atenção de todos

[Daniel Simoes]

Converta de UTF8 para ANSI ou UTF16 ( conforme a versão do seu Delphi)

[bnobre]

Resolvi com a dica do tópico abaixo:

http://www.activedelphi.com.br/forum/viewtopic.php?t=76510&sid=3efd77063b033dd9e6ae386e0fa4d1fb

3 minutos atrás, Daniel Simoes disse:

Converta de UTF8 para ANSI ou UTF16 ( conforme a versão do seu Delphi)

Oi Daniel... Tudo bom?

Como é feita essa conversão?

Meu Delphi é 2010, qual seria a diferença entre as versões ao fazer essas conversões?

[Daniel Simoes]

na ACBrUtil existem métodos para isso... veja:

function NativeStringToUTF8( AString : String ) : AnsiString;
function UTF8ToNativeString( AUTF8String : AnsiString ) : String;

 

[bnobre]

5 horas atrás, Daniel Simoes disse:

Converta de UTF8 para ANSI ou UTF16 ( conforme a versão do seu Delphi)

Obrigado Daniel... Mas você disse para eu usar as conversões acima de acordo com a versão do meu Delphi... Qual seria a diferença entre as versões de Delphi existentes?

[Daniel Simoes]

o método da ACBrUtil.UTF8ToNativeString, já cuida disso...

[bnobre]

Daniel, a nível de estudo abri o fonte para entender essa diferenciação das versões.

function UTF8ToNativeString(AUTF8String: AnsiString): String;
begin
  {$IfDef FPC}
   Result := AUTF8String;  // FPC usa UTF8 de forma nativa
  {$Else}
   {$IfDef UNICODE}
    {$IfDef DELPHI12_UP}  // delphi 2009 em diante
     Result := UTF8ToString(AUTF8String);
    {$Else}
     Result := UTF8Decode(AUTF8String);
    {$EndIf}
   {$Else}
    Result := Utf8ToAnsi(AUTF8String) ;
   {$EndIf}
  {$EndIf}
end;

Veja se eu entendi o código direito.

1 - Se for FPC usa o próprio padrão UTF8, correto? O que seria FPC?

2 - Se não for FPC e for UNICODE, e pertencer ao Delphi 2009 em diante usa UTF8ToString, correto?

3 - Se não for FPC e for UNICODE, mas abaixo do Delphi 2009, usa UTF8Decode, correto?

4 - Se não for FPC e nem for UNICODE, usa UTF8ToAnsi, correto? Qual Delphi por exemplo entraria nesse quesito?

Desculpe estender o assunto, mas essa dúvida me deixou inquieto.

Desde já agradeço a sua atenção.

[Daniel Simoes]

Sim.. é isso mesmo... mas observe que são diretivas de compilação... ou seja, em tempo de execução apenas uma das linhas será executada...

FPC = Free Pascal Compiler (Lazarus)