请问 Z 文件是怎么回事?在Windows平台下怎么解开?有源码更好!
来源: 互联网 发布时间:2015-04-28
本文导语: 他们把数据备份成 .Z 格式的,我要把他们的数据同步到Windows平台下,应该怎么做?要是有源码的话更好,万分感谢!! | 嘻嘻,我刚好作了一个和你一样的程序,即不断地把一个目录下Ftp...
他们把数据备份成 .Z 格式的,我要把他们的数据同步到Windows平台下,应该怎么做?要是有源码的话更好,万分感谢!!
|
嘻嘻,我刚好作了一个和你一样的程序,即不断地把一个目录下Ftp过来的文件解压。
首先到http://www.gzip.org/下载一个gzip程序。
var
sInfo : TStartupInfo;
pInfo : TProcessInformation;
cmdLine : String;
exitCode : Cardinal;
fullFileName: String; // Save the file name you will uncompress
....
cmdLine := 'gzip -f -d ' + fullFileName;
// -f : force
// -d : uncompress
FillChar(sInfo,sizeof(sInfo),#0);
sInfo.cb := SizeOf(sInfo);
sInfo.dwFlags := STARTF_USESHOWWINDOW;
sInfo.wShowWindow := SW_HIDE;
if not CreateProcess(nil
,pchar(cmdLine),nil,nil
,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS
, nil, nil, sInfo, pInfo)
then begin
MessageBox(Application.handle,'gzip 启动失败!','Error',MB_OK or MB_ICONSTOP);
end
else begin
// You can check the file uncompressed here.
end;
首先到http://www.gzip.org/下载一个gzip程序。
var
sInfo : TStartupInfo;
pInfo : TProcessInformation;
cmdLine : String;
exitCode : Cardinal;
fullFileName: String; // Save the file name you will uncompress
....
cmdLine := 'gzip -f -d ' + fullFileName;
// -f : force
// -d : uncompress
FillChar(sInfo,sizeof(sInfo),#0);
sInfo.cb := SizeOf(sInfo);
sInfo.dwFlags := STARTF_USESHOWWINDOW;
sInfo.wShowWindow := SW_HIDE;
if not CreateProcess(nil
,pchar(cmdLine),nil,nil
,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS
, nil, nil, sInfo, pInfo)
then begin
MessageBox(Application.handle,'gzip 启动失败!','Error',MB_OK or MB_ICONSTOP);
end
else begin
// You can check the file uncompressed here.
end;
|
用LzCopy试试吧:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/lzcopy.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/lzcopy.asp
|
1.是的。
2。改cmdLine := 'gzip -f -d ' + fullFileName;这一行程序,具体的方法可以看gzip的使用说明.
2。改cmdLine := 'gzip -f -d ' + fullFileName;这一行程序,具体的方法可以看gzip的使用说明.