Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

управление 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо