beautypg.com

4 delphi interface, Delphi interface – Metrohm 846 Driver Toolbox User Manual

Page 40

background image

3.1 Programming interface definitions

36

Dosing Interface USB Toolbox, Annex

3.1.4 Delphi Interface

(*****************************************************************************)

(* *)

(* Metrohm AG Switzerland. All rights reserved. *)

(* *)

(*---------------------------------------------------------------------------*)

(* *)

(* 1 30.05.05 14:28 rw *)

(* *)

(*****************************************************************************)

UNIT DosIntFace846;

{$MINENUMSIZE 4 }

INTERFACE

CONST

dllName = '846_Dosing_Interface.dll';

TYPE

LONG = LongInt;

FLOAT = Single;

BOOL = LongBool;

eReturnState = (

(* function could be set up correctly *)

RET_STAT_OK,

(* not a valid 846 Dosing Interface number or Dosino number *)

RET_STAT_nvNumber,

(* not a valid Dosino *)

RET_STAT_noDosino,

(* communication error *)

RET_STAT_commError,

(* function arguments out of specified range *)

RET_STAT_argError,

(* not a valid action *)

RET_STAT_nvAction);

eDosinoState = (

(* Dosino is ready to execute a function *)

DOS_STAT_IDLE,

(* Cylinder is being filled *)

DOS_STAT_FILL,

(* Dosino is executing Exchange function *)

DOS_STAT_EXCHANGE,

(* Dosino is executing GoPos function *)

DOS_STAT_POSITION,

(* Dosino is executing ZeroAdjust function *)

DOS_STAT_ZEROADJUST,

(* Dosino is executing Adjust function *)

DOS_STAT_ADJUST,

(* Dosino is executing Cock function *)

DOS_STAT_COCK,

(* Dosino is executing ToEnd function *)

DOS_STAT_TOENDDOS,

(* Dosino is executing MakeStep function *)

DOS_STAT_DOS,

(* Dosino is executing Prep function *)

DOS_STAT_PREPAR,

(* Dosino is executing Empty function *)

DOS_STAT_EMPTY,