Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

procedure ButtonPin8;

procedure ButtonPin9;

procedure ButtonPin1;

procedure ButtonPin14;

procedure ButtonPin16;

procedure ButtonPin17;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1. FormCreate (Sender: TObject);

var

msg: AnsiString;

begin

Lpt:= TLptPortConnection. Create;

if not Lpt. Ready then

begin

msg:= 'Помилка при створенні обєкта Lpt, драйвер ERROR, код = ' + Application. MessageBox (PChar(msg), 'ERROR', MB_OK);

Application. Terminate;

end;

ComboBox1. Items. Clear;

if Lpt. IsPortPresent(LPT1) then

ComboBox1. Items. Add ('$3BC');

if Lpt. IsPortPresent(LPT2) then

ComboBox1. Items. Add ('$378');

if Lpt. IsPortPresent(LPT3) then

ComboBox1. Items. Add ('$278');

if 0=ComboBox1. Items. Count then