// V 1.0 By Obbschtkuche
unit Packer;
interface
uses Classes, Windows;
procedure CompressFile(FileName:
string);
overload;
procedure CompressFile(sfrom, sto:
string);
overload;
procedure CompressFile(FileName:
string;
var pin: Pointer; pinsize: integer);
overload;
procedure DeCompressFile(FileName:
string);
overload;
procedure DeCompressFile(sfrom, sto:
string);
overload;
function DeCompressFile(filename:
string;
var pout: Pointer): integer;
overload;
procedure CompressStream(sIn, sOut: TStream);
procedure DeCompressStream(sIn, sOut: TStream);
function FileExists(
const FileName:
string): Boolean;
implementation
uses ZLib;
function DeCompressFile(filename:
string;
var pout: Pointer): integer;
var
f:
File of byte;
pIn: Pointer;
sizeRead,sizeWrite: integer;
begin
pIn :=
nil; pOut :=
nil;
assignfile(f, FileName);
reset(f);
try
getmem(pIn, FileSize(f));
BlockRead(f, pIn^, FileSize(f), sizeRead);
DeCompressBuf(pIn, sizeRead, sizeRead, pOut, sizeWrite);
result := sizeWrite;
finally
if pIn <>
nil then freemem(pIn);
CloseFile(f);
end;
end;
function FileExists(
const FileName:
string): Boolean;
var
f: TWin32FindData;
handle: THandle;
begin
handle := FindFirstFile(pChar(FileName), f);
result := (
handle <> INVALID_HANDLE_VALUE);
FindClose(
Handle);
end;
procedure CompressFile(FileName:
string;
var pin: Pointer; pinsize: integer);
var
f:
File of byte;
pOut: Pointer;
sizeWrite: integer;
begin
pOut :=
nil;
assignfile(f, FileName);
try
CompressBuf(pIn, pinsize, pOut, sizeWrite);
ReWrite(f);
BlockWrite(f, pOut^, sizeWrite);
finally
if pOut <>
nil then freemem(pOut);
CloseFile(f);
end;
end;
procedure CompressFile(FileName:
string);
overload;
var
f:
File of byte;
pIn,pOut: Pointer;
sizeRead,sizeWrite: integer;
begin
pIn :=
nil; pOut :=
nil;
assignfile(f, FileName);
reset(f);
try
getmem(pIn, FileSize(f));
BlockRead(f, pIn^, FileSize(f), sizeRead);
CompressBuf(pIn, sizeRead, pOut, sizeWrite);
ReWrite(f);
BlockWrite(f, pOut^, sizeWrite);
finally
if pIn <>
nil then freemem(pIn);
if pOut <>
nil then freemem(pOut);
CloseFile(f);
end;
end;
procedure DeCompressFile(FileName:
string);
overload;
var
f:
File of byte;
pIn,pOut: Pointer;
sizeRead,sizeWrite: integer;
begin
pIn :=
nil; pOut :=
nil;
assignfile(f, FileName);
reset(f);
try
getmem(pIn, FileSize(f));
BlockRead(f, pIn^, FileSize(f), sizeRead);
DeCompressBuf(pIn, sizeRead, sizeRead, pOut, sizeWrite);
ReWrite(f);
BlockWrite(f, pOut^, sizeWrite);
finally
if pIn <>
nil then freemem(pIn);
if pOut <>
nil then freemem(pOut);
CloseFile(f);
end;
end;
procedure CompressFile(sfrom, sto:
string);
overload;
begin
if FileExists(sto)
then DeleteFile(pchar(sto));
CopyFile(pchar(sfrom), pchar(sto), true);
CompressFile(sto);
end;
procedure DeCompressFile(sfrom, sto:
string);
overload;
begin
if FileExists(sto)
then DeleteFile(pchar(sto));
CopyFile(pchar(sfrom), pchar(sto), true);
DeCompressFile(sto);
end;
procedure CompressStream(sIn, sOut: TStream);
var
pIn,pOut: Pointer;
sizeRead,sizeWrite: integer;
begin
pIn :=
nil; pOut :=
nil;
try
getmem(pIn, sIn.size);
sIn.Position := 0;
sizeRead := sIn.
Read(pIn^, sIn.Size);
CompressBuf(pIn, sizeRead, pOut, sizeWrite);
sOut.
Write(pOut^, sizeWrite);
finally
if pIn <>
nil then freemem(pIn);
if pOut <>
nil then freemem(pOut);
end;
end;
procedure DeCompressStream(sIn, sOut: TStream);
var
pIn,pOut: Pointer;
sizeRead,sizeWrite: integer;
begin
pIn :=
nil; pOut :=
nil;
try
getmem(pIn, sIn.size);
sIn.Position := 0;
sizeRead := sIn.
Read(pIn^, sIn.Size);
DecompressBuf(pIn, sizeRead, sizeRead, pOut, sizeWrite);
sOut.
Write(pOut^, sizeWrite);
finally
if pIn <>
nil then freemem(pIn);
if pOut <>
nil then freemem(pOut);
end;
end;
end.