Kontron MOPSlcdLX Uživatelský manuál stáhnout pdf (Strana 21)

KTD-S0006-B Page 18 JIDA32 Interface

MOPSlcdLX Software Guide

6.7.2 Program Language DELPHI

The demo program activates the watchdog (timeout = 30 seconds). The keyword 'var' passes the argument

by reference.

Example:

unit mainU;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

HJIDA = LongInt;

type

TForm1 = class (TForm)

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{ Private-Deklarationen }

public

hJida: HJIDA;

{ Public-Deklarationen }

end;

function JidaDllInitialize : Boolean {$IFDEF WIN32} stdcall {$ENDIF}; external 'JIDA.DLL';

function JidaDllUninitialize : Boolean {$IFDEF WIN32} stdcall {$ENDIF}; external 'JIDA.DLL';

function JidaDllIsAvailable : Boolean {$IFDEF WIN32} stdcall {$ENDIF}; external 'JIDA.DLL';

function JidaBoardOpen (pszClass:PChar; dwNum:LongInt; dwFlags:LongInt; var phJida:HJIDA) : Boolean

{$IFDEF WIN32} stdcall {$ENDIF}; external 'JIDA.DLL';

function JidaWDogSetConfig (hJida:HJIDA; dwType:LongInt; dwTimeout:LongInt; dwDelay:LongInt;

dwMode:LongInt) : Boolean {$IFDEF WIN32} stdcall {$ENDIF}; external 'JIDA.DLL';

var

Form1: TForm1;

const

JIDA_BOARD_CLASS_CPU = 'CPU'#0;

JIDA_FLAGS_DEFAULT = 0;

JIDA_TIMEOUT_VALUE = 30000;

JIDA_DELAY_VALUE = 0; // Delay not supported

JIDA_REBOOT_MODE = 0; // NMI not supported

implementation

{$R *.dfm}

1 2 ... 16 17 18 19 20 21 22 23 24 25 26 ... 30 31

Žádné komentáře

Kontron MOPSlcdLX Uživatelský manuál Strana 21