//
// TAP
// Sample Server Application
// Revision 1.10
//
// 4/20/95 First Created
//
#define INCL_DOSERRORS
#define INCL_WIN
#include <os2.h>
#include <stdio.h>
#include <share.h>
#include <fcntl.h>
#include <string.h>
#include "tapserve.h"
#include "svrsamp.h"
//***
//* Global Data
//* (Hey, this is just a sample!)
//***
HAB hab;
HMODULE hmod = NULLHANDLE;
PTAPSERVERINFO pTapServerInfo;
PAPSZ papszFQFilename = NULL;
ULONG ulFQFCount = 0;
ULONG ulCurrentFile = 0;
ULONG ulFileSize = 0;
ULONG ulCurrentSize = 0;
int iTransferRunning = FALSE;
HFILE hfileTransfer;
BOOL fFileOpen = FALSE;
//
// void SetStatusLine(HWND hWndDlg, char *msg);
//
// Displays a new message on the status line.
//
// Parameters
// hWndDlg
// Window handle of the server dialog.
// msg
// Message to put on the status line.
//
void SetStatusLine(HWND hWndDlg, char *msg)
{
// Set status line text
WinSetDlgItemText(hWndDlg,
TAP_STATUSLINE_ID,
msg);
}
//
// void StopOrStartTransferSimulation(HWND hWnd);
//
// Toggles the transfer simulation on or off.
//
// Parameters
// hWnd
// Window handle of the server dialog.
//
void StopOrStartTransferSimulation(HWND hWnd)
{
// Make sure we have a list of files to send
if (ulFQFCount)
{
if (iTransferRunning)
{
// Stop the transfer
WinStopTimer(hab,
hWnd,
TRANSFER_TIMER);
// Close the opened file
if (fFileOpen) {
DosClose (hfileTransfer);
}
fFileOpen = FALSE;
ulCurrentFile = 0;
ulFileSize = 0;
ulCurrentSize = 0;
// Let TAP know we are cancelling
Cancel_TAP(pTapServerInfo);
EndOfBatch_TAP(pTapServerInfo);
// Change button text
WinSetDlgItemText(hWnd,
TAP_SERVE_ID,
"Simulate Transfer");
SetStatusLine(hWnd, "Transfer aborted");
iTransferRunning = FALSE;
}
else
{
int iSliderPosition;
// Query current slider position
iSliderPosition = (int)
WinSendDlgItemMsg(hWnd,
TAP_SPEED_ID,
SLM_QUERYSLIDERINFO,
(MPARAM) MPFROM2SHORT(SMA_SLIDERARMPOSITION,
SMA_INCREMENTVALUE),
(MPARAM) 0);
// Start the transfer
WinStartTimer(hab,
hWnd,
TRANSFER_TIMER,
(ULONG)((50 - iSliderPosition) * 20));
// Change button text
WinSetDlgItemText(hWnd,
TAP_SERVE_ID,
"Stop Transfer");
// Close current file
if (fFileOpen) {
DosClose (hfileTransfer);
}
ulCurrentFile = 0;
SetStatusLine(hWnd, "Transfer started");
iTransferRunning = TRUE;
}
}
else
WinMessageBox(HWND_DESKTOP,
hWnd,
"You must select one or more files first",
"Error",
0,
MB_OK);
}
//
// void GetFilesToSend(HWND hWnd)
//
// Brings up the file dialog and allows
// the user to select one or more
// files for the transfer simulation.
//
// The array of files is kept as global
// data.
//
// Parameters
// hWnd
// Window handle of the server dialog.
//
void GetFilesToSend(HWND hWnd)
{
FILEDLG FileDlg;
// Clear file dialog structure
memset(&FileDlg, 0, sizeof(FileDlg));
// Fill in file dialog structure
FileDlg.cbSize = sizeof(FileDlg);
FileDlg.fl = FDS_CENTER | FDS_MULTIPLESEL | FDS_OPEN_DIALOG;
strcpy(FileDlg.szFullFile, "*.*");
// Call common file dialog
WinFileDlg(HWND_DESKTOP,
hWnd,
&FileDlg);
// On good return, save our file list
if ((FileDlg.lReturn == DID_OK) && (FileDlg.ulFQFCount))
{
// Free any old file list,
// keep memory leaks to a minimum <G>
if (papszFQFilename)
WinFreeFileDlgList(papszFQFilename);
papszFQFilename = FileDlg.papszFQFilename;
ulFQFCount = FileDlg.ulFQFCount;
}
}
//
// void TransferTimerTick(HWND hWnd);
//
// This function should be called every
// n milliseconds. During each call, either
// the a new file is opened, file size is
// incremented, a file is closed, or the
// transfer is ended.
//
// This is the main transfer simulation.
//
// Parameters
// hWnd
// Window handle of the server dialog.
//
void TransferTimerTick(HWND hWnd)
{
// See if we have a file currently open
if (fFileOpen)
{
char out[CCHMAXPATH * 2];
// Determine next position in the file
ulCurrentSize = ((ulCurrentSize + 1024 < ulFileSize) ? ulCurrentSize + 1024 : ulFileSize);
// Update status line
sprintf(out, "Transferred %u of %u", ulCurrentSize, ulFileSize);
SetStatusLine(hWnd, out);
// Update TAP
SetCurrentSize_TAP(pTapServerInfo, (LONG)ulCurrentSize);
// Close file if we've reached the end
if (ulCurrentSize == ulFileSize)
{
sprintf(out, "Closing file", (*papszFQFilename)[ulCurrentFile]);
SetStatusLine(hWnd, out);
// Let TAP know we're closing the file
EndOfFile_TAP(pTapServerInfo);
DosClose (hfileTransfer);
fFileOpen = FALSE;
}
}
else
{
// Have we reached the end of the array
// of files?
if (ulCurrentFile < ulFQFCount)
{
char out[CCHMAXPATH * 2];
// No file open, open it now and get ready
{ ULONG ulTemp;
if (DosOpen ((*papszFQFilename)[ulCurrentFile], &hfileTransfer, &ulTemp, 0L, FILE_NORMAL, OPEN_ACTION_OPEN_IF_EXISTS|OPEN_ACTION_FAIL_IF_NEW, OPEN_FLAGS_NOINHERIT | OPEN_ACCESS_READONLY | OPEN_SHARE_DENYWRITE, 0L) == NO_ERROR) {
fFileOpen = TRUE;
}
}
// Determine file size
{ FILESTATUS3 filestatus;
DosQueryFileInfo (hfileTransfer, FIL_STANDARD, &filestatus, sizeof (filestatus));
ulFileSize = filestatus.cbFile;
}
ulCurrentSize = 0;
// Let TAP know we started a new file
SetFileName_TAP(pTapServerInfo, (*papszFQFilename)[ulCurrentFile]);
SetCompleteSize_TAP(pTapServerInfo, (LONG)ulFileSize);
SetCurrentSize_TAP(pTapServerInfo, 0);
sprintf(out, "Readying for transfer of %s", (*papszFQFilename)[ulCurrentFile]);
SetStatusLine(hWnd, out);
ulCurrentFile ++;
}
else
{
// Stop the transfer
WinStopTimer(hab,
hWnd,
TRANSFER_TIMER);
// End of file transfer
iTransferRunning = FALSE;
SetStatusLine(hWnd, "Transfer complete");
ulCurrentFile = 0;
fFileOpen = FALSE;
ulFileSize = 0;
ulCurrentSize = 0;
// Let TAP know that's the last file
EndOfBatch_TAP(pTapServerInfo);
// Change button text
WinSetDlgItemText(hWnd,
TAP_SERVE_ID,
"Simulate Transfer");
}
}
}
//
// MRESULT EXPENTRY ServerDlgProc(HWND hWnd, ULONG msg, MPARAM mp1, MPARAM mp2);
//
// Server dialog proc
//
MRESULT EXPENTRY ServerDlgProc(HWND hWnd, ULONG msg, MPARAM mp1, MPARAM mp2)
{
MRESULT mResult = 0;
switch (msg)
{
case WM_TIMER :
{
switch (SHORT1FROMMP(mp1))
{
case TRANSFER_TIMER :
TransferTimerTick(hWnd);
break;
default :
mResult = WinDefDlgProc(hWnd, msg, mp1, mp2);
break;
}
break;
}
case WM_CONTROL :
{
switch (SHORT1FROMMP(mp1))
{
case TAP_SPEED_ID :
if (SHORT2FROMMP(mp1) == SLN_CHANGE)
{
int iSliderPosition;
// Query current slider position
iSliderPosition = (int)
WinSendDlgItemMsg(hWnd,
TAP_SPEED_ID,
SLM_QUERYSLIDERINFO,
(MPARAM) MPFROM2SHORT(SMA_SLIDERARMPOSITION,
SMA_INCREMENTVALUE),
(MPARAM) 0);
// Set new timer frequency
if (iTransferRunning)
WinStartTimer(hab,
hWnd,
TRANSFER_TIMER,
(ULONG)((50 - iSliderPosition) * 20));
}
break;
default :
mResult = WinDefDlgProc(hWnd, msg, mp1, mp2);
break;
}
break;
}
case WM_COMMAND :
{
switch (SHORT1FROMMP(mp1))
{
case TAP_SPEED_ID :
if (SHORT2FROMMP(mp1) == SLN_CHANGE)
{
int iSliderPosition;
// Query current slider position
iSliderPosition = (int)
WinSendDlgItemMsg(hWnd,
TAP_SPEED_ID,
SLM_QUERYSLIDERINFO,
(MPARAM) MPFROM2SHORT(SMA_SLIDERARMPOSITION,
SMA_INCREMENTVALUE),
(MPARAM) 0);
// Set new timer frequency
if (iTransferRunning)
WinStartTimer(hab,
hWnd,
TRANSFER_TIMER,
(ULONG)((50 - iSliderPosition) * 20));
}
break;
case TAP_FILES_ID :
GetFilesToSend(hWnd);
break;
case TAP_APPLICATION_ID :
SelectApplication_TAP(pTapServerInfo,
HWND_DESKTOP,
hWnd,
hmod);
break;
case TAP_SERVE_ID :
StopOrStartTransferSimulation(hWnd);
break;
default :
mResult = WinDefDlgProc(hWnd, msg, mp1, mp2);
break;
}
break;
}
default :
mResult = WinDefDlgProc(hWnd, msg, mp1, mp2);
break;
}
return mResult;
}
INT main(int argc, char **argv)
{
HMQ hmq;
argc = argc;
argv = argv;
// Initialize TAP server
pTapServerInfo = InitializeServer_TAP(TAP_SERVER_VERSION);
// Initialize PM
hab = WinInitialize(0);
hmq = WinCreateMsgQueue(hab, 0);
// Load modal sample server dialog
WinDlgBox(HWND_DESKTOP,
HWND_DESKTOP,
ServerDlgProc,
hmod,
TAP_SERVER_DLG,
NULL);
// DeInitialize PM
WinDestroyMsgQueue(hmq);
WinTerminate(hab);
// DeInitialize TAP server
DeInitializeServer_TAP(pTapServerInfo);
return (0);
}
