Delphi内存映射文件例子.docVIP

Delphi内存映射文件例子 Delphi内存映射文件例子 收藏 unit FileMap; interface uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,StdCtrls,Dialogs; type TFileMap=class(TComponent) private FMapHandle:THandle; //内存映射文件句柄 FMutexHandle:THandle; //互斥句柄 FMapName:string; //内存映射对象 FSynchMessage:string; //同步消息 FMapStrings:TStringList; //存储映射文件信息 FSize:DWord; //映射文件大小 FMessageID:DWord; //注册的消息号 FMapPointer:PChar; //映射文件的数据区指针 FLocked:Boolean; //锁定 FIsMapOpen:Boolean; //文件是否打开 FExistsAlready:Boolean; //是否已经建立过映射文件 FReading:Boolean; //是否正在读取内存文件数据 FAutoSynch:Boolean; //是否同步 FOnChange:TNotifyEvent; //当内存数据区内容改变时 FFormHandle:Hwnd; //存储本窗口的窗口句柄 FPNewWndHandler:Pointer; FPOldWndHandler:Pointer; procedure SetMapName(Value:string); procedure SetMapStrings(Value:TStringList); procedure SetSize(Value:DWord); procedure SetAutoSynch(Value:Boolean); procedure EnterCriticalSection; procedure LeaveCriticalSection; procedure MapStringsChange(Sender:TObject); procedure NewWndProc(var FMessage:TMessage); public constructor Create(AOwner:TComponent);override; destructor Destroy;override; procedure OpenMap; procedure CloseMap; procedure ReadMap; procedure WriteMap; property ExistsAlready:Boolean read FExistsAlready; property IsMapOpen:Boolean read FIsMapOpen; published property MaxSize:DWord read FSize write SetSize; property AutoSynchronize:Boolean read FAutoSynch write