ulzmacommon.pas

Pascal lzma 算法实现,可以直接在delphi中使用,Delphi 2007 是用这个东西发包的

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.