高手赐教：delphi如何把文件压缩为jar格式，

Question

高手赐教：delphi如何把文件压缩为jar格式，最好附源码。

Answer 1

http://www.yesky.com/20030311/1656296.shtml

Answer 2

感谢cuilj(一云忆水)提供的关于压缩流和解压流的文章,已收藏,
不过我想用delphi把数据库压缩为jar格式，然后再用java把压缩
文件解压并导入到oracle,或是使用一种更好的替代方案。

Answer 3

其实jar文件就是zip格式的，
用winrar也能创建zip压缩包，
我们可以调用winrar把文件压缩成zip压缩包，文件后缀改为jar就行了啊。
下面的代码是把自身压缩到test.jar中，
（需要把winrar.exe复制到程序的目录中）。
winrar 的具体参数你可以看看帮助，就不多说了。var
s:string;
begin
  s:='a -afzip test.jar '+ExtractFileName(ParamStr(0));
  if ShellExecute(0,nil,'winrar',pchar(s),'',SW_HIDE)<=32 then
    showmessage('ERROR')
  else
    showmessage('OK!');
end;