内存文件读取，如何把c++代码转化为delphi代码（附源码）？(50分)

liu_sir · 2001-12-17

内容: HANDLE s_hFileMap;     LPVOID lpView; 1。打开   s_hFileMap = OpenFileMapping(FILE_MAP_READ | FILE_MAP_WRITE,                     FALSE,"xmldkd");     if(s_hFileMap != 0)         {      lpView = MapViewOfFile(s_hFileMap,              FILE_MAP_READ | FILE_MAP_WRITE,0,0,0);      if (lpView == NULL)         {         ShowMessage("Can not open file mapping.");                 return;         }         }     else         {             ShowMessage("不能打开实时库");         } 2。请问如何读取（用delphi） a=((PFLOAT)lpView)[n];n字节数，如何转化？？？ 读取内存文件的n个字节起的float量（4字节）？

TYZhang · 2001-12-17

1 Procedure ............. var s_hFileMap:HANDLE;     lpView

ointer; begin   s_hFileMap:=OpenFileMapping(FILE_MAP_READ or FILE_MAP_WRITE,FALSE,'xmldkd');   if(s_hFileMap <> 0) then   begin     lpView:= MapViewOfFile(s_hFileMap,FILE_MAP_READ or FILE_MAP_WRITE,0,0,0);     if Assigned(lpView) then     begin        ShowMessage('Can not open file mapping.');        Exit;     end;   end   else ShowMessage('不能打开实时库'); end; 2 var a:^Real; begin   a=^lpView[n]; end;

YB_unique · 2001-12-17

1  lpView 应该是记录型的指针! type   TSharedData = record     ...     i: String[n];   end;   PSharedData   =^TSharedData; var   s_hFileMap : THandle;   lpView : PSharedData;     s_hFileMap :=OpenFileMapping(FILE_MAP_READ or FILE_MAP_WRITE, False, 'xmldkd');   if s_hFileMap =0 then Exit;   lpView :=MapViewOfFile(s_hFileMap, FILE_MAP_READ or FILE_MAP_WRITE, 0, 0, 0);   if lpView =Nil then   begin       ShowMessage('Can not open file mapping.');       CloseHandle(s_hFileMap);     Exit;   end;   else     ShowMessage('不能打开实时库');     UnMapViewOfFile(lpView);   CloseHandle(s_hFileMap); end;   2 Label1.Caption:=SharedData^.i;     //这样可以读取指定数据 SharedData^.i:=Edit1.text;     //这样可以修改指定数据

liu_sir · 2001-12-18

请问二位大侠： 在delphi中，这样定义：   var   lp_view  :^single;//地址指针       lp_view:=mapviewoffile(f_handle,FILE_MAP_READ,0,0,0); 读取：  var    value:^single; begin       value:=^lp_view[count]; end; 提示error:    incompantable types:'char'and 'pointer',这是为何？

sygzch · 2002-01-30

value:=^lp_view[count]; 这种写法是错误的，可以这样写： value:=Pointer(Integer(lp_view) + count * sizeof(Single));

liu_sir · 2002-02-02

sgyzh大侠,按您的方法调试通过,小d天资愚笨:指针地址 是顺序存放得吗,   value:=Pointer(Integer(lp_view) + count * sizeof(Single)); 是移动记录到从lp_view的指向位置,后移count个single量位置,然后指向第count个single 量?integer(lp_view)是什么意思,不太明白,可以具体解释一下么?

pcsunflower · 2002-02-04

提前

liu_sir · 2002-03-07

多人接受答案了。

内存文件读取，如何把c++代码转化为delphi代码（附源码）？(50分)

liu_sir

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

liu_sir

Unregistered / Unconfirmed

sygzch

Unregistered / Unconfirmed

liu_sir

Unregistered / Unconfirmed

pcsunflower

Unregistered / Unconfirmed

liu_sir

Unregistered / Unconfirmed

Similar threads