Scancode.ru / Форум / Техподдержка по товарам компании / Принтеры штрихкодов Godex / Принтер EZ DT 2 и дельфи

Автор	Сообщение
Амирхан Хачабегов Регистрация: 31.01.2012 Кол-во сообщений: 2	Принтер EZ DT 2 и дельфи 31.01.2012 23:14 Здравствуйте Олег Плюснин. Я видел вы на форуме выкладывали пример программы для работы с принтером написаный на дельфи. Не могли бы вы еще раз выложить его, а то на рапиде его уже нету
Олег Плюснин Регистрация: 28.05.2008 Кол-во сообщений: 2045	Re: Принтер EZ DT 2 и дельфи 01.02.2012 16:11 Вот. 5682_Printer_Godex_D2007.rar 247Kb Скачан: 13
Амирхан Хачабегов Регистрация: 31.01.2012 Кол-во сообщений: 2	Re: Принтер EZ DT 2 и дельфи 06.02.2012 22:51 Такая проблема. С примером я разобрался. Код сгенерированный на Qlabel программа печатает без проблем. А вот когда я пробую вносить какой нить текст из Edit то принтер выдает ошибку. Вот код var Form1: TForm1; kash, kash2:String; kash1, kash3 Char; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin openport('Godex EZ-DT-2'); // Èìÿ áåðåòñÿ èç Ïóñê->Íàñòðîéêà->Ïðèíòåðû è ôàêñû beginjob(30, 7, 2, 0, 1, 0); sendcommand('^Q19,5'); sendcommand('^W30'); sendcommand('^H10'); sendcommand('^P1'); sendcommand('^S2'); sendcommand('^AD'); sendcommand('^C1'); sendcommand('^R0'); sendcommand('~Q+3'); sendcommand('^O0'); sendcommand('^D0'); sendcommand('^E35'); sendcommand('~R200'); sendcommand('^L'); sendcommand('Dy2-me-dd'); sendcommand('Th:m:s'); sendcommand('BE,17,75,2,7,60,0,1,123456789012'); //sendcommand('Y39,27, Товар 123456789'); // вот здесь я пробую писать свой текст из Edit1 принтер выдает ошибку // FileName can not be found sendcommand(kash3); sendcommand('Y101,0,ÒÄ Ãëîáóñ Äåêîð'); sendcommand('E'); endjob(); closeport(); end; procedure TForm1.Button2Click(Sender: TObject); begin kash2:=Edit1.Text; kASh3:=PChar('Y39,27,'+ kash2 ); end;