mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-18 06:38:20 +02:00
32 lines
566 B
ObjectPascal
32 lines
566 B
ObjectPascal
Program testz2;
|
|
|
|
uses zstream;
|
|
|
|
const
|
|
{$ifdef unix}
|
|
eol=#10;
|
|
{$else}
|
|
eol=#10#13;
|
|
{$endif}
|
|
|
|
Var F : TGZfileStream;
|
|
S : String;
|
|
i :longint;
|
|
c : char;
|
|
begin
|
|
Writeln ('Creating file.');
|
|
S:='This is a sentence'+eol;
|
|
F:=TGZFileStream.create('test.gz',gzopenWrite);
|
|
For I:=1 to 10 do
|
|
F.Write(S[1],Length(S));
|
|
f.Free;
|
|
Writeln ('Done.');
|
|
Writeln ('Reopening file for read.');
|
|
F:=TGZFileStream.Create('test.gz',gzopenread);
|
|
Writeln ('Dumping contents:');
|
|
While F.Read(C,SizeOf(c))<>0 do
|
|
write(c);
|
|
F.free;
|
|
Writeln('Done.');
|
|
end.
|