DSAPI多功能组件编程应用-文件类

[DSAPI.DLL下载地址]

    本节内容,是属于"无需过多说明"就能使用的功能.由于实在是太简单,我就简单地示例一下.

DSAPI.文件类.获取可读性强的字节大小信息("c:\1.exe")

返回一个字串,该字串描述了目标文件的大小,自动根据字节长度设定描述单位,如"123.kb","12.3mb","1.23gb".

 DSAPI.文件类.修改指定文件扩展名为指定打开方式(".sav", "这是游戏进度保存文件", "c:\icon\savicon.ico", "c:\game.exe")

简单到无法再简单的修改指定文件的打开方式.

DSAPI.文件类.修改指定文件扩展名为指定打开方式(要设置的扩展名,该类型文件的文件说明,ICON图标路径,用什么程序打开)

压缩/解压缩(GZip)

压缩一个文件

<pre name="code" class="vb">'读取一个文件将载入到字节数组
Dim Bts() As Byte = IO.File.ReadAllBytes("c:\1.exe")
'开始压缩
Bts = DSAPI.文件类.压缩(Bts)
'保存压缩后的字节数组到文件
IO.File.WriteAllBytes("c:\1.zip", Bts)

解压缩一个文件

<pre name="code" class="vb">'读取并载入压缩文件到字节数组
Dim Bts() As Byte = IO.File.ReadAllBytes("c:\1.zip")
'解压缩
Bts = DSAPI.文件类.解压缩(Bts)
'保存经过解压缩的字节数组到文件
IO.File.WriteAllBytes("c:\1.exe", Bts)

文件头操作

文件头,其实就是对一个文件的字节数组进行相应的修改处理,以使其失去原有的结构,主要用在保护自己的DLL不被非法利用等.当然,如果是DLL,在程序中反射等方式加载引用,仍需要写添加文件头,也就是还原其本来的数据.

读取文件开头100字节的数据

Dim Bts() As Byte = DSAPI.文件类.读取文件头(IO.File.ReadAllBytes("c:\1.dll"), 100)

'或

Dim Bts() As Byte = DSAPI.文件类.读取文件头("c:\1.dll", 100)

添加数据到文件头

Dim Bts() As Byte = DSAPI.文件类.添加文件头(IO.File.ReadAllBytes("c:\1.dll"), System.Text.Encoding.Default.GetBytes("dscode"))
'或
Dim Bts() As Byte = DSAPI.文件类.添加文件头(IO.File.ReadAllBytes("c:\1.dll"), "dscode")

取消文件头指定内容

Dim Bts() As Byte = DSAPI.文件类.取消文件头(IO.File.ReadAllBytes("c:\1.dll"), "dscode")

转载于:https://www.cnblogs.com/dylike/p/10575989.html