希望obj中实现如下可供delphi调用的接口:7zip,rar,zip,aes算法压缩解压和压缩。接口样式类似于:function compress_7zip(  p_in_buf:pointer; // 需要压缩的内存块起始地址
  p_in_buff_len:dword;  // 需要压缩的内存块的长度
  var p_out_buf:pointer;  // 压缩过后的内存块的地址,是动态生成的指针,要函数内部来负责申请这块空间。
  var p_out_buf_len:dword  // 压缩过后的内存块的长度,要函数内部来负责申请这块空间。  ):boolean; // 压缩成功返回true否则false.解压缩的同理。
============================================================
拜谢恩人!!!!!!!!!!!!!!!