![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с com-портом. [D6, XP]
Shakesbeer © (2007-10-19 14:49:00)Есть такой код
procedure TForm1.Button1Click(Sender: TObject);
var F: Textfile;
begin
AssignFile( F, 'com1');
Rewrite(F);
Writeln( F, 'sdsd');
Writeln( F, 'sdffdfs');
CloseFile(F);
end;
К порту подключен принтер для печати чеков.
Всё работало нормально до перезагрузки.
Потом стал печатать 1 строчку "АААААААА..."
Я попробовал подключиться через HyperTerminal (Пуск-Стандартные-Связь), создал там поключение через этот порт - начал печатать что ввожу. Закрыл HyperTerminal и удалил даже подключение - прога продолжала работать. Но после перезагрузки снова бяка. Что-происходит с портом, но как это сделать в Дельфи?
korneley (2007-10-19 21:52:00) [1]
> Несовместимость настроек ком порта.
Именно!!! В 99% случаев при подключении внешнего оборудования на COM - порт, непонятки возникают из за несогласованности скорость/кол-во бит/стоп-бит/проверка четности. Чаще именно скорости подключения, т.к. 8-нет-1 умолчание почти везде. А вот скорость на _железе_ надо бы проверить, дабы и прога и железо имели одинаковые представления о мире их окружающем...
Anatoly Podgoretsky (2007-10-19 19:54:00) [2]> Shakesbeer (19.10.2007 14:49:00) [0]
Это он не печатает, это крик души.
Несовместимость настроек ком порта.
Сергей М. (2007-10-19 15:14:00) [3]
> как это сделать в Дельфи?
Возьми на вооружение TurboPower Async Pro и не мучайся.