User manual

K8055D.DLL 11
© 2003 ... Velleman
Die K8055D.DLL in Delphi verwenden
In diesem Anwendungsbeispiel werden die Arbeitsweisen und die Funktionen der K8055.DLL erklärt.
Auch werden die 2 wichtigsten DLL -Signale:
OpenDevice
und
CloseDevice
verdeutlicht.
unit
K8055;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 =
class
(TForm)
GroupBox1: TGroupBox;
SK6: TCheckBox;
SK5: TCheckBox;
Button1: TButton;
Label1: TLabel;
procedure
FormClose(Sender: TObject;
var
Action: TCloseAction);
procedure
Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end
;
var
Form1: TForm1;
timed:boolean;
implementation
{$R *.DFM}
function
OpenDevice(CardAddress: Longint): Longint;
stdcall
;
external
'K8055d.dll'
;
procedure
CloseDevice;
stdcall
;
external
'K8055d.dll'
;
function
ReadAnalogChannel(Channel: Longint):Longint;
stdcall
;
external
'K8055d.dll'
;
procedure
ReadAllAnalog(
var
Data1, Data2: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
OutputAnalogChannel(Channel: Longint; Data: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
OutputAllAnalog(Data1: Longint; Data2: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
ClearAnalogChannel(Channel: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
ClearAllAnalog;
stdcall
;
external
'K8055d.dll'
;
procedure
SetAnalogChannel(Channel: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
SetAllAnalog;
stdcall
;
external
'K8055d.dll'
;
procedure
WriteAllDigital(Data: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
ClearDigitalChannel(Channel: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
ClearAllDigital;
stdcall
;
external
'K8055d.dll'
;
procedure
SetDigitalChannel(Channel: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
SetAllDigital;
stdcall
;
external
'K8055d.dll'
;
function
ReadDigitalChannel(Channel: Longint): Boolean;
stdcall
;
external
'K8055d.dll'
;
function
ReadAllDigital: Longint;
stdcall
;
external
'K8055d.dll'
;
function
ReadCounter(CounterNr: Longint): Longint;
stdcall
;
external
'K8055d.dll'
;
procedure
ResetCounter(CounterNr: Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
SetCounterDebounceTime(CounterNr, DebounceTime:Longint);
stdcall
;
external
'K8055d.dll'
;
procedure
TForm1.FormClose(Sender: TObject;
var
Action: TCloseAction);
begin
CloseDevice;
end
;
procedure
TForm1.Button1Click(Sender: TObject);
var
h,CardAddr:longint;
begin
CardAddr:=
3
-(integer(SK5.Checked) + integer(SK6.Checked) *
2
);
h:= OpenDevice(CardAddr);
case
h
of
0
..
3
: label12.caption:=
'Card '
+ inttostr(h)+
' connected'
;