root/daqLib/daqLib.cpp

/*
 * daqLib.cpp: Simple library for NC-COOS tower computer
 *
 * Author: Sara Haines
 *
 * Copyright 2004 All Rights Reserved
 * University of North Carolina at Chapel Hill
 * Department of Marine Science
 *
 * Synopsis: This module provides system functions for the eVB program
 * called "data_acquisition.vb" that are not available in embedded 
 * Visual Basic as required by the North Carolina Coastal Ocean
 * Observing System (NC-COOS) tower computer package.
 *
 *
 * version      date            description                                                                     initials
 * -------      ----------      ------------------------------------------      --------
 *
 * 1.0          04/04/2004      API build, start with storageStatus                     SMH
 * 1.0          04/09/2004      API test usage with daqLibTest (eVB)            SMH
 * 1.0          04/10/2004      Added storagePercent, memoryStatus, and         SMH
 *                                              memoryPercentage
 * 1.0      05/04/2004  Added getDirNumFiles                        SMH
 *
 */

/*
 * Includes
 */

#include "stdafx.h"
#include "daqLib.h"

BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  ul_reason_for_call, 
                       LPVOID lpReserved
                                         )
{
    switch (ul_reason_for_call)
        {
                case DLL_PROCESS_ATTACH:
                case DLL_THREAD_ATTACH:
                case DLL_THREAD_DETACH:
                case DLL_PROCESS_DETACH:
                        break;
    }
    return TRUE;
}


/*
 * Name: storageStatus
 *
 * Description: report disk usage and free space of specified disk
 * 
 * returns: boolean which is true if no error
 *
 * args: localFilePath - string with full path to file name
 *                          (e.g. "\\DiskOnChip")
 *       returnInfo  - formatted string of free, total, and percentage of
 *                     disk space
 *
 * Notes: 
 */

DAQLIB_API BOOL storageStatus(TCHAR* localFilePath, TCHAR* returnInfo)
{

        TCHAR bfr[MAXIMUM_RETURN_INFO_LEN + 1];

        ULARGE_INTEGER ulFree, ulTotalBytes, ulTotalFree;
        double FreePercent;

        if( GetDiskFreeSpaceEx(localFilePath,&ulFree,&ulTotalBytes,&ulTotalFree) )
        {
                _stprintf(bfr, TEXT("Bytes available to caller: %lu\r\n"), ulFree);
                _tcscpy(returnInfo, bfr);

                _stprintf(bfr, TEXT("Total number of bytes: %lu\r\n"), ulTotalBytes);
                _tcscat(returnInfo, bfr);

                _stprintf(bfr, TEXT("Total num. of free bytes: %lu\r\n"), ulTotalFree);
                _tcscat(returnInfo, bfr);
                        
                FreePercent = 100*double(ulTotalFree.LowPart)/double(ulTotalBytes.LowPart);

                _stprintf(bfr, TEXT("Percentage of free space: %5.2f\r\n"), FreePercent);
                _tcscat(returnInfo, bfr);

                return TRUE;
        } 
        else 
        {
                _stprintf(bfr, TEXT("Could not read storage object\r\n"));
                _tcscpy(returnInfo, bfr);

                return FALSE;
        }

}

/*
 * Name: storagePercentage
 *
 * Description: report free space of specified disk as percent
 * 
 * returns: boolean which is true if no error
 *
 * args: localFilePath - string with full path to file name
 *                          (e.g. "\\DiskOnChip")
 *       returnInfo  - formatted string of percentage of free disk space
 *
 * Notes: 
 */

DAQLIB_API BOOL storagePercentage(TCHAR* localFilePath, TCHAR* returnInfo)
{

        TCHAR bfr[MAXIMUM_RETURN_INFO_LEN + 1];

        ULARGE_INTEGER ulFree, ulTotalBytes, ulTotalFree;
        double FreePercent, numMb;

        if( GetDiskFreeSpaceEx(localFilePath,&ulFree,&ulTotalBytes,&ulTotalFree) )
        {

                FreePercent = 100*double(ulTotalFree.LowPart)/double(ulTotalBytes.LowPart);
                numMb = double(ulTotalBytes.LowPart)/1000000;

                _stprintf(bfr, TEXT("%4.1f%c of %5.1f Mb"), FreePercent, char(37), numMb);
                _tcscpy(returnInfo, bfr);
                
                return TRUE;
        } 
        else 
        {
                _stprintf(bfr, TEXT("Could not read storage object\r\n"));
                _tcscpy(returnInfo, bfr);

                return FALSE;
        }

}

/*
 * Name: getDirNumFiles
 * 
 * Description:
 * 
 * Returns:
 * 
 * Args: lpFileMask - long pointer to full path to file name and filename glob
 *                          (e.g. "\\Storage Card\\Data\\*.*")
 * 
 * Notes:
 *
 */

