home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d5 / cak / CAKINST.ZIP / cmarc139.lzh / DEMOCB.LZH / LHPRSTUB.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  2000-07-23  |  3.2 KB  |  48 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. //---------------------------------------------------------------------------
  6. #pragma package( smart_init )
  7.  
  8. #include "Archives.hpp"
  9.  
  10. #if( __BORLANDC__ < 0x0550 )    //    C++ Builder 5 éµéΦæOüH
  11.  
  12. namespace Lhprgdlg {
  13.  
  14. class PASCALIMPLEMENTATION TdlgArchiverProgress : public Forms::TForm {
  15. #if( __BORLANDC__ <= 0x0530 )    //    C++ Builder 3 ê╚æOüH
  16.     typedef INT     TDELPHIHANDLE;
  17.     typedef INT     TDELPHIDWORD;
  18.     typedef PINT    PDELPHIDWORD;
  19. #else
  20.     typedef UINT    TDELPHIHANDLE;
  21.     typedef UINT    TDELPHIDWORD;
  22.     typedef PUINT   PDELPHIDWORD;
  23. #endif
  24.  
  25. //    int __fastcall UnpackFiles  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString DstPath,const System::TVarRec* FileList,const int FileListSize );
  26. //    int __fastcall PackFiles    ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  27. //    int __fastcall RemoveItems  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  28. //    int __fastcall UpdateArchive( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  29. //    int __fastcall MakeSfx      ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString DstPath );
  30.     int __fastcall UnpackToMem  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString FileName,void* lpvBuffer,TDELPHIDWORD dwSize,PDWORD lpdwWriteSize );
  31.  
  32. //    int __fastcall UnpackFiles  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString DstPath,const System::TVarRec* FileList,const int FileListSize );
  33. //    int __fastcall PackFiles    ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  34. //    int __fastcall RemoveItems  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  35. //    int __fastcall UpdateArchive( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString BaseDir,const System::TVarRec* FileList,const int FileListSize );
  36. //    int __fastcall MakeSfx      ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString DstPath                                                        );
  37.     int __fastcall UnpackToMem  ( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString FileName,void* lpvBuffer,TDELPHIDWORD dwSize,PDELPHIDWORD lpdwWriteSize );
  38. };
  39.  
  40. int __fastcall TdlgArchiverProgress::UnpackToMem( Archives::TArchiveFile* ArchiveFile,Archives::TArchiverOptions* Options,System::AnsiString FileName,void* lpvBuffer,TDELPHIDWORD dwSize,PDWORD lpdwWriteSize ){
  41.     return UnpackToMem( ArchiveFile,Options,FileName,lpvBuffer,TDELPHIDWORD( dwSize ),PDELPHIDWORD( lpdwWriteSize ));
  42. }
  43.  
  44. };
  45.  
  46. #endif    //    __BORLANDC__ < 0x0550    C++ Builder 5 éµéΦæOüH
  47.  
  48.