Скачать: CL | DM;

Работа с LPT портом   Найти похожие ветки 

← →
SZap   (2003-07-09 18:38) [0]

как произвести запись и чтение через LPT с внешим устройством???

---

← →
Слесарь Матерящийся ©   (2003-07-10 10:42) [1]

1) WriteFile()/ReadFile(), если устройство поддерживает стандартные протоколы обмена;
2) Через сторонний компонент, позволяющий обращаться к регистрам порта (DlPortIo, например). В этом случае формируем протокол обмена сами.

---

← →
SZap   (2003-07-11 12:33) [2]

а примерчик можно?
видемо я лох :( , ничего неполучается...

---

← →
Слесарь Матерящийся ©   (2003-07-11 13:21) [3]

Смотря что требуется и смотря как делать...

---

← →
Nucl ©   (2003-07-11 16:29) [4]

Работающий пример для принтера на LPT порту:
var
PrnF : TextFile;
P : PChar;
begin
Try
AssignFile(PrnF, "LPT1");
Rewrite(PrnF);
Except
on E:Exception do
begin
ShowIntError("Инициализация принтера",E.Message,1);
exit;
end;
End;
// выделение памяти
P:= StrAlloc(100);
Try
// это переключение на красную ленту
Write(PrnF, chr(27));
Write(PrnF, chr(114));
Write(PrnF, chr(1));
WriteLn(PrnF,"");
CharToOem("Текст, который будет красным"",P);
WriteLn(PrnF,P);
// это переключение на черную ленту
Write(PrnF, chr(27));
Write(PrnF, chr(114));
Write(PrnF, chr(0));
S := "Черный текст ";
CharToOem("Текст, который будет черным"",P);
Except
on E:Exception do
begin
ShowIntError("Печать чека",E.Message,1);
exit;
end;
End;
StrDispose(P);
Try
CloseFile(PrnF);
Except
on E:Exception do
begin
( "Отключение принтера",E.Message,1) Работающий пример для принтера на LPT порту:
var
PrnF : TextFile;
P : PChar;
begin
Try
AssignFile(PrnF, "LPT1");
Rewrite(PrnF);
Except
on E:Exception do
begin
ShowIntError("Инициализация принтера",E.Message,1);
exit;
end;
End;
// выделение памяти
P:= StrAlloc(100);
Try
// это переключение на красную ленту
Write(PrnF, chr(27));
Write(PrnF, chr(114));
Write(PrnF, chr(1));
WriteLn(PrnF,"");
CharToOem("Текст, который будет красным"",P);
WriteLn(PrnF,P);
// это переключение на черную ленту
Write(PrnF, chr(27));
Write(PrnF, chr(114));
Write(PrnF, chr(0));
S := "Черный текст ";
CharToOem("Текст, который будет черным"",P);
Except
on E:Exception do
begin
ShowIntError("Печать чека",E.Message,1);
exit;
end;
End;
StrDispose(P);
Try
CloseFile(PrnF);
Except
on E:Exception do
begin
ShowIntError("Отключение принтера",E.Message,1);
exit;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c