453 lines
15 KiB
C
453 lines
15 KiB
C
|
/*
|
||
|
|
* EX02WIN.C
|
||
|
|
*
|
||
|
|
* C/Windows Example program for ArchiveLib 2.0
|
||
|
|
*
|
||
|
|
* Copyright (c) Greenleaf Software, Inc. 1994 - 1996
|
||
|
|
* All Rights Reserved
|
||
|
|
*
|
||
|
|
* MEMBERS/FUNCTIONS DEMONSTRATED
|
||
|
|
*
|
||
|
|
* ALArchiveAppendFromArchive()
|
||
|
|
* ALArchiveCreateFromArchive()
|
||
|
|
* ALArchiveReadDirectory()
|
||
|
|
* ALEntryListClearMarks()
|
||
|
|
* ALEntryListSetMarksFromDialog()
|
||
|
|
*
|
||
|
|
* DESCRIPTION
|
||
|
|
*
|
||
|
|
* EX02WIN demonstrates ALArchiveCreate() and ALArchiveAppend().
|
||
|
|
* Both of these functions have overloaded versions so that you can use
|
||
|
|
* an archive or a list of storage objects as your input. In this case,
|
||
|
|
* the input comes from an archive. The program lets you select a list
|
||
|
|
* of files from the input archive, and then gives you the choice of
|
||
|
|
* either copying or appending to a new archive.
|
||
|
|
*
|
||
|
|
* This is a very simple Windows program. It works by creating a modeless
|
||
|
|
* dialog box, then wrapping a framing window around it. By using a framing
|
||
|
|
* window as the main window we are able to handle accelerator keys, menus,
|
||
|
|
* and icons a bit easier. Because of this approach, WinMain() and
|
||
|
|
* MainWndProc() are not very exciting, and have been moved down to the
|
||
|
|
* bottom of the file. MainWndProc() does handle menus and accelerator
|
||
|
|
* keys, so it comes first.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* REVISION HISTORY
|
||
|
|
*
|
||
|
|
* February 1, 1996 2.0A : Second release
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define STRICT
|
||
|
|
#include <windows.h>
|
||
|
|
#include <stdarg.h>
|
||
|
|
|
||
|
|
#include "al.h"
|
||
|
|
#include "algauge.h"
|
||
|
|
#include "ex02win.h"
|
||
|
|
|
||
|
|
int iInstanceNumber;
|
||
|
|
HINSTANCE hInstance;
|
||
|
|
HWND hDlgMain = 0;
|
||
|
|
hALArchive hArchive = 0;
|
||
|
|
void SizeFramingWindow( HWND hDlg );
|
||
|
|
void Copy( HWND hDlg, int append_flag );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* With a member function dedicated to filling list boxes,
|
||
|
|
* displaying the contents of an archive in a list box becomes real easy.
|
||
|
|
*/
|
||
|
|
|
||
|
|
void ReadArchive( HWND hDlg, int archive_name, int list_box )
|
||
|
|
{
|
||
|
|
char input_name[ 128 ];
|
||
|
|
hALArchive arc;
|
||
|
|
|
||
|
|
GetDlgItemText( hDlg, archive_name, input_name, 128 );
|
||
|
|
#if defined( ZIP )
|
||
|
|
arc = newALPkArchive( input_name );
|
||
|
|
#else
|
||
|
|
arc = newALGlArchive( input_name );
|
||
|
|
#endif
|
||
|
|
if ( arc ) {
|
||
|
|
ALArchiveFillListBox( arc, hDlg, list_box );
|
||
|
|
deleteALArchive( arc );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* To perform this function, I create a new list by reading the contents
|
||
|
|
* of the input archive. I then set the marks based on what the user
|
||
|
|
* has set in the input list box. The list is then ready to be passed
|
||
|
|
* as a parameter to the Archive() or Create() command, and we are done.
|
||
|
|
* After the command has been executed, we update the list box displays of
|
||
|
|
* the contents of both archives.
|
||
|
|
*/
|
||
|
|
|
||
|
|
void Copy( HWND hDlg, int append_flag )
|
||
|
|
{
|
||
|
|
char input_name[ 128 ];
|
||
|
|
hALMonitor hMonitor;
|
||
|
|
hALEntryList hList;
|
||
|
|
int count;
|
||
|
|
|
||
|
|
hMonitor = newALWindowsMessage( AL_MONITOR_JOB,
|
||
|
|
GetDlgItem( hDlg, AL_PROGRESS_TEXT ),
|
||
|
|
AL_SEND_RATIO,
|
||
|
|
GetDlgItem( hDlg, AL_PROGRESS_BAR ),
|
||
|
|
ALGaugeSetPosition );
|
||
|
|
GetDlgItemText( hDlg, AL_INPUT, input_name, 128 );
|
||
|
|
#if defined( ZIP )
|
||
|
|
hArchive = newALPkArchive( input_name );
|
||
|
|
hList = newALListPkTools( hMonitor, AL_DEFAULT, AL_DEFAULT, AL_DEFAULT );
|
||
|
|
#else
|
||
|
|
hArchive = newALGlArchive( input_name );
|
||
|
|
hList = newALListGlTools( hMonitor, AL_DEFAULT );
|
||
|
|
#endif
|
||
|
|
if ( hArchive && hList ) {
|
||
|
|
char archive_name[ 128 ];
|
||
|
|
hALArchive output_archive;
|
||
|
|
ALArchiveReadDirectory( hArchive, hList );
|
||
|
|
ALEntryListClearMarks( hList, 0 );
|
||
|
|
|
||
|
|
count = ALEntryListSetMarksFromListBox( hList, hDlg, AL_INPUT_LIST );
|
||
|
|
EditDisplay( hDlg,
|
||
|
|
AL_DEBUG,
|
||
|
|
"%d file%s selected\r\n",
|
||
|
|
count,
|
||
|
|
(LPSTR) (count == 1 ? " is" : "s are" ) );
|
||
|
|
|
||
|
|
GetDlgItemText( hDlg, AL_OUTPUT, archive_name, 128 );
|
||
|
|
#if defined( ZIP )
|
||
|
|
output_archive = newALPkArchive( archive_name );
|
||
|
|
#else
|
||
|
|
output_archive = newALGlArchive( archive_name );
|
||
|
|
#endif
|
||
|
|
if ( append_flag )
|
||
|
|
ALArchiveAppendFromArchive( output_archive, hArchive, hList );
|
||
|
|
else
|
||
|
|
ALArchiveCreateFromArchive( output_archive, hArchive, hList );
|
||
|
|
deleteALArchive( output_archive );
|
||
|
|
}
|
||
|
|
if ( hList )
|
||
|
|
deleteALEntryList( hList );
|
||
|
|
if ( hMonitor )
|
||
|
|
deleteALMonitor( hMonitor );
|
||
|
|
ReadArchive( hDlg, AL_INPUT, AL_INPUT_LIST );
|
||
|
|
ReadArchive( hDlg, AL_OUTPUT, AL_OUTPUT_LIST );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* This is the window procedure for the dialog. It handles all the commands
|
||
|
|
* except accelerator keys and menu items, which get shipped to the
|
||
|
|
* framing window.
|
||
|
|
*/
|
||
|
|
|
||
|
|
BOOL AL_EXPORT CALLBACK MainDialogProc( HWND hDlg,
|
||
|
|
UINT message,
|
||
|
|
WPARAM wParam,
|
||
|
|
LPARAM lParam )
|
||
|
|
{
|
||
|
|
char buf1[ 81 ];
|
||
|
|
char buf2[ 81 ];
|
||
|
|
|
||
|
|
AL_UNUSED_PARAMETER( lParam );
|
||
|
|
|
||
|
|
switch ( message ) {
|
||
|
|
/*
|
||
|
|
* When the dialog first gets created, we have to initialize the
|
||
|
|
* title bar text, plus the contents of the text boxes that list the
|
||
|
|
* name of the input archive and the output archive.
|
||
|
|
*/
|
||
|
|
case WM_INITDIALOG :
|
||
|
|
SizeFramingWindow( hDlg );
|
||
|
|
wsprintf( buf1, "Windows Example 02 <instance %d>", iInstanceNumber );
|
||
|
|
SetWindowText( GetParent( hDlg ), buf1 );
|
||
|
|
#if defined( ZIP )
|
||
|
|
wsprintf( buf1, "WIN%02d.ZIP", iInstanceNumber );
|
||
|
|
wsprintf( buf2, "OUT%02d.ZIP", iInstanceNumber );
|
||
|
|
#else
|
||
|
|
wsprintf( buf1, "WIN%02d.GAL", iInstanceNumber );
|
||
|
|
wsprintf( buf2, "OUT%02d.GAL", iInstanceNumber );
|
||
|
|
#endif
|
||
|
|
SetDlgItemText( hDlg, AL_INPUT, buf1 );
|
||
|
|
SetDlgItemText( hDlg, AL_OUTPUT, buf2 );
|
||
|
|
return( TRUE );
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Most of the interesting things in the dialog happen when a WM_COMMAND
|
||
|
|
* message is received. These are usually in response to the press
|
||
|
|
* of buttons in the dialog.
|
||
|
|
*/
|
||
|
|
case WM_COMMAND :
|
||
|
|
switch ( wParam ) {
|
||
|
|
/*
|
||
|
|
* We get this when the user hits Return. What we do depends on where
|
||
|
|
* the focus is currently located.
|
||
|
|
*/
|
||
|
|
case IDOK : /* User pressed enter */
|
||
|
|
if ( GetFocus() == GetDlgItem( hDlg, AL_INPUT ) )
|
||
|
|
ReadArchive( hDlg, AL_INPUT, AL_INPUT_LIST );
|
||
|
|
else if ( GetFocus() == GetDlgItem( hDlg, AL_OUTPUT ) )
|
||
|
|
ReadArchive( hDlg, AL_OUTPUT, AL_OUTPUT_LIST );
|
||
|
|
break;
|
||
|
|
/*
|
||
|
|
* Read the input archive when this button gets clicked.
|
||
|
|
*/
|
||
|
|
case AL_READ_INPUT :
|
||
|
|
ReadArchive( hDlg, AL_INPUT, AL_INPUT_LIST );
|
||
|
|
return TRUE;
|
||
|
|
/*
|
||
|
|
* Read the output archive when this button gets clicked.
|
||
|
|
*/
|
||
|
|
case AL_READ_OUTPUT :
|
||
|
|
ReadArchive( hDlg, AL_OUTPUT, AL_OUTPUT_LIST );
|
||
|
|
return TRUE;
|
||
|
|
/*
|
||
|
|
* When I get a click on the copy button, I execute the Copy() procedure.
|
||
|
|
* note that if a copy or append is already in progress, I figure that
|
||
|
|
* out by the presence of the global variable pArchive. In that case,
|
||
|
|
* just skip it.
|
||
|
|
*/
|
||
|
|
case AL_COPY :
|
||
|
|
if ( !hArchive ) {
|
||
|
|
Copy( hDlg, 0 );
|
||
|
|
if ( hArchive ) {
|
||
|
|
deleteALArchive( hArchive );
|
||
|
|
hArchive = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
/*
|
||
|
|
* Almost identical to the Copy button.
|
||
|
|
*/
|
||
|
|
case AL_APPEND :
|
||
|
|
if ( !hArchive ) {
|
||
|
|
Copy( hDlg, 1 );
|
||
|
|
if ( hArchive ) {
|
||
|
|
deleteALArchive( hArchive );
|
||
|
|
hArchive = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
/*
|
||
|
|
* If the user tries to quit while a copy or append is in progress, I
|
||
|
|
* do my best to create an error, and flash his window. Since I'm not
|
||
|
|
* sure if my error is going to take, I don't quit just yet.
|
||
|
|
* If nothing is already in progress, I just do a normal quit.
|
||
|
|
*/
|
||
|
|
case AL_EXIT :
|
||
|
|
case WM_QUIT :
|
||
|
|
case WM_DESTROY :
|
||
|
|
if ( hArchive ) {
|
||
|
|
hALStorage hFile = ALArchiveGetStorage( hArchive );
|
||
|
|
ALStorageSetError( hFile,
|
||
|
|
AL_USER_ABORT,
|
||
|
|
"User pressed abort key" );
|
||
|
|
FlashWindow( GetParent( hDlg ), 1 );
|
||
|
|
FlashWindow( GetParent( hDlg ), 0 );
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
PostMessage( GetParent( hDlg ),WM_DESTROY, 0, 0 );
|
||
|
|
DestroyWindow( hDlgMain );
|
||
|
|
hDlgMain = 0;
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
/*
|
||
|
|
* To abort an operation in progress, I just set the error code for the
|
||
|
|
* archive storage object. This should cause it to abort next time it comes
|
||
|
|
* up for air in the compression routine.
|
||
|
|
*/
|
||
|
|
case AL_ABORT :
|
||
|
|
if ( hArchive ) {
|
||
|
|
hALStorage hFile = ALArchiveGetStorage( hArchive );
|
||
|
|
ALStorageSetError( hFile,
|
||
|
|
AL_USER_ABORT,
|
||
|
|
"User pressed abort key" );
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
default :
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* The about box is pretty much what you would expect.
|
||
|
|
*/
|
||
|
|
|
||
|
|
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 WM_QUIT :
|
||
|
|
case WM_DESTROY :
|
||
|
|
EndDialog( hDlg, TRUE );
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* The main window is nothing more than a shell that exists to create
|
||
|
|
* the dialog box, take menu commands, and process accelerator keys.
|
||
|
|
*/
|
||
|
|
|
||
|
|
LONG AL_EXPORT CALLBACK MainWndProc( HWND hWnd,
|
||
|
|
UINT message,
|
||
|
|
WPARAM wParam,
|
||
|
|
LPARAM lParam )
|
||
|
|
{
|
||
|
|
switch ( message ) {
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch( wParam ) {
|
||
|
|
case AL_GOTO_INPUT :
|
||
|
|
if ( hDlgMain)
|
||
|
|
SetFocus( GetDlgItem( hDlgMain, AL_INPUT ) );
|
||
|
|
break;
|
||
|
|
case AL_GOTO_OUTPUT :
|
||
|
|
if ( hDlgMain)
|
||
|
|
SetFocus( GetDlgItem( hDlgMain, AL_OUTPUT ) );
|
||
|
|
break;
|
||
|
|
case AL_ABOUT :
|
||
|
|
DialogBox( hInstance, "ALAboutDialog", 0, (DLGPROC) AboutDialogProc );
|
||
|
|
return TRUE;
|
||
|
|
case AL_EXIT :
|
||
|
|
PostQuitMessage( 0 );
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case WM_SETFOCUS:
|
||
|
|
SetFocus( hDlgMain ); /* insure that the Dialog Box has the focus */
|
||
|
|
break;
|
||
|
|
case WM_DESTROY:
|
||
|
|
PostQuitMessage( 0 );
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return DefWindowProc( hWnd, message, wParam, lParam );
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* WinMain calls the initialization routine for the progress gauge and
|
||
|
|
* registers our class. It then creates the dialog, and starts the
|
||
|
|
* message pump.
|
||
|
|
*/
|
||
|
|
|
||
|
|
int PASCAL WinMain( HINSTANCE instance,
|
||
|
|
HINSTANCE previous_instance,
|
||
|
|
LPSTR cmd_line,
|
||
|
|
int nCmdShow )
|
||
|
|
{
|
||
|
|
HWND hWnd;
|
||
|
|
FARPROC lpfn;
|
||
|
|
MSG msg;
|
||
|
|
HACCEL hAccel;
|
||
|
|
|
||
|
|
AL_UNUSED_PARAMETER( cmd_line );
|
||
|
|
|
||
|
|
hInstance = instance;
|
||
|
|
if ( !ALGaugeInit( instance, previous_instance ) )
|
||
|
|
return (FALSE);
|
||
|
|
if ( previous_instance == 0 ) {
|
||
|
|
WNDCLASS wc;
|
||
|
|
wc.style = 0;
|
||
|
|
wc.lpfnWndProc = (WNDPROC) MainWndProc;
|
||
|
|
wc.cbClsExtra = 0;
|
||
|
|
wc.cbWndExtra = 0;
|
||
|
|
wc.hInstance = hInstance;
|
||
|
|
wc.hIcon = LoadIcon( hInstance, "ALIcon" );
|
||
|
|
wc.hCursor = LoadCursor(0,IDC_ARROW);
|
||
|
|
wc.hbrBackground = (HBRUSH) GetStockObject( WHITE_BRUSH );
|
||
|
|
wc.lpszMenuName = "ALMenu";
|
||
|
|
wc.lpszClassName = "ALClass";
|
||
|
|
if ( !RegisterClass( &wc ) )
|
||
|
|
return FALSE;
|
||
|
|
iInstanceNumber = 0;
|
||
|
|
}
|
||
|
|
#if !defined( AL_FLAT_MODEL )
|
||
|
|
else {
|
||
|
|
GetInstanceData( previous_instance,
|
||
|
|
(PBYTE) &iInstanceNumber,
|
||
|
|
sizeof iInstanceNumber );
|
||
|
|
iInstanceNumber++;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
hWnd = CreateWindow( "ALClass",
|
||
|
|
"ArchiveLib Example Program",
|
||
|
|
WS_OVERLAPPED | WS_CAPTION | WS_MINIMIZEBOX | WS_SYSMENU,
|
||
|
|
CW_USEDEFAULT,
|
||
|
|
0,
|
||
|
|
0,
|
||
|
|
0,
|
||
|
|
0,
|
||
|
|
0,
|
||
|
|
hInstance,
|
||
|
|
0);
|
||
|
|
|
||
|
|
lpfn = MakeProcInstance( (FARPROC) MainDialogProc, hInstance );
|
||
|
|
hDlgMain = CreateDialog( hInstance, "ALMainDialog", hWnd, (DLGPROC) lpfn );
|
||
|
|
ShowWindow( hWnd, nCmdShow );
|
||
|
|
ShowWindow( hDlgMain, SW_SHOW );
|
||
|
|
hAccel = LoadAccelerators( hInstance, "ALAccelerator" );
|
||
|
|
while ( GetMessage ( &msg, 0, 0, 0) ) {
|
||
|
|
HWND hWndAccel = GetActiveWindow();
|
||
|
|
if ( !( hWndAccel && TranslateAccelerator( hWndAccel, hAccel, &msg ) ) )
|
||
|
|
{
|
||
|
|
if ( hDlgMain == NULL || !IsDialogMessage( hDlgMain,&msg ) ) {
|
||
|
|
TranslateMessage( &msg );
|
||
|
|
DispatchMessage( &msg );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return msg.wParam;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* I need this routine for one purpose only. After the dialog is loaded,
|
||
|
|
* it calls this routine, which adjusts the size of the framing window to
|
||
|
|
* fit exactly around the dialog box. It also moves it to the center of
|
||
|
|
* the screen.
|
||
|
|
*/
|
||
|
|
|
||
|
|
void SizeFramingWindow( HWND hDlg )
|
||
|
|
{
|
||
|
|
RECT rect;
|
||
|
|
int y;
|
||
|
|
int x;
|
||
|
|
|
||
|
|
GetWindowRect( hDlg, &rect );
|
||
|
|
y = GetSystemMetrics( SM_CYSCREEN );
|
||
|
|
y -= ( rect.bottom - rect.top );
|
||
|
|
y -= GetSystemMetrics( SM_CYMENU ) + GetSystemMetrics( SM_CYCAPTION );
|
||
|
|
y /= 2;
|
||
|
|
x = GetSystemMetrics( SM_CXSCREEN );
|
||
|
|
x -= rect.right - rect.left;
|
||
|
|
x /= 2;
|
||
|
|
SetWindowPos( GetParent( hDlg ), 0, x, y,
|
||
|
|
rect.right-rect.left,
|
||
|
|
rect.bottom-rect.top +
|
||
|
|
GetSystemMetrics( SM_CYMENU ) +
|
||
|
|
GetSystemMetrics( SM_CYCAPTION ),
|
||
|
|
SWP_NOZORDER );
|
||
|
|
}
|