【文件属性】:
文件名称:Delphi AMF
文件大小:104KB
文件格式:ZIP
更新时间:2015-09-12 16:39:34
Delphi AMF
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);
【文件预览】:
zedalaye-Delphi-AMF-0fd1f1c
----AMF.Types.pas(1KB)
----.gitignore(39B)
----AMF.res(292KB)
----AMF.Main.dfm(897B)
----AMF.Test.Runner.pas(11KB)
----AMF.Message.pas(18KB)
----AMF.dpr(333B)
----AMF.dproj(9KB)
----fixtures()
--------objects()
--------request()
----AMF.Main.pas(1KB)