unit filemap;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
fileName = 'myTest.txt';
type
TForm1 = class(TForm)
btnUpper: TButton;
btnLower: TButton;
txtContent: TMemo;
Label1: TLabel;
btnClose: TButton;
procedure FormCreate(Sender: TObject);
procedure btnUpperClick(Sender: TObject);
procedure btnLowerClick(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
public
UCase:Boolean;
procedure ChangeFileCase;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// 全文中的txtContent.Lines.LoadFromFile(fileName)其目的只是为了显示文件修改结果
procedure TForm1.FormCreate(Sender: TObject);
begin
txtContent.Clear();
txtContent.Lines.LoadFromFile(fileName);
//缺省将其转变为大写
UCase := True;
end;
procedure TForm1.btnUpperClick(Sender: TObject);
begin
UCase := true;
ChangeFileCase;
end;
procedure TForm1.btnLowerClick(Sender: TObject);
begin
UCase := false;
ChangeFileCase;
end;
procedure Tform1.ChangeFileCase;//这个是本示例文件的核心运算部分
var
FFileHandle : THandle;
FMapHandle : THandle;
FFileSize : Integer;
FData : PByte;
PData : PChar;
begin
//-------------------1 判断文件是否存在----------------------//
if not FileExists(fileName) then
raise Exception.Create('文件不存在!')
else
//-------------------2 使用FileOpen获取一个文件HANDLE--------//
FFileHandle := FileOPen(fileName,fmOPenReadWrite);
//如果创建文件失败,就抛出一个异常
if FFileHandle = INVALID_HANDLE_VALUE then
raise Exception.Create('打开或创建文件失败!');
//-------------------3 使用CreateFileMapping创建一个刚才用FileOpen创建的HANDLE的文件映射对象--
-//
try
FFileSize := GetFileSize(FFileHandle,nil);
FMapHandle := CreateFileMapping(FFileHandle,nil,PAGE_READWRITE,0,FFileSize,nil);
if FMapHandle = 0 then
raise Exception.Create('创建内存映射文件失败!');
finally
CloseHandle(FFileHandle);
end;
//-------------------4 使用MapViewOfFile创建一个CreateFileMapping建立的HANDLE的映射文件的视图到
进程的地址空间------//
try
FData := MapViewOfFile(FMapHandle,FILE_MAP_ALL_ACCESS,0,0,FFileSize);
if FData = nil then
raise Exception.Create('映射文件失败!');
finally
CloseHandle(FMapHandle);
end;
//-------------------5 对MapViewOfFile返回的指针做相应的运算操作------//
try
PData := PChar(FData);
inc(PData,FFileSize);
PData^ := #0;
if UCase then
StrUpper(PChar(FData))
else
StrLower(PChar(FData));
finally
//-------------------6 取消文件视图的映射------//
UnmapViewOfFile(FData);
end;
txtContent.Lines.Clear();
txtContent.Lines.LoadFromFile(fileName);
end;
procedure TForm1.btnCloseClick(Sender: TObject);
begin
Form1.Close();
end;
end.
{
//-------------------------------------------------------//
在做指针具体运算时,可以采用这样直接获取该指针处的某一类型的值
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
p: Pointer;
begin
i := 12345678;
p := @i;
showmessage(inttostr(integer(p))); //俺的电脑上1242664,这是一个地址
showmessage(inttostr(Pinteger(p)^)); //12345678
showmessage(inttostr(PWord(p)^)); //24910
end;
Pinteger(p)^表示指针P处取得一个Integer值
PWord(p)^表示指针P处取得一个Word值
在windows.pas和system.pas中还定义了很多指针类型如下
PInteger = ^Integer; {$NODEFINE PInteger} { defined in sysmac.h }
PCardinal = ^Cardinal;
PWord = ^Word;
PSmallInt = ^SmallInt; {$NODEFINE PSmallInt} { defined in sysmac.h }
{$POINTERMATH ON}
PByte = ^Byte; {$NODEFINE PByte} { defined in sysmac.h }
{$POINTERMATH OFF}
PShortInt = ^ShortInt; {$NODEFINE PShortInt} { defined in sysmac.h }
PInt64 = ^Int64; {$NODEFINE PInt64} { defined in sysmac.h }
PUInt64 = ^UInt64;
PLongWord = ^LongWord; {$NODEFINE PLongWord} { defined in sysmac.h }
PSingle = ^Single; {$NODEFINE PSingle} { defined in sysmac.h }
PDouble = ^Double; {$NODEFINE PDouble} { defined in sysmac.h }
PDate = ^Doub