pci8361.~pas

多功能数据采集卡上位机完整代码

unit pci8361;

interface
type PLongint = ^Longint;
type PSmallint = ^Smallint;
type PWord = ^Word;
type PSingle = ^Single;

type
TLongArrayElement = Longint;
TLongArray = array[0..1] of TLongArrayElement;
PLongArray = ^TLongArray;


type
TSingleArrayElement = Single;
TSingleArray = array[0..1] of TSingleArrayElement;
PSingleArray = ^TSingleArray;


function ZT8361_OpenDevice(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_CloseDevice(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_GetBaseAddr(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_GetLastErr():Longint;STDCALL;external 'pci8361.dll';
function ZT8361_ClearLastErr():Longint;STDCALL;external 'pci8361.dll';

function ZT8361_AIinit(cardNO:Longint; chMode:Longint; chNO:Longint; AIRange:Longint; pAmpInxArr:PLongArray; ADstartMode:Longint; ADfreq:Longint; ADctrlWord:Longint; ADoverTime:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_DisableAD(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_EnableAD(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';

function ZT8361_ClearHFifo(cardNO:Longint; unitType:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_ClearSFifo(cardNO:Longint; unitType:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_SetSFifoSize(cardNO:Longint; unitType:Longint; SFifoSize:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_GetSFifoSize(cardNO:Longint; unitType:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_GetSFifoDataCount(cardNO:Longint; unitType:Longint):Longint;STDCALL;external 'pci8361.dll';

function ZT8361_AISFifo(cardNO:Longint; dataType:Longint; pResultArr:PSingleArray; wantReadCount:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_OpenIRQ(cardNO:Longint; hEventSFifo:Longint; hEventHFifoFewData:Longint; hEventHFifoHalf:Longint; hEventEI:Longint; hEventADFinish:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_CloseIRQ(cardNO:Longint):Longint;STDCALL;external 'pci8361.dll';
function ZT8361_InitIRQ(cardNO:Longint; irqSource:Longint):Longint;STDCALL;external 'pci8361.dll';

procedure CreateLongArray(var TheArray : PLongArray; NumElements : Longint);
procedure FreeLongArray(var TheArray : PLongArray; NumElements : Longint);

procedure CreateSingleArray(var TheArray : PSingleArray; NumElements : Longint);
procedure FreeSingleArray(var TheArray : PSingleArray; NumElements : Longint);

implementation

procedure CreateLongArray(var TheArray : PLongArray; NumElements : Longint);
//建立一个动态数组
//数据类型 PLongArray,TLongArrayElement,TLongArray 在 PCI8361.pas 中定义
begin
    GetMem(TheArray, sizeof(TLongArrayElement) * NumElements);
end;

procedure FreeWordArray(var TheArray : PLongArray; NumElements : Longint);
//释放动态数组
//数据类型 PLongArray,TLongArrayElement,TLongArray 在 PCI8361.pas 中定义
begin
    FreeMem(TheArray, sizeof(TLongArrayElement) * NumElements);
end;


procedure CreateSingleArray(var TheArray : PSingleArray; NumElements : Longint);
//建立一个动态数组
//数据类型 PSingleArray,TSingleArrayElement,TSingleArray 在 PCI8361.pas 中定义
begin
    GetMem(TheArray, sizeof(TSingleArrayElement) * NumElements);
end;

procedure FreeSingleArray(var TheArray : PSingleArray; NumElements : Longint);
//释放动态数组
//数据类型 PSingleArray,TSingleArrayElement,TSingleArray 在 PCI8361.pas 中定义
begin
    FreeMem(TheArray, sizeof(TSingleArrayElement) * NumElements);
end;


end.