-
delphi 怎么来压缩文件
2012-08-08 11:43:33需要Zlib.pas和 Zlibconst.pas两个单元文件,这两个文件保存在 Delphi 5.0安装光盘上 InfoExtrasZlib目录下,此外,在 InfoExtrasZlibObj目录中还保存了 Zlib.pas单元引用的 Obj文件,把这个目录拷贝到delphi的lib下...使用时,需要Zlib.pas和 Zlibconst.pas两个单元文件,这两个文件保存在 Delphi 5.0安装光盘上 InfoExtrasZlib目录下,此外,在 InfoExtrasZlibObj目录中还保存了 Zlib.pas单元引用的 Obj文件,把这个目录拷贝到delphi的lib下,即可。可以适当的改动比如增加目录压缩和分文件压缩,其实就是在文件流前面增加一部分描述结构就是,不多说。使用 时,还要use zlib单元。 两个函数如下:procedure CompressIt(var CompressedStream: TMemoryStream; const CompressionLevel: TCompressionLevel);
// 参数是传递的流和压缩方式
var
SourceStream: TCompressionStream;
DestStream: TMemoryStream;
Count: int64; //注意,此处修改了,原来是int
begin
//获得流的原始尺寸
Count := CompressedStream.Size;
DestStream := TMemoryStream.Create;
SourceStream := TCompressionStream.Create(CompressionLevel, DestStream);
try
//SourceStream中保存着原始的流
CompressedStream.SaveToStream(SourceStream);
//将原始流进行压缩, DestStream中保存着压缩后的流
SourceStream.Free;
CompressedStream.Clear;
//写入原始图像的尺寸
CompressedStream.WriteBuffer(Count, SizeOf(Count));
//写入经过压缩的流
CompressedStream.CopyFrom(DestStream, 0);
finally
DestStream.Free;
end;
end;
procedure UnCompressit(const CompressedStream: TMemoryStream; var UnCompressedStream: TMemoryStream);
//参数 压缩过的流,解压后的流
var
SourceStream: TDecompressionStream;
DestStream: TMemoryStream;
Buffer: PChar;
Count: int64;
begin
//从被压缩的图像流中读出原始的尺寸
CompressedStream.ReadBuffer(Count, SizeOf(Count));
//根据尺寸大小为将要读入的原始流分配内存块
GetMem(Buffer, Count);
DestStream := TMemoryStream.Create;
SourceStream := TDecompressionStream.Create(CompressedStream);
try
//将被压缩的流解压缩,然后存入 Buffer内存块中
SourceStream.ReadBuffer(Buffer^, Count);
//将原始流保存至 DestStream流中
DestStream.WriteBuffer(Buffer^, Count);
DestStream.Position := 0; //复位流指针
DestStream.Position := length(VER_INFO);
//从DestStream流中载入图像流
UnCompressedStream.LoadFromStream(DestStream);
finally
FreeMem(Buffer);
DestStream.Free;
end;
end;
使用的例子如下:
procedure TForm1.Button5Click(Sender: TObject);
//把指定文件压缩然后保存为另外一个压缩包,
//呵呵,我使用的时候是把后缀改成cab,可以唬一些人吧?
var
SM: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
if SaveDialog1.Execute then
begin
SM := TMemoryStream.Create;
try
Sm.LoadFromFile(OpenDialog1.FileName);
SM.Position := 0;
Compressit(sm, clDefault);
sm.SaveToFile(SaveDialog1.FileName);
finally
SM.Free;
end;
end;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
//把指定的压缩包解成原来的文件。
var
SM, DM: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
if SaveDialog1.Execute then
begin
SM := TMemoryStream.Create;
DM := TMemoryStream.Create;
try
Sm.LoadFromFile(OpenDialog1.FileName);
SM.Position := 0;
UnCompressit(sm, dm);
dm.Position := 0;
dm.SaveToFile(SaveDialog1.FileName);
finally
SM.Free;
DM.Free;
end;
end;
end;
end; -
怎样破解光盘里面的加密程序
2013-10-22 13:52:08我朋友从一个高手哪里买了张光碟,里面有个高手...所以即使拷贝,却只能拷贝那300k,其它隐藏文件找不到也拷不了。现在哪个高手找不到了。我改怎么破解呢。我不明白,哪个碟认的是什么。是认Mac 地址,还是别的机器码? -
hp打印机怎么连接电脑_打印机怎么连接电脑?安装打印机图文教程
2020-11-14 09:15:08先把随机配送光盘放进光驱,如电脑没有光驱的话,可以直接把文件拷到U盘,再放到电脑上。2.光盘启动,系统会自动运行安装引导界面,如图,如果拷贝文件则需要找到launcher.exe文件,双击运行。3.系统会提示是安装一...怎么安装打印机?有用户买了打印机后却不懂该如何安装并且连接电脑,下面就给大家分享打印机的具体安装方法。
本地打印机安装:
1.先把随机配送光盘放进光驱,如电脑没有光驱的话,可以直接把文件拷到U盘,再放到电脑上。
2.光盘启动,系统会自动运行安装引导界面,如图,如果拷贝文件则需要找到launcher.exe文件,双击运行。
3.系统会提示是安装一台打印机或者修复本机程序,如果是新的打印机则需要先添加选项,如果修复程序则点“修复”。
4.系统会提示你把打印机插上电源,连接到电脑。
5.接着把打印机和电脑连上,并打开开关,然后系统就会在本机装驱动。
6.装完后会提示安装完成。
7.在打印机和传真里面,对着刚装的打印机,点右键选择“属性”,点击“打印测试页”,那样就说明打印机安装成功了。
网络打印机安装:
1.网络打印机安装,无须驱动盘,也无须连接打印机,只要电脑能连上共享打印机即可。
2.首先点开始,再点开运行,然后输入共享打印服务端IP,再点确定。
3.接着在弹出共享窗口时,双击共享的打印机。
4.最后在弹出连接打印机的提示,点击确定完成网络打印机安装。
-
java连接打印机打印数据_打印机怎么连接电脑?安装打印机图文教程
2020-12-26 08:02:43先把随机配送光盘放进光驱,如电脑没有光驱的话,可以直接把文件拷到U盘,再放到电脑上。2.光盘启动,系统会自动运行安装引导界面,如图,如果拷贝文件则需要找到launcher.exe文件,双击运行。3.系统会提示是安装一...怎么安装打印机?有用户买了打印机后却不懂该如何安装并且连接电脑,下面就给大家分享打印机的具体安装方法。
本地打印机安装:
1.先把随机配送光盘放进光驱,如电脑没有光驱的话,可以直接把文件拷到U盘,再放到电脑上。
2.光盘启动,系统会自动运行安装引导界面,如图,如果拷贝文件则需要找到launcher.exe文件,双击运行。
3.系统会提示是安装一台打印机或者修复本机程序,如果是新的打印机则需要先添加选项,如果修复程序则点“修复”。
4.系统会提示你把打印机插上电源,连接到电脑。
5.接着把打印机和电脑连上,并打开开关,然后系统就会在本机装驱动。
6.装完后会提示安装完成。
7.在打印机和传真里面,对着刚装的打印机,点右键选择“属性”,点击“打印测试页”,那样就说明打印机安装成功了。
网络打印机安装:
1.网络打印机安装,无须驱动盘,也无须连接打印机,只要电脑能连上共享打印机即可。
2.首先点开始,再点开运行,然后输入共享打印服务端IP,再点确定。
3.接着在弹出共享窗口时,双击共享的打印机。
4.最后在弹出连接打印机的提示,点击确定完成网络打印机安装。
-
ones刻录软件怎么用
2011-08-08 14:08:50刻录数据光盘,实际上就是拷贝文件到其它存储介质上。 2、刻录音乐光盘——就是常见的那种播放时没有画面的CD音乐盘。 3、制作影视光盘——VCD视频光盘。常见的VCD影碟。 4、制作光盘映像——常见的映像文件cue,...1、刻录数据光盘——你就把光盘看成是你电脑上的另一个硬盘,或者当成U盘也行。数据就是硬盘上的文件。刻录数据光盘,实际上就是拷贝文件到其它存储介质上。
2、刻录音乐光盘——就是常见的那种播放时没有画面的CD音乐盘。
3、制作影视光盘——VCD视频光盘。常见的VCD影碟。
4、制作光盘映像——常见的映像文件cue,iso,bwt,cdi,b5t,ccd,mds,nrg 如果是批量刻录的话,先制作成映像文件,然后在刻录。减少刻录时间。当然映像文件还有其它的功能。制作电脑启动光盘时也会用到映像文件。。这个你可能接触不到。。我就不说啦。
5、刻录光盘映像文件——这个很有意思的。。。看你的映像文件是类型的。支不支持多轨啊,支不支启动啊。。主要是看你怎么制作映像文件啦。你就这么理解吧。Ghost应该知道吧,刻录机相当于Ghost,光盘相当于是Ghost要备份的目标硬盘,数据相当于Ghost要备份的是哪个盘,光盘映像文件就是Ghost最终生成的备份文件。这么理解,你就应该明白很多啦。
6、刻录DVD文件夹——指的是DVD视频光盘。。。光盘的选择:只分两种VCD光盘和DVD光盘,你要刻录CD、VCD的话,就买VCD光盘。刻录DVD的话,买DVD光盘。刻录SVCD的话,也买VCD光盘。VCD光盘的容量为700MB,DVD的容量为4GB。至于刻录数据光盘,VCD光盘和DVD光盘都可以。
-
没有光驱怎么装系统
2013-06-05 08:26:19(这里我们把安装文件解压缩到了D盘下的Xp目录中,路径为 D:\xp\ 这个路径我们以后要用到) (2)首先你要有一张启动盘(如果没有就找张软件格式化一张,在格式化的时候选择格式化成系统盘),然后往软盘里拷贝个... -
U盘怎么样做启动盘
2008-01-11 16:32:00一、导入引导信息,有两种方法:1、需要用专门的格式化工具进行格式化(一般U盘自带的软件...二,修改引导信息 引导是能引导了,找来一张98启动盘,把里面的所有文件包括隐含文件都拷贝到闪盘当中,覆盖重名的文件。 -
网管教程 从入门到精通软件篇.txt
2010-04-25 22:43:49小编的确一直都想把这方面的命令做个总结,这次辛苦老范给我们整理了这份实用的秘笈。 Bootcfg bootcfg 命令启动配置和故障恢复(对于大多数计算机,即 boot.ini 文件)。 含有下列参数的 bootcfg 命令仅在... -
硬盘安装CentOS 5.5 DVD iso
2010-10-10 22:13:00最开始的时候我把DVD ISO文件拷贝到一个NTFS分区的根目录中,用grub for dos启动,倒是可以开始,但是最后要找DVD ISO镜像文件却怎么也找不到,后来网上有人说放NTFS分区里,认不出来,而且不能用grub for dos,得用... -
硬盘安装CentOS 5.5 DVD iso(转)
2011-01-24 19:20:00最开始的时候我把DVD ISO文件拷贝到一个NTFS分区的根目录中,用grub for dos启动,倒是可以开始,但是最后要找DVD ISO镜像文件却怎么也找不到,后来网上有人说放NTFS分区里,认不出来,而且不能用grub for dos,得... -
用UltraISO轻松实现移动硬盘引导安装win7
2017-11-27 14:45:02refs: ... ...如果你已经在用vista 或 win7 甚至不用用到UltraISO。...只要在磁盘管理分一个主分区(3G够了)(vista 或 win7 分的区...再把光盘镜像里的所有文件拷贝到这个主分区。大功告成。剩下的容量随你怎么分 -
从硬盘装Fedora Core 3
2005-03-06 07:23:00我是采用进DOS进行硬盘安装的,下装了fedora core 3的镜像文件后,把它们放在Fat32分区的根...新建一个dosutils文件夹拷贝第一张光盘的initrd.img和vmlinuz到文件夹下面,然后拷贝 fedora Core 1的loadlin.exe文件到同 -
Linux操作系统基础教程
2013-04-08 21:34:262需要为购满许可证付出高价还要受到系统安装数量的限制。我在讲义的最后面附有 GPL 的 非官方中文译稿。目前 Linux 中国的发行版本(Linux Distribution)主要有 Red Hat (红帽子) , Slackware, Caldera, Debian... -
疯狂的程序员
2012-07-18 18:05:32王江:老天无眼,把我弄到这么个学校来。 土匪:凑合吧,四年后考研,又是条好汉。 王江:不行,我要让我老爸再想想办法。 土匪:都怪我老子没本事。比我差的都去了那学校。 王江:我老爸没问题。但我就是这么一个人... -
Win32多线程程序设计--源代码
2012-04-22 17:09:08该源代码是该书所附带光盘的拷贝。 提供对应书籍下载(该版本是网上最全最清晰的版本,修正353-365页之间错页的问题。) 基本信息 原书名:Multithreading Applications in Win32 作者: Jim Beveridge & Robert ... -
C++程序员面试宝典
2013-04-01 13:36:19本书附带1张光盘,内容为本书所有面试题的多媒体教学视频及其他学习资料。 本书中的面试题不但以实例代码的形式对答案进行了详细解析,还对问题的相关知识点进行了扩展说明。希望通过本书,读者可以成功应聘,并提升...