社区
数据库相关
帖子详情
在程序中怎样压缩sql server2000的数据库备份文件,像rar一样?
cd_fsy2000
2003-09-15 11:03:22
怎样压缩sql server2000的数据库备份文件,像rar一样?小弟有一7m的sql server2000
数据库备份文件,在程序中怎样压缩啊?
...全文
61
6
打赏
收藏
在程序中怎样压缩sql server2000的数据库备份文件,像rar一样?
怎样压缩sql server2000的数据库备份文件,像rar一样?小弟有一7m的sql server2000 数据库备份文件,在程序中怎样压缩啊?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cd_fsy2000
2003-09-15
打赏
举报
回复
我要压缩c:\casher2000.bak 文件 怎么写参数啊?
cd_fsy2000
2003-09-15
打赏
举报
回复
SHExecInfo.lpParameters := 'a e:\qwqw.rar e:\qwqw';
'e:\qwqw.rar e:\qwqw'是什么意思啊?
ShellExecute(application.MainForm.Handle,'open','winrar.exe',PChar('a e:\zqzq.rar e:\zqzq'),'',SW_show);
‘'a e:\zqzq.rar e:\zqzq’又是什么意思啊
我运行时提示 找不到什么qwqw?
shodoy
2003-09-15
打赏
举报
回复
同意WWWWA(aaaa)
yjs_lh
2003-09-15
打赏
举报
回复
注意需uses zlib单元。
yjs_lh
2003-09-15
打赏
举报
回复
这是一段压缩图片的代码,压缩文件原理相同,只需稍做改动即可。
var
mss: TMemoryStream;
zip: TDeCompressionStream;
zip1: TCompressionStream;
fs : TFileStream;
fBuf: Array[0..16383] of Byte;
flen: Integer;
//从数据库中取出图片
//...写出SQL语句以取得有图片的记录,此处从略
mss := TMemoryStream.Create;
fs := TFileStream.Create('filename.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;
//将文件filename.jpg中的图片保存到数据库
//...写出SQL语句,打开Que,并定位到要保存图片的记录,此处从略
fs := TFileStream.Create('filename.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;
WWWWA
2003-09-15
打赏
举报
回复
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('压缩完毕!'); }
SQL
_
Server
数据库自动备份并
压缩
非常实用的
SQL
_
Server
数据库自动备份并
压缩
文档
备份
SQL
Server
数据库.
rar
备份
SQL
Server
数据库.
rar
备份
SQL
Server
数据库.
rar
3天掌握
SQL
Server
2012 数据库
Microsoft
SQL
Server
数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能,使您可以构建和管理用于业务的高可用和高性能的数据应用
程序
。 黄强老师针比较稳定且较新的
SQL
SERVER
2012版本演示...
SQL
SERVER
2000
数据库备份
和恢复存储过程.
rar
_
SQL
备份_recovery in
SQL
_
sql
server
SQL
SERVER
2000
数据库备份
和恢复存储过程
VB6.0
Sql
Server
数据库备份
还原
程序
.
rar
VB6.0
Sql
Server
数据库备份
还原
程序
,你可以附加的数据库
文件
路径--(支持拖放),mdf和ldf
文件
存放的路径要对应LDF
文件
,需要你填写在
SQL
中
还原的数据库的名字。操作方法:打开后首先需要连接数据库,不然会提示没有连接,当然也还原、附加不了 点击“连接” 后面的按钮,切换到“附加”或“还原”状态。支持拖放
文件
,直接把
文件
拉到界面上,就可以得到地址附加数据库的时候,一般不需要填写数据库名字的,还原数据库的时候,需要手动填写名称。 VB新手,请多指点。注释也不多,不过都是很简单的。
数据库相关
2,497
社区成员
88,445
社区内容
发帖
与我相关
我的任务
数据库相关
Delphi 数据库相关
复制链接
扫一扫
分享
社区描述
Delphi 数据库相关
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章