wulengbing的专栏

Delphi的AMF格式代码。 TAMF3Stream = class(TAMFBaseStream) private type TAMFCache = class private FIndex: Integer; FCache: TDictionary; function GetIndex(const Obj: T): Integer; public constructor Create; destructor Destroy; override; procedure AddObject(const Obj: T); function HaveObject(const Obj: T): Boolean; property Index[const Obj: T]: Integer read GetIndex; default; end; private FTraitsCache: TAMFCache; FObjectsCache: TAMFCache; FStringCache: TAMFCache; procedure PackInteger(AnInteger: Integer); procedure PackUTF8String(AnUTF8String: UTF8String); procedure PackObjectTraitsHeader(IsDynamic: Boolean; IsExternalizable: Boolean; Members: Integer); procedure PackTraitsRef(ATraitRef: Integer);