?? aplibu.pas
字號:
(*
* aPLib compression library - the smaller the better :)
*
* Delphi interface to aPLib Delphi objects
*
* Copyright (c) 1998-2004 by Joergen Ibsen / Jibz
* All Rights Reserved
*
* http://www.ibsensoftware.com/
*
* -> Delphi by Solodovnikov Alexey 21.03.1999 (alenka@mail.line.ru)
*)
unit aPLibu;
interface
uses
Windows;
const
aP_pack_break : DWORD = 0;
aP_pack_continue : DWORD = 1;
aPLib_Error : DWORD = DWORD(-1); (* indicates error compressing/decompressing *)
type
TaPack_Status = function(w0, w1, w2 : DWORD;
cbparam : Pointer) : DWORD;cdecl;
function _aP_pack(var Source;
var Destination;
Length : DWORD;
var WorkMem;
Callback : TaPack_Status;
cbparam : Pointer) : DWORD;cdecl;
function _aP_workmem_size(InputSize : DWORD) : DWORD;cdecl;
function _aP_max_packed_size(InputSize : DWORD) : DWORD;cdecl;
function _aP_depack_asm(var Source, Destination) : DWORD;cdecl;
function _aP_depack_asm_fast(var Source, Destination) : DWORD;cdecl;
function _aP_depack_asm_safe(var Source;
SrcLen : DWORD;
var Destination;
DstLen :DWORD) : DWORD;cdecl;
function _aP_crc32(var Source; Length : DWORD) : DWORD;cdecl;
function _aPsafe_pack(var Source;
var Destination;
Length : DWORD;
var WorkMem;
Callback : TaPack_Status;
cbparam : Pointer) : DWORD;cdecl;
function _aPsafe_check(var Source) : DWORD;cdecl;
function _aPsafe_get_orig_size(var Source) : DWORD;cdecl;
function _aPsafe_depack(var Source;
SrcLen : DWORD;
var Destination;
DstLen :DWORD) : DWORD;cdecl;
implementation
function _aP_pack(var Source;
var Destination;
Length : DWORD;
var WorkMem;
CallBack : TaPack_Status;
cbparam : Pointer) : DWORD;external;
function _aP_workmem_size(InputSize : DWORD) : DWORD;external;
function _aP_max_packed_size(InputSize : DWORD) : DWORD;external;
function _aP_depack_asm(var Source, Destination) : DWORD;external;
function _aP_depack_asm_fast(var Source, Destination) : DWORD;external;
function _aP_depack_asm_safe(var Source;
SrcLen : DWORD;
var Destination;
DstLen :DWORD) : DWORD;external;
function _aP_crc32(var Source; Length : DWORD) : DWORD;external;
function _aPsafe_pack(var Source;
var Destination;
Length : DWORD;
var WorkMem;
CallBack : TaPack_Status;
cbparam : Pointer) : DWORD;external;
function _aPsafe_check(var Source) : DWORD;external;
function _aPsafe_get_orig_size(var Source) : DWORD;external;
function _aPsafe_depack(var Source;
SrcLen : DWORD;
var Destination;
DstLen :DWORD) : DWORD;external;
{$L obj\aplib.obj}
{$L obj\depack.obj}
{$L obj\depackf.obj}
{$L obj\depacks.obj}
{$L obj\crc32.obj}
{$L obj\spack.obj}
{$L obj\scheck.obj}
{$L obj\sgetsize.obj}
{$L obj\sdepack.obj}
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -