Post by I THi,
Does anyone know what Blockwrite() is doing? I need to rewrite this
function in C# .NET. Please help.
Thanks!
I
I only have the german description from TP Help. I hope its useful anyway.
------------
BlockWrite Prozedur
------------
Schreibt einen oder mehrere Records aus einer
Puffervariablen. f steht für eine untypisierte
Datei, buf für die Puffervariable. Count gibt
die Anzahl der zu schreibenden Records an, der
optionale Parameter result liefert die Anzahl
der tatsächlich geschriebenen Records zurück.
(count <> result --> Diskette voll). Maximal
können mit einem Aufruf von BlockWrite 64
KByte Daten geschrieben werden.
Syntax:
BlockWrite(var f: file; var buf; count: Word
var result: Word])
Siehe auch:
BlockRead
{ Example for BlockRead and BlockWrite }
program CopyFile;
{ Simple copy program w/NO error checking }
var
FromF, ToF: file;
NumRead, NumWritten: Word;
buf: array[1..2048] of Char;
begin
{ Open input file }
Assign(FromF, ParamStr(1));
{ Record size = 1 }
Reset(FromF, 1);
{ Open output file }
Assign(ToF, ParamStr(2));
{ Record size = 1 }
Rewrite(ToF, 1);
WriteLn('Copying ', FileSize(FromF),
' bytes...');
repeat
BlockRead(FromF,buf,
SizeOf(buf),NumRead);
BlockWrite(ToF,buf,NumRead,NumWritten);
until (NumRead = 0) or
(NumWritten <> NumRead);
Close(FromF);
Close(ToF);
end.