global.pas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

{ *************************************************************************** }
{ Module Name: Global.PAS                                                      }
{ Purpose: the declaration of functions, data structures, status codes,       }
{         constants, and messages                                             }
{ Version: 1.01                                                               }
{ Date: 04/22/2003                                                            }
{ Copyright (c) 1996-2003 Advantech Corp. Ltd.                                }
{ All rights reserved.                                                        }
{ *************************************************************************** }


unit Global;
interface
uses Driver;
var
    ghDev          : Longint;       {Device handle for every device}
    glDmaBufPtr    : Longint;       {DMA buffer pointer}
    lDeviceNumber  : Longint;


    // global
    gdwBoardId          : Longint = 0;
    gdwDataWidth        : Longint = 0;
    gdwDIStartMode      : Longint = 1;
    gdwDIOperationMode  : Longint = 1;
    gdwDIMatchValue     : Longint =0 ;
    gdwDITriggerSource  : Longint = 4;
    gdwDIStopMode       : Longint = 1;
    gdwCounterValue     : array[0..2] of Longint = (10,10,10);
    gdwCount            : Longint;
    gdwUserBufferSize   : Longint = 1;
    gdwCyclicMode       : Longint = 0;    // cyclic or non-cyclic mode
    hGUserBuf            : HGLOBAL;//Pointer;
    hUserBuf            : Pointer;
    gdwStartPoint       : Longint = 0;
    gdwStopPoint        : Longint = 99;
    gdwDiDmaMode        : Longint = 0;


    gdwDIBufferChangeCounter    : Longint = 0;
    gdwDIOverRunCounter         : Longint = 0;
    gdwDITerminateCounter       : Longint = 0;
    dwUserbufferSize            : Longint = 1;
    dwCount                     : Longint;
    szDeviceName                : array[0..100] of char;
    lErrCde                     : Longint;

    ptDevFeatures       : PT_DeviceGetFeatures;    {for getting device feature}
    dfCurDevice         : DEVFEATURES;
    ptEnableEvent       : PT_EnableEvent;
    ptCheckEvent        : PT_CheckEvent;
    usEventType         : Smallint;
    usThreadLoop : Smallint = 0;
    gdwFdiStatus : Longint = 0;
    gdwRetrieved : Longint = 0;
    pFdiStatus   : Pointer;
    pRetrieved   : Pointer;

const
    Mega = $100000;
implementation

end.