F�rum RAD XE10 - XMLDocument - Encoding UTF-8 #554377

24/05/2016

Ol� Amigos,
Estou precisando de uma ajudinha.
Possuo 2 aplica��o desenvolvida no RAD XE2. Uma tem como objeto a digita��o de dados que ser�o gravados em um arquivo XML e a outra, respons�vel por ler, validar e importar o XML gerado para o Banco de Dados.
Resolvi testar o Rad XE10 Seatle e recompilei as aplica��es. Quase tudo funciona, mas na hora de importar os dados a vers�o compilada no XE10 n�o reconhece o encoding (UTF-8).
Se eu exportar pela vers�o do XE10 e importar pela vers�o compilada no XE2 funciona normalmente.

Para importa e gerar os arquivo XML eu utilizei o XML Mapper para criar um arquivo de configura��o (xtr). Quando testo a importa��o dos dados do XML dentro do XML Mapper, ele me exibe os carcteres corretamente (�, �, etc).
Para importa��o de dados utilizo um XMLTransformProvider ("ligado" ao arquivo de configura��o xtr) , e o XMLTransformProvider � "ligado" a um clientdataset onde os dados s�o carregados. Acho que � neste ponto que o problema ocorre, pois quando visualizo os dados do clientdataset, eles aparecem incorretos (os carates especiais n�o s�o reconhecidos).

Se algu�m puder dar uma dica, fico grato.

Mcbatalha

Curtir t�pico

+ 0

Responder

Post mais votado

28/06/2016

Ol� Gilson,
com ajuda de um colaborador do stackoverflow, criei, momentaneamente, a rotina abaixo para resolver a quest�o at� que eu tenha tempo de pesquisar melhor uma solu��o definitiva.
Se vc ainda n�o resolveu, ela pode te ajudar.

procedure TFrm_Principal.Tratar_Campos_Com_UTF8(var Data_Set : TClientDataSet);
var i:integer;
    f:TField;
    s : string;
begin
   Data_Set.First;
   while not Data_Set.eof do
      begin
      Data_Set.Edit;
      for i:=0 to Data_Set.fields.count-1 do
      begin
         if (Data_Set.fields[i] is TStringField) or (Data_Set.fields[i] is TMemoField)  then
         begin
            f:= Data_Set.fields[i];
            s:= Utf8ToString(f.AsString);
            f.asstring := s;
         end;
      end;
      Data_Set.Post;

      Data_Set.Next;
   end;
   Data_Set.First;
end;

Espero ter ajudado.

Mcbatalha

Responder

Gostei + 2

Mais Posts

17/06/2016

Gilson Carmo

Ol� Meu amigo, estou com o mesmo problema que voc�, voce conseguiu encontrar solu��o para isso?

Obrigado

Responder

Gostei + 0

17/06/2016

Mcbatalha

Nada, ningu�m respondeu.
Estou "escrevendo" o c�digo para ler o XML na "unha"
Acho que o problema esta no CDTS, pois qdo testo a leitura em projeto (mostro o conte�do em um grid), vem certinho.
Se achar algo, n�o esquece de postar aki

Responder

Gostei + 0

28/06/2016

Gilson Carmo

Ol� McBatalha, muito obrigado pela ajuda.

Responder

Gostei + 1