*****delphi 调用压缩工具7z接口问题*****
delphi 调用压缩工具7z接口问题 纠结很久了 一直没能解决
结构是老外写的,大致如下:
http://www.progdigy.com/?page_id=13
我的问题是 如果压缩的文件 有分割 比如分割成*.001 *.002 *.003 而且有加密
在利用接口解压的时候 就会报错
解压方法如下:
procedure TForm1.Button4Click(Sender: TObject);
begin
with CreateInArchive(CLSID_CFormatSplit) do
begin
//设置解压密码
SetPassword('sc');
OpenFile(ExtractFilePath(ParamStr(0))+'demo.7z.001');//分割的文件,解压的时候,选择第一个文件进行解压
ExtractTo(ExtractFilePath(ParamStr(0)));
end;
end;
这里就是会一直报错
错误信息是:Incorrect function
还请大家帮忙看下 实在找不出原因 谢谢。