Delphi内存映射文件例子

Delphi内存映射文件例子

Delphi内存映射文件例子.txt15成熟的麦子低垂着头，那是在教我们谦逊；一群蚂蚁能抬走大骨头，那是在教我们团结；温柔的水滴穿岩石，那是在教我们坚韧；蜜蜂在花丛中忙碌，那是在教我们勤劳。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;