driver.pas

温度恒温控制,与PLC,工控板通讯,实现炉字过程控制.

    count      : Longint;
    cyclic     : Smallint;
    IntrCount  : Smallint;
 End;

 PT_FAIIntScanStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    NumChans    : Smallint;
    StartChan   : Smallint;
    GainList    : ^Smallint;
    buffer      : ^Smallint;
    count       : Longint;
    cyclic      : Smallint;
    IntrCount   : Smallint;
 End;

 PT_FAIDmaStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    chan        : Smallint;
    gain        : Smallint;
    buffer      : Pointer;
    count       : Longint;
 End;

 PT_FAIDmaScanStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    NumChans    : Smallint;
    StartChan   : Smallint;
    GainList    : ^Smallint;
    buffer      : Pointer;
    count       : Longint;
 End;

 PT_FAIDualDmaStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    chan        : Smallint;
    gain        : Smallint;
    BufferA     : ^Smallint;
    BufferB     : ^Smallint;
    count       : Longint;
    cyclic      : Smallint;
 End;

 PT_FAIDualDmaScanStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    NumChans    : Smallint;
    StartChan   : Smallint;
    GainList    : ^Smallint;
    BufferA     : ^Smallint;
    BufferB     : ^Smallint;
    count       : Longint;
    cyclic      : Smallint;
 End;

 PT_FAITransfer = Record
    ActiveBuf   : Smallint;
    DataBuffer  : Pointer;
    DataType    : Smallint;
    start       : Longint;
    count       : Longint;
    overrun     : ^Smallint;
 End;

 PT_FAICheck = Record
    ActiveBuf  : ^Smallint;
    stopped    : ^Smallint;
    retrieved  : ^Longint;
    overrun    : ^Smallint;
    HalfReady  : ^Smallint;
 End;

 PT_FAIWatchdogConfig = Record
    TrigMode    : Smallint;
    NumChans    : Smallint;
    StartChan   : Smallint;
    GainList    : ^Smallint;
    CondList    : ^Smallint;
    LevelList   : ^TRIGLEVEL;
 End;

 PT_FAIIntWatchdogStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    buffer      : ^Smallint;
    count       : Longint;
    cyclic      : Smallint;
    IntrCount   : Smallint;
 End;

 PT_FAIDmaWatchdogStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    BufferA     : ^Smallint;
    BufferB     : ^Smallint;
    count       : Longint;
 End;

 PT_FAIWatchdogCheck = Record
    DataType   : Smallint;
    ActiveBuf  : ^Smallint;
    triggered  : ^Smallint;
    TrigChan   : ^Smallint;
    TrigIndex  : ^Longint;
    TrigData   : Pointer;
 End;

 PT_FAOIntStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    chan        : Smallint;
    buffer      : ^Longint;
    count       : Longint;
    cyclic      : Smallint;
 End;

 PT_FAODmaStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    chan        : Smallint;
    buffer      : ^Longint;
    count       : Longint;
 End;

 PT_FAODmaExStart = Record
    TrigSrc     : Smallint;
    SampleRate  : Longint;
    StartChan   : Smallint;
    NumChans    : Smallint;
    buffer      : ^Longint;
    count       : Longint; 
    CyclicMode  : Smallint;
    PacerSource : Smallint;
    Reserved    : array [0..3] of Longint;
    pReserved   : array [0..3] of Pointer;
 End;

 PT_FAOScale = Record
    chan        : Smallint;
    count       : Longint;
    VoltArray   : ^Single;
    BinArray    : ^Smallint;
 End;

 PT_FAOLoad  = Record
    ActiveBuf   : Smallint;
    DataBuffer  : ^Smallint;
    start       : Smallint;
    count       : Longint;
 End;

 PT_FAOCheck = Record
    ActiveBuf     : ^Smallint;
    stopped       : ^Smallint;
    CurrentCount  : ^Longint;
    overrun       : ^Smallint;
    HalfReady     : ^Smallint;
 End;

 PT_FAOCheckEx = Record
    ActiveBuf     : ^Smallint;
    stopped       : ^Smallint;
    Transfered    : ^Longint;
    Underrun      : ^Smallint;
    HalfReady     : ^Smallint;
 End;

 PT_EnableEvent = Record
    EventType   : Smallint;
    Enabled     : Smallint;
    Count       : Smallint;
 End;

PT_CheckEvent = Record
    EventType    : ^Smallint;
    Milliseconds : LongInt;
End;

 PT_AllocateDMABuffer = Record
    CyclicMode      : Smallint;
    RequestBufSize  : Longint;
    ActualBufSize   : ^Longint;
    buffer          : ^Longint;
 End;

PT_TimerCountSetting = Record
    counter         : Smallint;
    Count           : LongInt;
End;

