//建立文件内存映像
var
FH,MH:THandle;FH:=FileOpen(Edit2.Text,fmOpenRead);
MH:=CreateFileMapping(FH,nil,Page_ReadOnly,0,FileSize,nil);
CloseHandle(FH);
MP:=MapViewOfFile(MH,File_Map_Read,0,0,FileSize);//这个地方文件超过1G MP值就为NIL了
CloseHandle(MH);
各位高手们,有什么好的办法帮我解决这个问题,最好附上代码,容易看得懂些,我新手,麻烦了
var
FH,MH:THandle;FH:=FileOpen(Edit2.Text,fmOpenRead);
MH:=CreateFileMapping(FH,nil,Page_ReadOnly,0,FileSize,nil);
CloseHandle(FH);
MP:=MapViewOfFile(MH,File_Map_Read,0,0,FileSize);//这个地方文件超过1G MP值就为NIL了
CloseHandle(MH);
各位高手们,有什么好的办法帮我解决这个问题,最好附上代码,容易看得懂些,我新手,麻烦了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货