ulzmacommon.pas

来自「这原本是delphi7的7-zip元件安装包, 我因为工作需要自己改成了在La」· PAS 代码 · 共 32 行

unit ULZMACommon;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

uses Classes;

type TLZMAProgressAction=(LPAMax,LPAPos);
     TLZMAProgress=procedure (const Action:TLZMAProgressAction;const Value:int64) of object;

function ReadByte(const stream:TStream):byte;
procedure WriteByte(const stream:TStream;const b:byte);

const CodeProgressInterval = 50;//approx. number of times an OnProgress event will be fired during coding

implementation

function ReadByte(const stream:TStream):byte;
begin
stream.Read(result,1);
end;

procedure WriteByte(const stream:TStream;const b:byte);
begin
stream.Write(b,1);
end;

end.