Реферат Використання інтерфейсу Centronics для Керування зовнішнімі прилаштувався

p>

Встановлення бітів порту/Sets the bit of the specified port. p> ClrPortBit

Очищення бітів порту/Clears the bit of the specified port. p> NotPortBit

Інвертування бітів порту/Nots (Inverts) the bit of the specified port. p> GetPortBit

Повернути стан порту/Returns the state of the specified bit. p> RightPortShift

Shifts the specified port to the right. The LSB is returned, and the value passed becomes the MSB. p> LeftPortShift

Shifts the specified port to the left. The MSB is returned, and the value passed becomes the LSB. p> IsDriverInstalled

Повертає НЕ 0, ЯКЩО io.dll інстальовано. Returns non-zero if io.dll is installed and functioning. br/>

Приклад процедур у 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);. Text: = IntToStr (b);

end;