Kontron MOPSlcdLX - Manual (Page 22)

KTD-S0006-B Page 19 JIDA32 Interface
MOPSlcdLX Software Guide
procedure TForm1.Button1Click(Sender: TObject);
begin
{Method 1}
if JidaDLLInitialize () then
begin
if JidaDllIsAvailable () then
begin
if JidaBoardOpen (JIDA_BOARD_CLASS_CPU, 0, JIDA_FLAGS_DEFAULT, hJida) then
JidaWDogSetConfig (hJida, 0, JIDA_TIMEOUT_VALUE, JIDA_DELAY_VALUE, JIDA_REBOOT_MODE);
end;
JidaDllUninitialize ();
end;
end;
end.
The associated DFM file:
object Form1: TForm1
Left = 196
Top = 107
Width = 367
Height = 390
Caption = 'KONTRON JIDA32 TEST'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 104
Top = 128
Width = 75
Height = 25
Caption = 'Test JIDA32'
TabOrder = 0
OnClick = Button1Click
end
end