Cita:
Empezado por ARPE1
Hola y muchas gracias por la respuesta. He llegado a un momento en el que dudo de todo, as que creo que eso tambin lo he probado. Entre otras formas de esta, ya no s si ser correcta o no:
Cdigo Delphi [-] slXML := TStringList.Create;
Try
slXML.LoadFromFile('test_TBAI.xml');
slXML.SaveToFile('test_TBAI_utf8.xml', TEncoding.UTF8);
Finally
slXML.Free;
end;
Haciendo ese paso previo (tambin probado con la clase "TUTF8NoBOMEncoding" que indicaba un delphiano de este mismo foro) la respuesta es:
Cdigo:
<Codigo>002</Codigo>
<Descripcion>Error: El fichero de alta TicketBAI no cumple el esquema XSD. No se ha podido procesar el mensaje. Detalle del error: Content is not allowed in prolog.</Descripcion>
Un saludo
|
Da igual que lo intentes codificar si tiene caracteres invlidos para la codificacin te va a poner otra.
Es mejor que conviertas previamente los caracteres raros. Yo tenia problemas con esto porque lo genero lo guardo y luego lo vuelvo a leer y en ese me momento me cambia la codificacin como tenga cosas raras.
Cdigo:
'
Texto = Replace(Texto, "", "‘")
Texto = Replace(Texto, "", "ñ")
'
Texto = Replace(Texto, "", "Á")
Texto = Replace(Texto, "", "á")
'
Texto = Replace(Texto, "", "‰")
Texto = Replace(Texto, "", "é")
'
Texto = Replace(Texto, "", "Í")
Texto = Replace(Texto, "", "*")
'
Texto = Replace(Texto, "", "“")
Texto = Replace(Texto, "", "ó")
'
Texto = Replace(Texto, "", "š")
Texto = Replace(Texto, "", "ú")
'
Texto = Replace(Texto, "", "œ")
Texto = Replace(Texto, "", "ü")
'
Texto = Replace(Texto, "", "ª")
'
Texto = Replace(Texto, "", "º")
'&
Texto = Replace(Texto, "&", "&")
Texto = Replace(Texto, "", "ç")
Texto = Replace(Texto, "", "‡")
'
Texto = Replace(Texto, "", "ö")
Texto = Replace(Texto, "", "–")
Texto = Replace(Texto, "", "´")