Files
kolmck/Addons/ULZMACommon.pas
dkolmck 8a71ebf5bc addons update
git-svn-id: https://svn.code.sf.net/p/kolmck/code@67 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
2010-10-04 12:58:59 +00:00

32 lines
633 B
ObjectPascal

unit ULZMACommon;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
interface
uses KOL;
type TLZMAProgressAction=(LPAMax,LPAPos);
TLZMAProgress=procedure (const Action:TLZMAProgressAction;const Value:int64) of object;
function ReadByte(const stream:PStream):byte;
procedure WriteByte(const stream:PStream;b:byte);
const CodeProgressInterval = 50;//approx. number of times an OnProgress event will be fired during coding
implementation
function ReadByte(const stream:PStream):byte;
begin
stream.Read(result,1);
end;
procedure WriteByte(const stream:PStream;b:byte);
begin
stream.Write(b,1);
end;
end.