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

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

Форум программистов > Delphi: WinAPI и системное программирование > Как передать 8 бит в СОМ порт

Автор: SERGSERG 10.12.2005, 23:29

Хочу передать байт в СОМ порт состоящий из 8 бит, т.е написать что то типо 0b00110011 (33Н) и передать в порт, но писать хочу именно битами, так просто мне удобней.
Даг какой функцией мне воспользоваться, чтоб такое было возможно???
Подскажите пожалуста smile

Автор: Snowy 11.12.2005, 13:57

Зависит от того, как ты работаешь с портом.
Но общий принцип такой. Варианты.
1. Писать в шестнадцатиричном виде, а бинарный в комментарий.

Код


var
  b: byte;
begin
  b:=$33; // 00110011
  com.Send(b);

2. Использовать asm вставки:

Код


var
  b: byte;
begin
  asm mov b, 00110011b; end; // $33
  com.Send(b);

3. Использовать BinToHex. Но это более коряво.

Автор: SERGSERG 11.12.2005, 18:37

Ок спасибо щас попробую smile

Автор: Fighter 11.12.2005, 23:07

Кстати, если ты пишешь под XP то этого мало. У тебя могут возникнуть проблемы с привелегиями. Вот пример по работе с LPT портом. Я под 9x я мог бы даже на турбо паскале написать что-то вроде

Код


  port[$378] := 33;

но чтобы делать то же самое в XP мне пришлось качать dll'ку inpout32.dll, к которой я еще исходник скачал, в одном из файлов исходника содержится около 300 строк.

Автор: Snowy 12.12.2005, 10:12

Цитата(Fighter @ 11.12.2005, 23:07)

Кстати, если ты пишешь под XP то этого мало.

Есть компоненты и готовые решения, как работать с COM и LPT портами.
Прямой доступ тут и не нужен - винда все предоставляет.
В этом же разделе есть примеры.

Автор: oleg1973 12.12.2005, 12:13

ну дык не надо напрямую пытатся через out делать
можно как с файлом работать (winapi)