управление samsung er-4615R

← →
pvn (2002-03-14 16:44) [0]

здравствуйте!

Подскажите плз, как этим зверем управлять?
описание протокола есть, но я не силен в железе, прерываниях и тд...

вот например хочу я вывести на экран название товара, номер отдела и цену. соотв делаю это так:
открываю порт, потом вызываю процедуру
OutOnTablo("SomeName", "1", "123.33");
вот ее реализация
procedure TForm1.OutOnTablo(NAME : string;OTDEL : char;PRICE :
string);
var
s : string;
Count: integer;
begin
SetLength(s,20);
Move(NAME[1],s[1],20);
s := #4#1"P1"#23+s+" "+(Copy(PRICE,1,17));
Count := Comm1.Write(S[1], 45), Length(S));
if Count = -1 then
Memo3.Lines.add("Error writing to: " + Comm1.DeviceName)
end;

но ничего не происходит...

а как к примеру послать строчку на принтер?

← →
Cobalt (2002-03-16 08:10) [1]

Рискну предположить, что ошибка в этой строчке:
Count := >Comm1.Write(S[1], 45), Length(S));
Компилятор как на неё ругается?

Что это хоть за зверь, samsung er-4615R?
Принтер? или монитор?
Ты хоть описание выдай (ссылку, типа), а то (Увы!) мыслей никто не умеет читать (пока).

>а как к примеру послать строчку на принтер?
См. Win32.hlp, Printing and Print Spooler

← →
pvn (2002-03-16 08:13) [2]

:) это ккм.
там похоже запрещенна печать с компа...
только у меня и обмен с ней данными не получается...

← →
alexts (2002-03-18 18:43) [3]

Может не правильно порт инициализировал?
Скидывай всю процедуру будем разгребать :))
и протокол скидывай.

управление samsung er-4615R Найти похожие ветки