285 lines
9.4 KiB
C
Executable File
285 lines
9.4 KiB
C
Executable File
/*
|
|
* EX00WIN.C
|
|
*
|
|
* C/Windows Example program for ArchiveLib 2.0
|
|
*
|
|
* Copyright (c) Greenleaf Software, Inc. 1994 - 1996
|
|
* All Rights Reserved
|
|
*
|
|
* MEMBERS/FUNCTIONS DEMONSTRATED
|
|
*
|
|
* ALStorageSetError()
|
|
* deleteALArchive()
|
|
* ALArchiveCreate()
|
|
* deleteALMonitor()
|
|
* newALWindowsMessage()
|
|
*
|
|
* DESCRIPTION
|
|
*
|
|
* This example program creates an archive and adds files to it, while
|
|
* using an ALBarGraph monitor. By default it uses INPUT*.DAT and
|
|
* *.BAK as its input files, but you can modify this by entering new
|
|
* data in the AL_INPUT_FILES text box.
|
|
*
|
|
* This program uses a dialog as its main window. Unlike most of the
|
|
* other Windows examples, this guy doesn't have a dummy frame window
|
|
* around the dialog.
|
|
*
|
|
* This program is functionally equivalent to EX00WIN.CPP. The C version
|
|
* uses the translation layer functions to get the job done, but if
|
|
* you put them side by side, you won't see too much difference.
|
|
*
|
|
* REVISION HISTORY
|
|
*
|
|
* February 1, 1996 2.0A : Second release
|
|
*
|
|
*/
|
|
|
|
#define STRICT
|
|
#include <windows.h>
|
|
#include <stdarg.h>
|
|
|
|
#include "arclib.h"
|
|
#include "pkarc.h"
|
|
#include "glarc.h"
|
|
#include "winmon.h"
|
|
#include "ex00win.h"
|
|
|
|
#if defined( AL_BORLAND ) || !defined( AL_FLAT_MODEL )
|
|
#define AL_3D
|
|
#include "ctl3d.h"
|
|
#else
|
|
#define Ctl3dColorChange()
|
|
#define Ctl3dRegister( a )
|
|
#define Ctl3dAutoSubclass( a )
|
|
#define Ctl3dUnregister( a )
|
|
#endif
|
|
|
|
int iInstanceNumber;
|
|
HINSTANCE hInstance;
|
|
hALArchive hArchive = 0;
|
|
|
|
BOOL AL_EXPORT CALLBACK AboutDialogProc( HWND, UINT, WPARAM, LPARAM );
|
|
|
|
/*
|
|
* This the routine that gets invoked in response to the user pressing
|
|
* the compress button. This is dispatched from the dialog procedure.
|
|
* It just creates a monitor, then a list, then an archive. If that
|
|
* all goes okay, the wild cards get added to the list, then the Create
|
|
* procedure is called.
|
|
*
|
|
* There is one slightly tricky bit here. The archive handle is kept in
|
|
* a global variable. We abort the archiving procedure by calling SetError
|
|
* for that archive. This means that we have to be really careful to set
|
|
* that handle back to zero when we destroy the archive.
|
|
*/
|
|
|
|
void Compress( HWND hDlg )
|
|
{
|
|
char archive_name[ 128 ];
|
|
char input_name[ 128 ];
|
|
hALEntryList hList;
|
|
hALMonitor hMonitor;
|
|
|
|
hMonitor = newALWindowsMessage( AL_MONITOR_JOB,
|
|
GetDlgItem( hDlg, AL_PROGRESS_TEXT ),
|
|
AL_SEND_BYTE_COUNT,
|
|
GetDlgItem( hDlg, AL_PROGRESS_NUMBER ),
|
|
0 );
|
|
GetDlgItemText( hDlg, AL_ARCHIVE_NAME, archive_name, 128 );
|
|
#if defined( ZIP )
|
|
hList = newALListPkCompressTools( hMonitor, AL_DEFAULT, AL_DEFAULT, AL_DEFAULT );
|
|
hArchive = newALPkArchive( archive_name );
|
|
#else
|
|
hList = newALListGlCompressTools( hMonitor, AL_DEFAULT );
|
|
hArchive = newALGlArchive( archive_name );
|
|
#endif
|
|
if ( hArchive && hList ) {
|
|
GetDlgItemText( hDlg, AL_INPUT_FILES, input_name, 128 );
|
|
ALEntryListAddWildCardFiles( hList, input_name, 0 );
|
|
ALArchiveCreate( hArchive, hList );
|
|
SetDlgItemText( hDlg,
|
|
AL_PROGRESS_TEXT,
|
|
ALArchiveGetStatusString( hArchive ) );
|
|
} else
|
|
SetDlgItemText( hDlg, AL_PROGRESS_TEXT, "Done, allocation failure" );
|
|
if ( hMonitor )
|
|
deleteALMonitor( hMonitor );
|
|
if ( hList )
|
|
deleteALEntryList( hList );
|
|
if ( hArchive )
|
|
deleteALArchive( hArchive );
|
|
hArchive = 0;
|
|
}
|
|
|
|
|
|
/*
|
|
* This is the dialog procedure for our main dialog. In this program, all
|
|
* the important work gets done here. Most of it gets down by the
|
|
* handler for WM_COMMAND, which processes the button presses from the
|
|
* dialog.
|
|
*/
|
|
|
|
BOOL AL_EXPORT CALLBACK MainDialogProc( HWND hDlg,
|
|
UINT message,
|
|
WPARAM wParam,
|
|
LPARAM lParam )
|
|
{
|
|
RECT rc;
|
|
char buf[ 81 ];
|
|
|
|
AL_UNUSED_PARAMETER( lParam );
|
|
switch ( message ) {
|
|
/*
|
|
* We respond to the init message by positioning the dialog on the screen,
|
|
* initializing the windows title, the setting up the initial values of
|
|
* all the text boxes.
|
|
*/
|
|
case WM_INITDIALOG :
|
|
GetWindowRect( hDlg, &rc );
|
|
SetWindowPos( hDlg,
|
|
0,
|
|
((GetSystemMetrics(SM_CXSCREEN) - (rc.right - rc.left)) / 2),
|
|
((GetSystemMetrics(SM_CYSCREEN) - (rc.bottom - rc.top)) / 2),
|
|
0, 0, SWP_NOSIZE | SWP_NOACTIVATE);
|
|
wsprintf( buf, "Windows example 00 <instance %d>", iInstanceNumber );
|
|
SetWindowText( hDlg, buf );
|
|
#if defined( ZIP )
|
|
wsprintf( buf, "WIN%02d.ZIP", iInstanceNumber );
|
|
#else
|
|
wsprintf( buf, "WIN%02d.GAL", iInstanceNumber );
|
|
#endif
|
|
SetDlgItemText( hDlg, AL_ARCHIVE_NAME, buf );
|
|
SetDlgItemText( hDlg, AL_INPUT_FILES, "INPUT*.DAT, *.BAK" );
|
|
SetDlgItemText( hDlg, AL_PROGRESS_TEXT, "" );
|
|
SetDlgItemText( hDlg, AL_PROGRESS_NUMBER, "" );
|
|
return( TRUE );
|
|
/*
|
|
* Have to support this message in order to make the CTL3D stuff work.
|
|
*/
|
|
case WM_SYSCOLORCHANGE :
|
|
Ctl3dColorChange();
|
|
break;
|
|
/*
|
|
* WM_COMMAND is for all the button presses.
|
|
*/
|
|
case WM_COMMAND :
|
|
switch ( wParam ) {
|
|
/*
|
|
* If the user wants to compress, we do so, but only if no compression
|
|
* is already in progress.
|
|
*/
|
|
case AL_COMPRESS :
|
|
if ( !hArchive )
|
|
Compress( hDlg );
|
|
return TRUE;
|
|
/*
|
|
* If the user wants to quit, I have to set the archive to an error status
|
|
* first. Otherwise, the compression code will keep right on going even
|
|
* after we have killed our dialog window. Code like this is used all over
|
|
* the place in all of the example programs.
|
|
*/
|
|
case AL_EXIT :
|
|
case WM_QUIT :
|
|
case WM_DESTROY :
|
|
if ( hArchive ) {
|
|
hALStorage hFile = ALArchiveGetStorage( hArchive );
|
|
ALStorageSetError( hFile,
|
|
AL_USER_ABORT,
|
|
"User pressed abort key" );
|
|
}
|
|
EndDialog( hDlg, TRUE );
|
|
return TRUE;
|
|
/*
|
|
* We abort a compression in progress the same way, by setting the
|
|
* error code for the archive storage object. Likewise, code that looks
|
|
* just like this is used all throughout our example programs.
|
|
*/
|
|
case AL_ABORT :
|
|
if ( hArchive ) {
|
|
hALStorage hFile = ALArchiveGetStorage( hArchive );
|
|
ALStorageSetError( hFile,
|
|
AL_USER_ABORT,
|
|
"User pressed abort key" );
|
|
}
|
|
return TRUE;
|
|
|
|
case AL_ABOUT :
|
|
DialogBox( hInstance, "ALAboutDialog", 0, (DLGPROC) AboutDialogProc );
|
|
return TRUE;
|
|
}
|
|
break;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
/*
|
|
* The about procedure just displays the about box.
|
|
*/
|
|
BOOL AL_EXPORT CALLBACK AboutDialogProc( HWND hDlg,
|
|
UINT message,
|
|
WPARAM wParam,
|
|
LPARAM lParam )
|
|
{
|
|
RECT rc;
|
|
|
|
AL_UNUSED_PARAMETER( lParam );
|
|
|
|
switch ( message ) {
|
|
case WM_INITDIALOG :
|
|
GetWindowRect( hDlg, &rc );
|
|
SetWindowPos( hDlg,
|
|
0,
|
|
((GetSystemMetrics(SM_CXSCREEN) - (rc.right - rc.left)) / 2),
|
|
((GetSystemMetrics(SM_CYSCREEN) - (rc.bottom - rc.top)) / 2),
|
|
0, 0, SWP_NOSIZE | SWP_NOACTIVATE );
|
|
break;
|
|
case WM_COMMAND :
|
|
switch ( wParam ) {
|
|
case IDOK :
|
|
case AL_EXIT :
|
|
case WM_QUIT :
|
|
case WM_DESTROY :
|
|
EndDialog( hDlg, TRUE );
|
|
return TRUE;
|
|
|
|
}
|
|
break;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
/*
|
|
* WinMain just has to dispatch the dialog box. It also calls the routine
|
|
* to register the ALGauge class, and it also sets up the CTL3d stuff. Note
|
|
* that you can run multiple instances of this program, (good for testing
|
|
* the DLL), so we also get some instance info.
|
|
*/
|
|
|
|
int PASCAL WinMain( HINSTANCE instance,
|
|
HINSTANCE previous_instance,
|
|
LPSTR cmd_line,
|
|
int cmd_show )
|
|
{
|
|
AL_UNUSED_PARAMETER( cmd_line );
|
|
AL_UNUSED_PARAMETER( cmd_show );
|
|
|
|
hInstance = instance;
|
|
if ( previous_instance == 0 )
|
|
iInstanceNumber = 0;
|
|
#if !defined( AL_FLAT_MODEL )
|
|
else {
|
|
GetInstanceData( previous_instance,
|
|
(PBYTE) &iInstanceNumber,
|
|
sizeof iInstanceNumber );
|
|
iInstanceNumber++;
|
|
}
|
|
#endif
|
|
Ctl3dRegister( instance );
|
|
Ctl3dAutoSubclass( instance );
|
|
DialogBox( instance, "ALMainDialog", 0, (DLGPROC) MainDialogProc );
|
|
Ctl3dUnregister( instance );
|
|
return 0;
|
|
}
|