易语言+汇编使用ReadFile()API实现高效的逐字读文件

人亦已歌

  

DLL命令名	返回值类型	公开	备 注
ReadFile	逻辑型
DLL库文件名:
kernel32
在DLL库中对应命令名:
ReadFile
参数名	类 型	传址	数组	备 注
hFile	整数型
lpBuffer	整数型
nNumberOfBytesToRead	整数型
lpNumberOfBytesRead	整数型	√
lpOverlapped	整数型

DLL命令名	返回值类型	公开	备 注
CreateFileA	整数型		如执行成功，则返回文件句柄。
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
CreateFileA
参数名	类 型	传址	数组	备 注
lpFileName	文本型
dwDesiredAccess	整数型
dwShareMode	整数型
lpSecurityAttributes	整数型
dwCreationDisposition	整数型
dwFlagsAndAttributes	整数型
hTemplateFile	整数型

.版本 2<br /> <br /> .DLL命令 ReadFile, 逻辑型, "kernel32", "ReadFile"<br />     .参数 hFile, 整数型<br />     .参数 lpBuffer, 整数型<br />     .参数 nNumberOfBytesToRead, 整数型<br />     .参数 lpNumberOfBytesRead, 整数型, 传址<br />     .参数 lpOverlapped, 整数型<br /> <br /> .DLL命令 CreateFileA, 整数型, "kernel32.dll", "CreateFileA", , 如执行成功，则返回文件句柄。<br />     .参数 lpFileName, 文本型<br />     .参数 dwDesiredAccess, 整数型<br />     .参数 dwShareMode, 整数型<br />     .参数 lpSecurityAttributes, 整数型<br />     .参数 dwCreationDisposition, 整数型<br />     .参数 dwFlagsAndAttributes, 整数型<br />     .参数 hTemplateFile, 整数型

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

api_读文件 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
api_读文件			十六进制到整数

变量名	类 型	静态	数组	备 注
buffer	字节集
hFileRead	整数型
nIn	整数型
pnIn	整数型
bTrue	逻辑型
pbuffer	整数型
m	整数型
n	整数型

buffer ＝ 取空白字节集 (2)
hFileRead ＝ CreateFileA (“book.txt”, 十六进制到整数 (“0x80000000”), 1, 0, 3, 128, 0)
pnIn ＝ 取 变量地址 (nIn)
pbuffer ＝ 取 变量数据地址_字节集 (buffer)
n ＝ 2
如果真 (hFileRead ≤ 0)
调试输出 (“打开文件失败”, GetLastError ())
返回 ()

循环判断首 ()
bTrue ＝ ReadFile (hFileRead, pbuffer, 2, pnIn, 0)
' 调试输出 (bTrue, 指针到整数_汇编 (pnIn), 到文本 (指针到字节集 (pbuffer, 2)))
如果真 (指针到整数_汇编 (pnIn) ＞ 0)
buffer ＝ buffer ＋ 指针到字节集 (pbuffer, 2)
调试输出 (到文本 (buffer))

循环判断尾 (bTrue ＝ 真 且 指针到整数_汇编 (pnIn) ＞ 0)
CloseHandle (hFileRead)

子程序名	返回值类型	公开	备 注
指针到整数_汇编	整数型	√	指针到整数_汇编
参数名	类 型	参考	可空	数组	备 注
指针	整数型

置入代码 ({ 93, 139, 68, 36, 4, 194, 4, 0 })
' pop ebp
' mov eax, dword [esp 0x04]
' retn 0x0004
返回 (0)

子程序名	返回值类型	公开	备 注
取变量数据地址_字节集	整数型	√	取变量数据地址
参数名	类 型	参考	可空	数组	备 注
参数_字节集	字节集

置入代码 ({ 139, 69, 8, 139, 0, 5, 8, 0, 0, 0, 201, 194, 4, 0 })
' mov eax,[ebp 08]
' mov eax,[eax]
' add eax,08
' leave
' retn 04
返回 (0)

子程序名	返回值类型	公开	备 注
十六进制到整数	长整数型		十六进制到整数
参数名	类 型	参考	可空	数组	备 注
十六进制文本	文本型

置入代码 ({ 139, 93, 8, 139, 27, 51, 192, 190, 16, 0, 0, 0, 15, 182, 11, 128, 249, 64, 114, 5, 128, 233, 55, 235, 13, 128, 249, 32, 116, 12, 128, 249, 0, 116, 10, 128, 233, 48, 247, 230, 3, 193, 67, 235, 223, 139, 229, 93, 194, 4, 0, 195 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> api_读文件 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 api_读文件, , , 十六进制到整数<br /> .局部变量 buffer, 字节集<br /> .局部变量 hFileRead, 整数型<br /> .局部变量 nIn, 整数型<br /> .局部变量 pnIn, 整数型<br /> .局部变量 bTrue, 逻辑型<br /> .局部变量 pbuffer, 整数型<br /> .局部变量 m, 整数型<br /> .局部变量 n, 整数型<br /> <br /> buffer ＝ 取空白字节集 (2)<br /> hFileRead ＝ CreateFileA (“book.txt”, 十六进制到整数 (“0x80000000”), 1, 0, 3, 128, 0)<br /> pnIn ＝ 取 变量地址 (nIn)<br /> pbuffer ＝ 取 变量数据地址_字节集 (buffer)<br /> n ＝ 2<br /> .如果真 (hFileRead ≤ 0)<br />     调试输出 (“打开文件失败”, GetLastError ())<br />     返回 ()<br /> .如果真结束<br /> <br /> .循环判断首 ()<br />     bTrue ＝ ReadFile (hFileRead, pbuffer, 2, pnIn, 0)<br />     ' 调试输出 (bTrue, 指针到整数_汇编 (pnIn), 到文本 (指针到字节集 (pbuffer, 2)))<br />     .如果真 (指针到整数_汇编 (pnIn) ＞ 0)<br />         buffer ＝ buffer ＋ 指针到字节集 (pbuffer, 2)<br />         调试输出 (到文本 (buffer))<br />     .如果真结束<br /> <br /> .循环判断尾 (bTrue ＝ 真 且 指针到整数_汇编 (pnIn) ＞ 0)<br /> CloseHandle (hFileRead)<br /> <br /> <br /> .子程序 指针到整数_汇编, 整数型, 公开, 指针到整数_汇编<br /> .参数 指针, 整数型<br /> <br /> 置入代码 ({ 93, 139, 68, 36, 4, 194, 4, 0 })<br /> ' pop ebp<br /> ' mov eax, dword [esp 0x04]<br /> ' retn 0x0004<br /> 返回 (0)<br /> <br /> .子程序 取变量数据地址_字节集, 整数型, 公开, 取变量数据地址<br /> .参数 参数_字节集, 字节集<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 5, 8, 0, 0, 0, 201, 194, 4, 0 })<br /> ' mov eax,[ebp 08]<br /> ' mov eax,[eax]<br /> ' add eax,08<br /> ' leave<br /> ' retn 04<br /> 返回 (0)<br /> <br /> .子程序 十六进制到整数, 长整数型, , 十六进制到整数<br /> .参数 十六进制文本, 文本型<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 27, 51, 192, 190, 16, 0, 0, 0, 15, 182, 11, 128, 249, 64, 114, 5, 128, 233, 55, 235, 13, 128, 249, 32, 116, 12, 128, 249, 0, 116, 10, 128, 233, 48, 247, 230, 3, 193, 67, 235, 223, 139, 229, 93, 194, 4, 0, 195 })<br /> 返回 (0)

darkangel21

Good!

alw_ddd

其实很多人都懂编程，但不是很精通。我也没有找到工作。我可那还没有你精。我是说VC。  我学VB4年了。我QQ162252487。

艾·奥里斯

谢谢 向你致敬~~~！

jqx

很是感慨！！！！

本人韩杉

谢谢你的经验。  非常感谢！

fwqer

不错不错

yueyan758617

^感动,真的很有感情,  我喜欢.  祝福作者早日成为一个高手编程员

kndanny

之前看过了  不过还是来顶下  “计算机”爱你没商量

我是衣迷

是的  真的很受益呀  真的是学计算机的人心读的  幸亏我看了  哎~~~  要不可惨了~~  感谢楼主~~~~~