Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)
begin
d:= true;
d:= d and (1 = (1 and Lpt. ReadPort((GetCurrentPort), 0)));
Pin2:= d;
end;
function TForm1. Pin3: boolean;
var
d: boolean;
begin
d:= true;
d:= d and (2 = (2 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin3:= d;
end;
function TForm1. Pin4: boolean;
var
d: boolean;
begin
d:= true;
d:= d and (4 = (4 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin4:= d;
end;
function TForm1. Pin5: boolean;
var
d: boolean;
begin
d:= true;
d:= d and (8 = (8 and Lpt. ReadPort (GetCurrentPort, 0)));
Pin5:= d;
end;