DAQLIB_API int getDirNumFiles(TCHAR* FileMask)
{
        HANDLE hFindFile;
        WIN32_FIND_DATA fdData;
        int numFiles;

        numFiles = 0;

        //get first file
        hFindFile = FindFirstFile(FileMask, &fdData);
        if(hFindFile != INVALID_HANDLE_VALUE) {
                numFiles++;
                //PrintFindData(&fdData);
                while(FindNextFile(hFindFile, &fdData)) {
                        //PrintFindData(&fdData);
                        numFiles++;
                }
                FindClose(hFindFile);
        }
        else {
                // report error
                numFiles = 0;
        }

        return numFiles;

}

/*
 * Name: memoryStatus
 *
 * Description: report instantaneous about current memory usage for Win CE
 * 
 * returns: boolean which is true
 *
 * args: returnInfo  - formatted string of physical, page, and virtual memory
 *
 * Notes: 
 */

DAQLIB_API BOOL memoryStatus(TCHAR* returnInfo)
{
        TCHAR bfr[MAXIMUM_RETURN_INFO_LEN + 1];
        double FreePercent;

        MEMORYSTATUS ms;
        ms.dwLength = sizeof(ms);

        GlobalMemoryStatus(&ms);

        _stprintf(bfr, TEXT("Total Phys: %d\r\n"), ms.dwTotalPhys);
        _tcscpy(returnInfo, bfr);

        _stprintf(bfr, TEXT("Avail Phys: %d\r\n"), ms.dwAvailPhys);
        _tcscat(returnInfo, bfr);

        FreePercent = 100*double(ms.dwAvailPhys)/double(ms.dwTotalPhys);
        _stprintf(bfr, TEXT("Free Percent Phys: %5.2f\r\n"), FreePercent);
        _tcscat(returnInfo, bfr);

        /* // paging not available in Win CE so do not report it
        _stprintf(bfr, TEXT("Total Page: %d\r\n"), ms.dwTotalPageFile);
        _tcscat(returnInfo, bfr);

        _stprintf(bfr, TEXT("Avail Page: %d\r\n"), ms.dwAvailPageFile);
        _tcscat(returnInfo, bfr);
         */

        _stprintf(bfr, TEXT("Total Virtual: %d\r\n"), ms.dwTotalVirtual);
        _tcscat(returnInfo, bfr);

        _stprintf(bfr, TEXT("Avail Virtual: %d\r\n"), ms.dwAvailVirtual);
        _tcscat(returnInfo, bfr);

        FreePercent = 100*double(ms.dwAvailVirtual)/double(ms.dwTotalVirtual);
        _stprintf(bfr, TEXT("Free Percent Virtual: %5.2f\r\n"), FreePercent);
        _tcscat(returnInfo, bfr);

        return TRUE;
}

/*
 * Name: memoryPhysPercentage
 *
 * Description: report instantaneous about current physical memory usage for Win CE
 * 
 * returns: boolean which is true
 *
 * args: returnInfo  - formatted string of percent of free physical memory
 *
 * Notes: 
 */

DAQLIB_API BOOL memoryPhysPercentage(TCHAR* returnInfo)
{
        TCHAR bfr[MAXIMUM_RETURN_INFO_LEN + 1];
        double FreePercent, numMb;

        MEMORYSTATUS ms;
        ms.dwLength = sizeof(ms);

        GlobalMemoryStatus(&ms);

        FreePercent = 100*double(ms.dwAvailPhys)/double(ms.dwTotalPhys);
        numMb = double(ms.dwTotalPhys)/1024/1024;

        _stprintf(bfr, TEXT("%5.1f%c of %5.1f Mb"), FreePercent, char(37), numMb);
        _tcscpy(returnInfo, bfr);

        return TRUE;

}

/*
 * Name: memoryVirutalPercentage
 *
 * Description: report instantaneous about current virtual memory usage for Win CE
 * 
 * returns: boolean which is true
 *
 * args: returnInfo  - formatted string of percent of free virtual memory
 *
 * Notes: 
 */

DAQLIB_API BOOL memoryVirtualPercentage(TCHAR* returnInfo)
{
        TCHAR bfr[MAXIMUM_RETURN_INFO_LEN + 1];
        double FreePercent, numMb;

        MEMORYSTATUS ms;
        ms.dwLength = sizeof(ms);

        GlobalMemoryStatus(&ms);

        FreePercent = 100*double(ms.dwAvailVirtual)/double(ms.dwTotalVirtual);
        numMb = double(ms.dwTotalVirtual)/1024/1024;

        _stprintf(bfr, TEXT("%5.1f%c of %5.1f Mb"), FreePercent, char(37), numMb);
        _tcscpy(returnInfo, bfr);

        return TRUE;

}