mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 13:33:49 +02:00
39 lines
758 B
ObjectPascal
39 lines
758 B
ObjectPascal
program decodeascii85;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils, ascii85;
|
|
|
|
var
|
|
B : TAscii85DecoderStream;
|
|
Fin,Fout : TFileStream;
|
|
Buf : Array[1..1024] of Byte;
|
|
FN : String;
|
|
Count : Integer;
|
|
|
|
begin
|
|
If (ParamCount=0) then
|
|
begin
|
|
Writeln('usage: decodeascii85 filename');
|
|
halt(1);
|
|
end;
|
|
FN:=ParamStr(1);
|
|
FIn:=TFileStream.Create(FN,fmOpenRead);
|
|
B:=TAscii85DecoderStream.Create(FIn);
|
|
try
|
|
FN:=ChangeFileExt(FN,'');
|
|
FOut:=TFileStream.Create(FN,fmCreate);
|
|
try
|
|
Repeat
|
|
Count:=B.Read(Buf,SizeOf(Buf));
|
|
If Count>0 then
|
|
FOut.WriteBuffer(Buf,Count);
|
|
Until (Count<SizeOf(Buf));
|
|
Finally
|
|
Fout.Free;
|
|
end;
|
|
finally
|
|
B.Free;
|
|
end;
|
|
end. |