![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
управление samsung er-4615R [D5, Win95/98, Win2k]
pvn © (2002-03-14 16:44:00)здравствуйте!
Подскажите плз, как этим зверем управлять?
описание протокола есть, но я не силен в железе, прерываниях и тд...
вот например хочу я вывести на экран название товара, номер отдела и цену. соотв делаю это так:
открываю порт, потом вызываю процедуру
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;
но ничего не происходит...
а как к примеру послать строчку на принтер?
alexts (2002-03-18 18:43:00) [1]Может не правильно порт инициализировал?
Скидывай всю процедуру будем разгребать :))
и протокол скидывай.
pvn (2002-03-16 08:13:00) [2]:) это ккм.
там похоже запрещенна печать с компа...
только у меня и обмен с ней данными не получается...
Cobalt (2002-03-16 08:10:00) [3]Рискну предположить, что ошибка в этой строчке:
Count := >Comm1.Write(S[1], 45), Length(S));
Компилятор как на неё ругается?
Что это хоть за зверь, samsung er-4615R?
Принтер? или монитор?
Ты хоть описание выдай (ссылку, типа), а то (Увы!) мыслей никто не умеет читать (пока).
>а как к примеру послать строчку на принтер?
См. Win32.hlp, Printing and Print Spooler