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://www.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

Herramientas imprescindibles para extender la productividad con Delphi.

Este Webinar tratará sobre dos herramientas que permiten mejorar y facilitar el trabajo con Delphi.179455

02/12/2021

Seguir leyendo  

Promociones: Delphi y C++Builder 11 Alexandria

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

20/10/2021

Seguir leyendo  

Anuncian la versión 11 de Delphi, C++Builder y RAD Studio

Embarcadero anuncia que la versión 11 de Delphi, C++Builder y RAD Studio estarán disponibles a finales de año.176399

19/07/2021

Seguir leyendo  

El patrón repository en RAD Studio (18-06-2021)

Profundiza en el desarrollo con Delphi y C++Builder aunando las mejores herramientas con el mejor diseño de la aplicación.174621

31/05/2021

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 *