帮忙给看看关于映射的代码吧,初学内存映射

Question

在网上搜到一段代码如下：
var
  s:string;
  fh,hfile:Thandle;
  fsize,i:integer;
  pfile,f:pbyte;
begin
  fh:=fileopen('d:/mytext.txt',fmopenreadwrite);
  if fh=0 then
     raise exception.create('无法打开')；
  fsize:=getfilesize(fh,nil);
  hfile:=createfilemapping(fh,nil,page_readwrite,0,fsize,'myfile');
  if hfile=0 then
     raise exception.create('无法创建');
  pfile:=mapviewoffile(hfile,file_map_all_access,0,0,fsize+length(s));
  if pfile=0 then
     raise exception.create('无法映射');
  p:=pfile;
  p:=pbyte(dword(p)+fsize);
  for i:=1 to length(s) do
   begin
    p^:=byte(s[i]);
    inc(p,1);
   end;
  ........
end;   我看了不明白到底把什么映射到内存去了？是打开的mytext.txt吗？，还是什么？？高手给我看看吧，本人正在学习中

Answer 1

createfilemapping 创建一个文件映射，并返回映射句柄
mapviewoffile 这个才是用映射句柄在进程的地址空间映射一个文件视图

Answer 2

是一份在内存中的指定大小的文件块映射，文件的大小和偏移由自己设定可以简单理解为，先把指定大小的文件读入内存作为内存映射，操作完毕后再写回文件
可以看这里
http://msdn.microsoft.com/en-us/library/aa366761(VS.85).aspx

Answer 3

谢谢各位，我基本入点门了。假若把s赋值，s:='22113115jdklajslfjoa';
这个时候映射到内存的是s的内容呢？还是mytext.txt文本文件的内容？？？很茫然呀！这里是把S的内容写入mytext.txt里。那么反过来，我要从mytext.txt文本中用映射读出来，又怎么使用映射呢？给点可行的代码，行不？？高手指点一下吧，小妹谢谢了

Answer 4

建议LZ上msdn仔细看下该函数的说明

Answer 5

  是不是mytext.txt文本哟。半天看不懂哎。哥，能给点可行的代码吗？指针读取数据，实在搞不懂哎。谢了。