Metrohm 846 Driver Toolbox User Manual

Page 46

3.1 Programming interface definitions

Dosing Interface USB Toolbox, Annex

IMPLEMENTATION

FUNCTION GetErr(IfNo,MsbNo,Number : LONG; VAR Buf; BufCapacity : LONG)

: eReturnState; STDCALL; EXTERNAL dllName NAME 'GetError';

FUNCTION GetInterfaceError(IfNo,MsbNo,ErrorNumber : LONG;

VAR ErrorCode : AnsiString) : eReturnState;

CONST

maxErrCodeLen = 14;

VAR

eCodeArr : ARRAY[0..maxErrCodeLen - 1] OF Char;

BEGIN

result := GetErr(IfNo,MsbNo,ErrorNumber,eCodeArr,maxErrCodeLen);

errorCode := eCodeArr;

END;

FUNCTION GetProgVer(IfNo : LONG; VAR buf; bufCapacity : LONG)

: eReturnState; STDCALL; EXTERNAL dllName NAME 'GetProgramVersion';

FUNCTION GetProgramVersion(IfNo : LONG; VAR ProgramVersion : AnsiString)

: eReturnState;

CONST

maxProgVerLen = 32;

VAR

progVerArr : ARRAY[0..maxProgVerLen] OF Char;

BEGIN

result := GetProgVer(IfNo,progVerArr,maxProgVerLen);

ProgramVersion := progVerArr

END;

INITIALIZATION

FINALIZATION

END.