home *** CD-ROM | disk | FTP | other *** search
/ Software Recommendations - 1998 Season 1 / DNBCD4.iso / develop / lib / addzip / ADDZIP.ZIP / DELPHI / AIM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-15  |  1.1 KB  |  41 lines
  1. unit AIM;
  2.  
  3. interface
  4. uses
  5. {$IFDEF WIN32}
  6.   Windows;
  7. {$ELSE}
  8.   WinTypes, WinProcs;
  9. {$ENDIF}
  10.  
  11. {
  12. aim.pas
  13.  
  14. Borland Delphi interface unit for addZIP In-Memory (AIM) compression library
  15. Copyright ⌐ 1995,1997 Stephen Darlington. All rights reserved.
  16.  
  17. Borland Delphi interface unit created by Brad Clarke.
  18. }
  19.  
  20. function addZIP_InMemory(lpszOriginal: PChar; dwOriginal: LongInt; lpszComp: PChar; dwComp: LongInt):
  21.          LongInt; {$ifdef Win32} stdcall; {$endif Win32}
  22.  
  23. function addUNZIP_InMemory(lpszOriginal: PChar; dwOriginal: LongInt; lpszComp: PChar; dwComp: LongInt):
  24.          LongInt; {$ifdef Win32} stdcall; {$endif Win32}
  25.  
  26. {$IFDEF WIN32}
  27.   Const LIBNAME = 'AIM32.DLL';
  28. {$ELSE}
  29.   Const LIBNAME = 'AIM16.DLL';
  30. {$ENDIF}
  31.  
  32. implementation
  33.  
  34. function addZIP_InMemory(lpszOriginal: PChar; dwOriginal: LongInt; lpszComp: PChar; dwComp: LongInt):
  35.          LongInt; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  36.  
  37. function addUNZIP_InMemory(lpszOriginal: PChar; dwOriginal: LongInt; lpszComp: PChar; dwComp: LongInt):
  38.          LongInt; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  39.  
  40. end.
  41.