unit Owen_CI8;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

function OpenPort(n,speed, parity,bits,stop,converterWORD): Integer;
external 'owen_io.dll';
function ReadSI8BCD(adr,adr_typeWORD;command:PChar; var value:Integer):Integer;
external 'owen_io.dll';

var
Form1: TForm1;
imp, va: integer;
implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
va:=0;
if OpenPort(0,2,0,1,0,0)>0 then begin
imp:= ReadSI8BCD(0,0,' DCNT ', va);
if imp=0 then
Edit1.Text:= IntTostr(va)
else Edit1.Text:= 'ERROR';
end else Exit;
end;

end.