PAnsiChar mit write in Datei schreiben

[Viktorii]

Hallo,

ich möchte mit Delphi 2009 eine Funktion nachbilden. Hier bekomme ich unter anderem folgende Parameter: buf: PAnsiChar; len: Longint

buf ist ein Buffer (bzw. der Zeiger) in dem Werte stehen und len ist die Anzahl der Werte. Nun möchte ich diese Werte in eine Datei schreiben.

Ich weiss nur nicht wie.

buf direkt an write übergeben kann ja eigentlich nicht funktionieren, da dann ja nicht klar ist wie viel geschrieben werden muss. Habe verschiedene Sachen erfolglos versucht. Unter anderem zB Typecasts:

Delphi-Quellcode:

type
  TBuf        = array[0..10000] of AnsiChar;

for i := 0 to len - 1 do
  write(FileHandle, TBuf(buf^)[i]);

Wie mache ich es richtig?
Vielen Dank

[SirThornberry]

mit einem Stream würde es so aussehen:

Delphi-Quellcode:

YourStream(YourBuffer^, number_of_bytes);

[coollupo]

Hi, such mal hier im Forum nach "BlockWrite". Da bekommst Du schon jede Menge Hinweise.

var
WrittenBytes : integer;
DestFile : file;


..
{$I-}
BlockWrite(DestFile,buf^[0],10000,WrittenBytes);
{$I+}

if (IOResult<>0) then exit;

if (WrittenBytes<>10000) then exit;
..