Error al guardar en una tabla un stream que contenga acentos

[CSIE]

Empezado por bucanero

Gracias CSIE por responder,

En distintas pruebas que he realizado para descartar el error, la lectura del fichero con el componente StreamReader es correcta, puesto que si vuelco el contenido de dicho StreamReader a un MEMO estos datos se ve perfectamente.

Un saludo

Eso no significa que esté bien.

Estás trabajando en todo momento con streams por lo que nuca se produce la conversión de ANSI a Unicode, el parámetro "stream" del método saveFile contiene un string ANSI, si luego te limitas a copiar (CopyFrom) este raw de bits a otro stream estarás copiando una cadena ANSI a una zona de memoria unicode,

Código Delphi [-]
CopyFrom(stream, stream.Size);

stream.Size será la longitud de una cadena ANSI no unicode, en cuanto a

Código Delphi [-]
FieldByName('datos').Value:='áéíóú';

estás asignando una cadena delphi (XE7) que es Unicode