繁體中文当前位置: 首页 > 图文教程 > 数据库 > MSSQL > 在程序中压缩sql server2000的数据库备份文件的代码
- MSSQL
- 在SQL Server下数据库链接的使用
- SQL Server数据库中处理空值时常见问题
- 巧用一条SQL语句实现其它进制到十进制转换
- 通过JDBC连接DB2数据库技巧
- 深入浅出SQL教程之嵌套SELECT语句
- SQL Server备份文件中导入现存数据库
- SQL多表格查询合并至单一声明的常用方式
- 也谈如何缩小SQL SERVER日志文件
- 四个语句帮你提高 SQL Server 的伸缩性
- 用JavaBean编写SQL Server数据库连接类
- sql2k中新增加的Function的sqlbook 的帮助
- Mssql处理孤立用户的存储过程
- 探讨SQL Server中Case 的不同用法
- 快速清除SQLServer日志的两种方法
- 解决Sql Server警报的疑难问题
- MySQL的数据类型和建库策略
- SQL SERVER应用问题解答13例（一）
- SQL SERVER应用问题解答13例（二）
- 多种还原.bak数据库文件方式
- SQL语句中的一些特殊参数如何用变量来代替
MSSQL 中的 在程序中压缩sql server2000的数据库备份文件的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 172 ::
收藏到网摘: n/a
怎样压缩sql server2000的数据库备份文件，像rar一样?小弟有一7m的sql server2000
数据库备份文件，在程序中怎样压缩啊?
复制代码 代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var
SHExecInfo: SHELLEXECUTEINFO;
begin
SHExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
SHExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
SHExecInfo.Wnd := Handle;
SHExecInfo.lpVerb := nil;
SHExecInfo.lpFile := 'WinRAR.exe';
SHExecInfo.lpParameters := 'a e:\qwqw.rar e:\qwqw';
SHExecInfo.lpDirectory := nil;
SHExecInfo.nShow := SW_SHOW;
SHExecInfo.hInstApp := Handle;
ShellExecuteEx(@SHExecInfo);
WaitForSingleObject(SHExecInfo.hProcess, INFINITE);
CloseHandle(SHExecInfo.hProcess);
ShellExecute(application.MainForm.Handle,'open','winrar.exe',PChar('a e:\zqzq.rar e:\zqzq'),'',SW_show);
ShowMessage('压缩完毕！'); }
这是一段压缩图片的代码，压缩文件原理相同，只需稍做改动即可。
复制代码 代码如下:
var
mss: TMemoryStream;
zip: TDeCompressionStream;
zip1: TCompressionStream;
fs : TFileStream;
fBuf: Array[0..16383] of Byte;
flen: Integer;
//从数据库中取出图片
//...写出SQL语句以取得有图片的记录，此处从略
mss := TMemoryStream.Create;
fs := TFileStream.Create('/upload/tech/2009/20090913073151_24681928425f5a9133504de568f5f6df.jpg',fmCreate or fmOpenWrite);
try
TBlobField(Que.FieldByName('pic')).SaveToStream(mss);
zip := TDeCompressionStream.Create(fs);
try
flen := zip.Read(fbuf, SizeOf(fBuf));
while flen > 0 do begin
fs.Write(fbuf, flen);
flen := zip.Read(fbuf, SizeOf(fBuf));
end;
finally
FreeAndNil(zip);
end;
finally
mss.Free;
fs.Free;
end;
//将文件/upload/tech/2009/20090913073151_24681928425f5a9133504de568f5f6df.jpg中的图片保存到数据库
//...写出SQL语句，打开Que，并定位到要保存图片的记录，此处从略
fs := TFileStream.Create('/upload/tech/2009/20090913073151_24681928425f5a9133504de568f5f6df.jpg',fmOpenRead);
mss := TMemoryStream.Create;
try
zip1 := TCompressionStream.Create(clDefault,mss);
try
flen := fs.Read(fbuf, SizeOf(fBuf));
while flen > 0 do begin
zip1.Write(fbuf, flen);
flen := fs.Read(fbuf, SizeOf(fBuf));
end;
//保存到数据库
TBlobField(Que.FieldByName('pic')).LoadFromStream(mss);
Que.UpdateBatch();
//...
finally
zip1.Free;
end;
finally
fs.Free;
mss.Free;
end;
评论 (0) All
