关于使用MAPVIEWOFFILE大文件的读写(DELPHI版)
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
//------------------- 判断文件是否存在----------------------//
if not FileExists(fileName) then
raise Exception.Create('文件不存在!')
else
//------------------- 使用FileOpen获取一个文件HANDLE--------//
FFileHandle := FileOPen(fileName,fmOPenReadWrite);
//如果创建文件失败,就抛出一个异常
if FFileHandle = INVALID_HANDLE_VALUE then
raise Exception.Create('打开或创建文件失败!');
//------------------- 使用CreateFileMapping创建一个刚才用FileOpen创建的HANDLE的文件映射对象-- -//
try
FFileSize := GetFileSize(FFileHandle,nil);
FMapHandle := CreateFileMapping(FFileHandle,nil,PAGE_READWRITE,,FFileSize,nil); if FMapHandle = then
raise Exception.Create('创建内存映射文件失败!');
finally
CloseHandle(FFileHandle);
end;
//------------------- 使用MapViewOfFile创建一个CreateFileMapping建立的HANDLE的映射文件的视图到 进程的地址空间------//
try
FData := MapViewOfFile(FMapHandle,FILE_MAP_ALL_ACCESS,,,FFileSize);
if FData = nil then
raise Exception.Create('映射文件失败!');
finally
CloseHandle(FMapHandle);
end;
//------------------- 对MapViewOfFile返回的指针做相应的运算操作------//
try
PData := PChar(FData);
inc(PData,FFileSize);
PData^ := #; if UCase then
StrUpper(PChar(FData))
else
StrLower(PChar(FData));
finally
//------------------- 取消文件视图的映射------//
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
关于使用MAPVIEWOFFILE大文件的读写(DELPHI版)的更多相关文章
- java filechannel大文件的读写
java读取大文件 超大文件的几种方法 转自:http://wgslucky.blog.163.com/blog/static/97562532201332324639689/ java 读取一个 ...
- delphi 大文件的读写 使用 MapviewOffile
unit filemap; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For ...
- Delphi 中内存映射对于大文件的使用
这篇文章主要介绍了Delphi 中内存映射对于大文件的使用的相关资料,希望通过本文能帮助到大家,需要的朋友可以参考下 Delphi 中内存映射对于大文件的使用 平时很少使用大文件的内存映射,碰巧遇到了 ...
- Mac技巧之让U盘、移动硬盘在苹果电脑和Windows PC都能识别/读写,且支持4GB大文件:exFAT格式
如果您的 U 盘.移动硬盘既要用于 PC 又要用于苹果电脑,Mac OS X 系统的 HFS+ 和 Windows 的 NTFS 格式显然都不行……HFS+ 在 Windows 下不识别,NTFS 格 ...
- 用MapViewOfFile处理大文件-内存不足
用MapViewOfFile处理大文件时,如果文件过大,如400M,则无法一次性映射入内存,否则会出现1132错误,即内存不足.原因可能为操作系统无法找到连续的内存.因此需要通过分页的方式,逐页将文件 ...
- 读写文件:每次读入大文件里的一行、读写.CSV文件
读文件: 传统的读法.所有读出,按行处理: fp=open("./ps.txt", "r"); alllines=fp.readlines(); fp.clos ...
- 【JavaNIO的深入研究4】内存映射文件I/O,大文件读写操作,Java nio之MappedByteBuffer,高效文件/内存映射
内存映射文件能让你创建和修改那些因为太大而无法放入内存的文件.有了内存映射文件,你就可以认为文件已经全部读进了内存,然后把它当成一个非常大的数组来访问.这种解决办法能大大简化修改文件的代码.fileC ...
- 【基础巩固】文件流读写、大文件移动 FileStream StreamWriter File Path Directory/ ,m资料管理器(递归)
C#获取文件名 扩展名 string fullPath = @"d:\test\default.avi"; string filename = Path.GetFileName(f ...
- java大文件读写操作,java nio 之MappedByteBuffer,高效文件/内存映射
java处理大文件,一般用BufferedReader,BufferedInputStream这类带缓冲的Io类,不过如果文件超大的话,更快的方式是采用MappedByteBuffer. Mapped ...
随机推荐
- 小程序 textarea
1.小程序中textarea不能在scroll-view.swiper.picker-view等等里面运用. 2.不在fixed布局的页面中,placeholder也会随着页面滚动,解决方法:顶级父元 ...
- RESTful Web Service 架构
特点:简单,可靠,高效,跨平台和跨语言 含义: Web Service 简单来说是指提供给不同设备通过互联网(一般使用 HTTP 协议)进行通信和交换数据的一种服务.RESTful Web Servi ...
- Hibernate总结以及在面试中的一些问题.
Hibernate总结以及在面试中的一些问题. 1.为什么要使用Hibernate开发你的项目呢?Hibernate的开发流程是怎么样的? 为什么要使用 ①.对JDBC访问数据库的代码做了封装,大 ...
- JAVA小程序-----买衣服
import java.util.Scanner; //引用扫描器 public class TestDemo1 { public static void main(String [] args){ ...
- 机器学习:Kullback-Leibler Divergence (KL 散度)
今天,我们介绍机器学习里非常常用的一个概念,KL 散度,这是一个用来衡量两个概率分布的相似性的一个度量指标.我们知道,现实世界里的任何观察都可以看成表示成信息和数据,一般来说,我们无法获取数据的总体, ...
- mAP的计算
参加郑良博士的代码: mars_evaluation 其中ap这样算: ap = ap + (recall - old_recall)*((old_precision+precision)/2); ...
- 在PHP5.4上使用Google翻译的API报错
/********************************************************************** * 在PHP5.4上使用Google翻译的API报错 * ...
- Python之路PythonThread,第二篇,进程2
python3 进程2 僵尸进程处理方法: 3,创建二级子进程处理 4,在父进程中使用信号处理的方法忽略子进程发来的信号: signal(SIGCHLD,DIG,IGN) # 创建二级子进场解决僵 ...
- .net core consul grpc--系统服务RPC实现通信(一)
.net core grpc 系统服务实现通信(一) 现在系统都服务化,.net core 实现服务化的方式有很多,我们通过grpc实现客户端.服务端通信. grpc(https://grpc.io/ ...
- 无用之flask学习
一.认识flask 1.短小精悍.可扩展性强 的一个web框架 注意:上下文管理机制 2.依赖wsgi:werkzurg from werkzeug.wrappers import Request, ...