Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > USB принтер

Автор: SergXPI 10.11.2005, 19:38

Привет всем.
Необходимо отослать на принтер (подключен к USB) управляющие символы.
Как это сделать?

Автор: Poseidon 10.11.2005, 19:47

http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&target=main_panel§ion=748

Автор: SergXPI 11.11.2005, 00:58

Добрый вечер.
Прочел файл по ссылке, которую подсказал Poseidon,
сделал по аналогии

Код


 AssignFile(port,'USB001');
 Rewrite(port);
 buffer[1]:='N';buffer[2]:=#13;
 BlockWrite(port,buffer,2);
 buffer[1]:='A';buffer[2]:='5';
 St:='A50,0,0,1,1,1,N,"Привет 1"';
 i:=1; Repeat  buffer[i]:=St[i];Inc(i); Until i>Length(St);
 buffer[i]:=#13;
 BlockWrite(port,buffer,i);
 CloseFile(port);

Но принтер не печатает?

Автор: MIX55 12.11.2005, 17:42

Держи ссылку может поможет: http://www.vr-online.ru/download.php?det=41

Автор: SergXPI 15.11.2005, 01:02

Спасибо MIX55,
надеюсь это поможет мне разобраться smile