7zip plugin Api的一个bug

7zip plugin Api 提供了一个7-zip.dll和一个sevenzip.pas，这样就可以在delphi中对各种压缩文件进行操作了。

支持十几种压缩文件的读写。强烈推荐！

主页地址：

http://www.progdigy.com/?page_id=13

下载地址：

http://www.progdigy.com/files/sevenzip.zip

在实际使用中发现 有个bug: 获取压缩文件里某个文件大小的时候出现位置的variant类型错误。

原因是win2000不支持vt_UI8 类型的variant变量。转换出错：

function T7zInArchive.GetItemSize(const index: integer): Cardinal; stdcall; begin Result := Cardinal(GetItemProp(index, kpidSize)); end;

修改如下：

function T7zInArchive.GetItemSize(const index: integer): Cardinal; stdcall; var v:Variant; begin v:= GetItemProp(index, kpidSize); //VT_UI8 TPropVariant(v).vt := varLongWord; //这里强制转换成win2000支持的类型。 Result := Cardinal(v); end;

ok。