Reading, writing binary files 1

[LucieLastic]

hi All

Need to read and write text (at the moment) as binary files.

Anyone got some examples, hints or tips?

many thanks
lou

 

[svanels]

There must be a FAQ about text, binary and other files in the pascal Forum

Regards Steven van Els
SAvanEls@cq-link.sr

 

[dogmaa]

here's a simple example I knocked up
to backup a file. It reads the whole text
file into a binary buffer and writes
it out again.


const
MAXFILESIZE = 10000;

type
TBigBuffer = array[0..MAXFILESIZE] of byte;


procedure DoSomethingWithBuffer( const Buff: TBigBuffer );
begin
// ????
end;

procedure CopyFileAtoB( const NameA, NameB: string );
var
Buffer: TBigBuffer;
SaveSize: integer;
A, B: TFileStream;
begin
FillChar( Buffer, SizeOf(Buffer), 0 );
try
A := TFileStream.Create( NameA, fmOpenRead+
fmShareDenyNone );
A.Position := 0;
A.Read( Buffer, A.Size );
finally
SaveSize := min( A.Size, ;
A.Free;
end;
DoSomethingwithBuffer( Buffer );
try
B := TFileStream.Create( NameB, fmCreate );
B.Position := 0;
B.Write( Buffer, SaveSize );
finally
B.Free;
end;
end;

 

[dogmaa]

sorry the min statement should read

savesize := min( A.Size, MAXFILESIZE );

 

[LucieLastic]

Thanks, guys!