{  **********  PCI-1760 ***************  }
PT_DIFilter = Record
    EventType       : Smallint;
    EventEnabled    : Smallint;
    Count           : Smallint;
    EnableMask      : Smallint;    { Filter enable data }
    HiValue         : ^Smallint;   { USHORT far* HiValue , Filter value array pointer }
    LowValue        : ^Smallint;
End;

PT_DIPattern = Record
    EventType       : Smallint;
    EventEnabled    : Smallint;
    Count           : Smallint;
    EnableMask      : Smallint;     { Pattern Match enable data }
    PatternValue    : Smallint;     { Pattern Match pre_setting value }
End;

PT_DICounter = Record
    EventType       : Smallint;
    EventEnabled    : Smallint;
    Count           : Smallint;
    EnableMask      : Smallint;    { Counter enable data }
    TrigEdge        : Smallint;    { Counter Trigger edge 0: Rising edge 1: Falling edge }
    PresetValue     : ^Smallint;   { USHORT far *usPreset ; // counter pre_setting value }
    MatchEnableMask : Smallint;    { Counter match enable data }
    MatchValue      : ^Smallint;   { USHORT far *usValue }
    OverflowEnableMask : Smallint; { Counter overflow data }
    Direction       : Smallint;    { Up/Down counter direction }
End;

PT_DIStatus = Record
    EventType       : Smallint;
    EventEnabled    : Smallint;
    Count           : Smallint;
    EnableMask      : Smallint;    { Status change enable data }
    RisingEdge      : Smallint;    { Record Rising edge trigger type }
    FallingEdge     : Smallint;    { Record Falling edge trigger type }
End;

PT_EnableEventEx = Record
    Case Integer of
        0 : (Filter  : PT_DIFilter);
        1 : (Pattern : PT_DIPattern);
        2 : (Counter : PT_DICounter);
        3 : (Status  : PT_DIStatus);
End;

PT_FDITransfer = Record
    EventType       : Smallint;
    RetData         : ^Smallint;
End;

PT_CounterPWMSetting = Record
   Port             : Smallint;		{ Counter port }
   Period           : Single;			{ Period unit -> 0.1ms }
   HiPeriod         : Single;       { UpCycle period unit -> 0.1 ms }
   OutCount         : Longint;      { Stop count }
   GateMode         : Smallint;
End;

PT_AOCurrentOut = Record
    Chan            : Smallint;
    OutputValue     : Single;
End;

PT_ADAMCounterSetHWConfig = Record
	CounterMode		:Smallint;
	DataFormat		:Smallint;	{ Only for adam5080 }
	GateTime		:Smallint;	{ Only for adam4080,4080D }
End;

PT_ADAMCounterGetHWConfig = Record
	CounterMode		:^Smallint;
	DataFormat		:^Smallint;  { Only for adam5080 }
	GateTime		:^Smallint;	{ Only for adam4080,4080D }
End;

PT_ADAMAISetHWConfig = Record
	InputRange		:Smallint;
	DataFormat		:Smallint;
	IntegrationTime :Smallint;
End;

PT_ADAMAIGetHWConfig = Record
	InputRange		:^Smallint;
	DataFormat		:^Smallint;
	IntegrationTime :^Smallint;
End;

PT_ADAMAOSetHWConfig = Record
	Chan			:Smallint;
	OutputRange		:Smallint;
	DataFormat		:Smallint;
	SlewRate		:Smallint;
End;

PT_ADAMAOGetHWConfig = Record
	Chan			:Smallint;
	OutputRange		:^Smallint;
	DataFormat		:^Smallint;
	SlewRate		:^Smallint;
End;

PT_PWMStartRead = Record
    usChan			:Smallint;
    flHiperiod    		:^Single;       { FLOAT far *flHiperiod }
    flLowperiod    		:^Single;       { FLOAT far * flLowperiod}
End;

PT_FAIDmaExStart = Record
    TrigSrc     : Smallint;
    TrigMode	: Smallint;
    ClockSrc	: Smallint;
    TrigEdge	: Smallint;
    SRCType	: Smallint;
    TrigVol	: Single;
    CyclicMode	: Smallint;
    NumChans	: Smallint;
    StartChan	: Smallint;
    ulDelayCnt	: Longint;
    count	: Longint;
    SampleRate  : Longint;
    GainList    : ^Smallint;
    CondList    : ^Smallint;
    LevelList   : ^TRIGLEVEL;
    buffer0     : ^Smallint;
    buffer1     : ^Smallint;
    pPt1	: ^Smallint;
    pPt2	: ^Smallint;
    pPt3	: ^Smallint;
End;


 PT_FAOWaveFormStart = Record
    TrigSrc     	: Smallint;
    SampleRate  	: Longint;
    WaveCount   	: Longint;
    count