Приклад процедур у Delphi

function IsDriverInstalled : Boolean; stdcall; external 'io.dll'; // протопити

procedure PortOut(Port : Word; Data : Byte);stdcall; external 'io.dll';

function PortIn(Port : Word) : Byte;stdcall; external 'io.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

if IsDriverInstalled then

begin Label1.Caption:='Driver ready...'; end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:byte;

begin

for i:=0 to 255 do

begin

PortOut($378,i);

Sleep(200); Application.ProcessMessages;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var b:byte;

begin

b:=PortIn($379); Edit1.Text:=IntToStr(b);

end;

Література

1. Гелль П. Как превратить компьютер в измерительный комплекс. – М.: ДМК, 1999. – 144 с.

2. Гук М. Интерфейсы ПК: справочник. – СПб.: Питер, 1999. – 416 с.

3. Новиков Ю.В., Калашников О.А., Гуляев С.Э. Разработка устройств сопряжения для персонального компьютера типа IBM PC. – М.: ЭКОМ, 1997. – 224 с.