VB将自定义资源中的文件释放出来

程序代码：

Option Explicit

'*************************************************************************
'**模块名：GetResFile
'**说明：将自定义资源中的文件释放出来
'**创建人：嗷嗷叫的老马
'**描述：紫水晶工作室 http://www.m5home.com
'**日期：2007年5月24日
'**版本：V3.0
'*************************************************************************

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
ByVal Destination As Long, _
ByVal Source As Long, _
ByVal Length As Long)

Public Function GetResFile(ByVal ResID As Long, ByVal FileName As String) As Boolean
Dim bFile() As Byte, lFileLen As Double, bTmp() As Byte
Dim I As Long
Const lBlockLen As Long = 1048576 '默认一次1M长度

GetResFile = False

bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
lFileLen = UBound(bFile) + 1 '自定义资源的字节数

If Dir(FileName) = "" Then '只有文件不存在时,才释放
Open FileName For Binary As #1
Do
If I + lBlockLen < lFileLen Then
ReDim bTmp(lBlockLen - 1)
Call CopyMemory(VarPtr(bTmp(0)), VarPtr(bFile(I)), lBlockLen)
I = I + lBlockLen
Put #1, , bTmp()
Else
ReDim bTmp(UBound(bFile) - I - 1)
Call CopyMemory(VarPtr(bTmp(0)), VarPtr(bFile(I)), lFileLen - 1 - I)
Put #1, , bTmp()
End If
Debug.Print (Seek(1) / lFileLen#) * 100# & "%" '输出进度
DoEvents
Loop While Seek(1) < lFileLen
Close #1
GetResFile = True
End If
End Function

VB将自定义资源中的文件释放出来相关推荐

python自定义安装哪些不需要_python setup.py配置，用于在自定义目录中安装文件
我想创建一个setup.py,将我的文件安装到自定义目录中.我有一个特定的前缀,在这里我想得到以下结果:/my/prefix/ bin/ script.sh libexec/ one.py two.p ...
JUL自定义配置文件中的文件输出
添加配置: 在 11 行处添加自定义文件日志处理器的配置信息. # 自定义文件日志处理器 com.jul.handlers = java.util.logging.FileHandler # 自定义输 ...
VC中使用自定义资源
前言在VC环境中除了我们所常用的Dialog.Menu和Bitmap等标准资源类型之外,它还支持自定义资源类型(Custom Resource),我们自定义资源类型能做些什么呢?呵呵,用处多多. 1 ...
在VB中INI文件的读写、删除（对中文支持很好）
很多时候我们编一个程序不一定要用到注册表来保存设置(如果说一个程序没有设置就不算好程序了).INI是一个很好的选择.有人说,Savesetting是一个不错的选择,但是我了解到,不能永久的保存(起码在 ...
1 linux中解决文件已rm删除但空间不释放的案例
1.错误现象运维的监控系统发来通知,报告一台服务器空间满了,登录服务器查看,根分区确实没有空间了: [root@localhost ~]# df -h 这里首先说明一下服务器的一些删除策略,由于Li ...
黄聪：C# MP3操作类,能播放指定的mp3文件,或播放嵌入的资源中的Mp3文件
以下为我写的Mp3操作类源代码: using System; using System.Collections.Generic; using System.Linq; using System.Tex ...
文件_ _android从资源文件中读取文件流并显示的方法
======== 1 android从资源文件中读取文件流并显示的方法. 在android中,假如有的文本文件,比如TXT放在raw下,要直接读取出来,放到屏幕中显示,可以这样: private ...
vb在服务器上新建文件夹,vb.net-如果不存在，如何在VB中创建文件夹？
vb.net-如果不存在,如何在VB中创建文件夹? 我为自己编写了一个小小的下载应用程序,以便我可以轻松地从服务器上获取一组文件,然后将它们全部放入带有全新安装的Windows的新PC上,而无需实际运 ...
SSM 生成mapper中xml文件：未能解析映射资源：“文件嵌套异常
SSM 生成mapper中xml文件:未能解析映射资源:"文件嵌套异常参考文章: (1)SSM 生成mapper中xml文件:未能解析映射资源:"文件嵌套异常 (2)https: ...

VB将自定义资源中的文件释放出来

VB将自定义资源中的文件释放出来相关推荐

最新文章

热门文章