请问有没有人通过zlib.dll写程序呀？

1。老大，有没有人通过zlib.dll通过load读入dll的方法来完成程序设计？？  
  2。请问怎样可以直接对dll文件进行调用？给点代码好吗？

• · 推荐参考文章：
• 400用户大会心得之---技术与非技术的学习
• 400用户大会心得之---400的前途及钱途之我见
• 解决系统空间不足的方法
• 学习资料
• AS400 安装
• 400操作入门
• 为什么我的AS400里没有CREATE TRIGGER命令？？
• System Reference Codes
• 让Windows 2000/XP快速复制移动文件
• 用Windows XP快速复制移动文件

· 网友精彩回答：

调用dll里的函数，至少应该知道函数的接口。

先得转coff2omf.exe   zlib.lib   \omf\zlib.lib  
   
  #pragma   hdrstop  
   
  #include   <stdio.h>  
  #include   "zlib.h"  
   
  #pragma   link   "zlib.lib"  
  #pragma   argsused  
  //---------------------------------------------------------------------------  
  int   main(int   argc,   char*   argv[])  
  {  
          char     *zzfn,   *unfn;  
          file     *fp   =   null;  
          gzfile     zf   =   null;  
          #define   my_buffer_size     16*1024  
          char     buf[my_buffer_size];  
          int       len;  
          if   (argc!=4)  
          {  
                  printf("usage:   unzip   -z   unzipfile   zipfile   or   unzip   -u   zipfile   unzipfile.");  
                  return   0;  
          }  
          if   (argv[1][0]==-   &&   (argv[1][1]==z   ||   argv[1][1]==z))  
          {  
                  unfn   =   argv[2];  
                  zzfn   =   argv[3];  
                  if   (   (fp   =   fopen(unfn,   "rb"))   ==   null)  
   
                          return   0;  
                  if   (   (zf   =   gzopen(zzfn,   "wb9"))   ==   null)  
                  {  
                          fclose(fp);  
                          return   0;  
                  }  
                  do  
                  {  
                          len   =   fread(buf,   1,   my_buffer_size,   fp);  
                          gzwrite(zf,   buf,   len);  
                  }while(!feof(fp));  
          }  
          else   if   (argv[1][0]==-   &&   (argv[1][1]==u   ||   argv[1][1]==u))  
          {  
                  unfn   =   argv[3];  
                  zzfn   =   argv[2];  
                  if   (   (fp   =   fopen(unfn,   "wb"))   ==   null)  
   
                          return   0;  
                  if   (   (zf   =   gzopen(zzfn,   "rb9"))   ==   null)  
                  {  
                          fclose(fp);  
                          return   0;  
                  }  
                  do  
                  {  
                          len   =   gzread(zf,   buf,   my_buffer_size);  
                          fwrite(buf,   1,   len,   fp);  
                  }while(!gzeof(zf));  
          }  
   
          fclose(fp);  
          gzclose(zf);  
   
          return   0;  
  }  
  //---------------------------------------------------------------------------  
 

如果有需要帮忙的可以到qq群:9478900来

偶喜欢使用zlib   for   delphi的组件