Consulta Delphi

Producto: Delphi

Version: XE

Tengo un problema con la instrucción SysUtils.FileWrite en Delphi XE y consiste en que le envío la instrucción para que me escriba una línea en un fichero plano y escribe sólo la mitad pero con caracteres [Null] en medio de cada uno de ellos.

La instrucción sigue el ejemplo exacto del que se muestra en la ayuda:

La Línea que intenta escribir es:

’29/03/2011 09:42:01 PAGINADOR: PAGINADOR/INDEXADOR MODO AUTOMATICO’#$D#$A

Y la línea que escribe es:

2[null]9[null]/[null]0[null]3[null]/[null]2[null]0[null]1[null]1[null] [null]0[null]9[null]:[null]4[null]2[null]:[null]0[null]1[null] [null]P[null]A[null]G[null]I[null]N[null]A[null]D[null]O[null]R[null]:[null] [null]P[null]A

La función es:

Function fFileWriteString(aFileHandle: Integer;
aBuffer : String;
aCount : LongWord): Boolean;
Var bBuffer: PChar;
i : Integer;
Begin
Result := True;
Try
GetMem(bBuffer, aCount); // Allocate the buffer.

For i := Uno to aCount do
bBuffer[i – Uno] := aBuffer[i];

i := SysUtils.FileWrite(aFileHandle, bBuffer^, aCount);

If i < Cero then
Result := False;
Finally
FreeMem(bBuffer, aCount);
End; // Try
end; // Funct


 

Respuestas

La función FileWrite es una función directa de Windows que se mapea en Delphi, la función concreta es WriteFile de la librería de Windows Kernel32.dll con la siguiente Invocación

WriteFile (Thandle(Handle), Buffer, Count, LongWord(Result), nil);

Para el comportamiento extraño que describe el no se me ocurre nada más que dos explicaciones:

1- Que esté desarrollando sobre un sistema operativo no soportado, https://danysoft.com/free/Delphi_Datasheet_A4.pdf
2- Que el manejador del fichero se haya creado como un fichero de strings ANSI y no UNICODE. De todas maneras esta última no explicaría por qué unas veces sí y otras no.

He podido notar que se muestra la cadena por la mitad pero correctamente, si el tamaño (aCount) es un Número Par (aunque el tamaño del string escrito en realidad es completo, o sea que los nulos los pasa al final), en cambio si el tamaño es un número Impar, se muestra la cadena de igual tamaño, pero con los [Null] incorporados, como en el ejemplo que he mostrado.

Este fallo no me aparece en Delphi 7.


Artículos Relacionados

¡Celebra con Danysoft el 29 aniversario de Delphi!

En este caso vamos a adentrarnos en los controles de Konopka, que dada su alta calidad han sido ampliamente utilizados199355

16/01/2024

Seguir leyendo  

Promoción RAD Studio 12

Consigue tus licencias Delphi y C++Builder en las mejores condiciones. Te ofrecemos el mejor precio del mercado y el valor añadido para que incorpores sus ventajas lo antes posible. 161079

06/12/2023

Seguir leyendo  

Novedades de RAD Studio 12 Atenas

Acompáñenos en esta presentación en directo donde hablaremos sobre los detalles de la nueva versión de RAD Studio.198533

22/11/2023

Seguir leyendo  

Nuevas características de Delphi 12: Skia4Delphi

En Delphi 12 nos encontramos con la integración del motor de renderizado multiplataforma Skia, en FireMonkey.198439

21/11/2023

Seguir leyendo  

0 comentarios

Dejar un comentario

¿Quieres unirte a la conversación?
¡Siéntete libre de contribuir!

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *