按指定数量字节分块读取文件

概述按指定数量字节分块读取文件

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Option ExplicitPrivate Const OFS_MAXPATHname = 128Private Type OFSTRUCTcBytes As BytefFixeddisk As BytenErrCode As IntegerReserved1 As IntegerReserved2 As IntegerszPathname(OFS_MAXPATHname) As ByteEnd TypePrivate Declare Function Openfile lib "kernel32" (ByVal lpfilename As String,lpReOpenBuff As OFSTRUCT,ByVal wStyle As Long) As LongPrivate Declare Function SetfilePointer lib "kernel32" (ByVal hfile As Long,ByVal ldistancetoMove As Long,lpdistancetoMoveHigh As Long,ByVal DWMoveMethod As Long) As LongPrivate Declare Function GetfileSize lib "kernel32" (ByVal hfile As Long,lpfileSizeHigh As Long) As LongPrivate Declare Function Readfile lib "kernel32" (ByVal hfile As Long,lpBuffer As Any,ByVal nNumberOfBytesToRead As Long,lpNumberOfBytesRead As Long,ByVal lpOverlapped As Any) As LongPrivate Declare Function CloseHandle lib "kernel32" (ByVal hObject As Long) As LongPrivate Const OF_READ = &H0Private Const file_SHARE_READ = &H1Private Const MAXLONG = &H7FFFFFFFPrivate Function ReadBlocks(filePath As String) As BooleanOn Error GoTo ErrDim fHandle As LongDim OF As OFSTRUCTfHandle = Openfile(filePath,OF,OF_READ)If fHandle <> -1 ThenDim nSize As LongnSize = GetfileSize(fHandle,0)If nSize > 0 ThenDim Rtn As Long,filePos As LongRtn= MAXLONG/16ReDim bBytes(Rtn - 1) As Bytedo while Rtn = Len(bBytes(0))SetfilePointer hfile,filePos,file_BEGINReadfile hfile,bBytes(0),Rtn,0filePos= filePos+RtnLoopReadBlocks = TrueEnd IfCloseHandle fHandleEnd IfIf Err ThenErr.ClearReadBlocks = FalseEnd IfExit FunctionErr:CloseHandle fHandleReadBlocks = FalseEnd Sub

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的按指定数量字节分块读取文件全部内容，希望文章能够帮你解决按指定数量字节分块读取文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。