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

procedure Timer1Timer (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure SpinEdit1Change (Sender: TObject);

private

{Private declarations}

Lpt: TLptPortConnection;

public

{Public declarations}

function GetCurrentPort: byte;

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, код = ' + IntToStr (GetLastError());

Application. MessageBox (PChar(msg), 'ERROR', MB_OK);

Application. Terminate;

end;

Lpt. WritePort (GetCurrentPort, 0,0);

Lpt. WritePort (GetCurrentPort, 2,3);

end;

procedure TForm1. FormDestroy (Sender: TObject);