Delphi AMF

Delphi的AMF格式代码。 TAMF3Stream = class(TAMFBaseStream) private type TAMFCache<T> = class private FIndex: Integer; FCache: TDictionary<T, Integer>; 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<string>; FObjectsCache: TAMFCache<Pointer>; FStringCache: TAMFCache<UTF8String>; procedure PackInteger(AnInteger: Integer); procedure PackUTF8String(AnUTF8String: UTF8String); procedure PackObjectTraitsHeader(IsDynamic: Boolean; IsExternalizable: Boolean; Members: Integer); procedure PackTraitsRef(ATraitRef: Integer);