Uso del SysUtils.FileWrite. ¿Cómo?

[metalfox6383]

Hola:

Quisiera saber cómo utilizo la función SysUtils.FileWrite para escribir en un archivo ya abierto. Tengo delphi 2010.

Gracias.

[[escafandra]]

No se trata de una función de la API de Windows si no una función de delphi:

Writes the contents of a buffer to the current position in a file.

Unit

SysUtils

Category

file management routines

Delphi syntax:

function FileWrite(Handle: Integer; const Buffer; Count: Integer): Integer;

C++ syntax:

extern PACKAGE int __fastcall FileWrite(int Handle, const void *Buffer, unsigned Count);

Description

FileWrite writes Count bytes to the file given by Handle from the buffer specified by Buffer. Handle is a file handle returned by the FileOpen or FileCreate method.

The return value is the number of bytes actually written, or -1 if an error occurred.

: Do not mix routines that take or return file handles with those that use Delphi language file variables (typically seen as var F). To write to a file specified by a Delphi file variable, use Write, Writeln, or BlockWrite instead.

Saludos.

[metalfox6383]

El texto que acabas de citar ya lo había leído de la documentación del programa. Quisiera que alguien con experiencia con esta función me enseñe a usarla, porque hay varias cosas que no entiendo del texto de ayuda. Como por ejemplo: el Buffer.

Simplemente busco un ejemplo de alguien que ya lo sepa usar.

Gracias.

[[escafandra]]

Código Delphi [-]
var
  hFile: THandle;
begin
  hFile:=  CreateFile('Fichero.txt' , GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
  FileWrite(hFile, 'Hola', 4);
  CloseHandle(hFile);
end;

Saludos.

[Ñuño Martínez]

Empezado por escafandra

No se trata de una función de la API de Windows si no una función de delphi:

Tienes razón, así que lo he movido a otra sección más adecuada.

[cloayza]

Mira el enlace hay un ejemplo completo para C++Buider y Delphi...

http://docs.embarcadero.com/products...FileWrite.html

Saludos

!!!Que hariamos sin google!!!

[metalfox6383]

Muchas gracias. Los ejemplos me has sido ilustrativos.