Работа с com-портом.

← →
Shakesbeer © (2007-10-19 14:49) [0]

Есть такой код
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 и удалил даже подключение - прога продолжала работать. Но после перезагрузки снова бяка. Что-происходит с портом, но как это сделать в Дельфи?

← →
Сергей М. © (2007-10-19 15:14) [1]

> как это сделать в Дельфи?

Возьми на вооружение TurboPower Async Pro и не мучайся.

← →
Anatoly Podgoretsky © (2007-10-19 19:54) [2]

> Shakesbeer (19.10.2007 14:49:00) [0]

Это он не печатает, это крик души.
Несовместимость настроек ком порта.

> Несовместимость настроек ком порта.
Именно!!! В 99% случаев при подключении внешнего оборудования на COM - порт, непонятки возникают из за несогласованности скорость/кол-во бит/стоп-бит/проверка четности. Чаще именно скорости подключения, т.к. 8-нет-1 умолчание почти везде. А вот скорость на _железе_ надо бы проверить, дабы и прога и железо имели одинаковые представления о мире их окружающем...

Работа с com-портом. Найти похожие ветки