Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

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

← →
Макшанов Максим   (2002-03-21 22:58) [0]

Подскажите пожалуйста как в дельфи работать с ком портами.
Как самому проинициализировать порт (скорость 50,75,100 бод; старт/стоп 1.5 бита); читать и записывать в порт
Как определить приход символа (в досовских прогах определял по прерыванию а в виндовсе:(( )

---

← →
SoftOne ©   (2002-03-22 01:47) [1]

На первый вопрос:
GetCommState (не обязательно).
Изменения в DCB (или создание).
SetCommState

На второй - используй WaitCommEvent c EV_RXCHAR.

---

← →
gek   (2002-03-22 07:21) [2]


type
BaudRate=(br50, br100, br200);


procedure TVSSComm32.SetBaudRate(Value:TBaudRate); //скорость работы порта
var
DCB:TDCB;
begin
FBaudRate:=Value;
if hCommFile <> 0 then
begin
GetCommState(hCommFile,DCB);
case Value of
br50: DCB.BaudRate:=$32;// 50 бод
br100:DCB.BaudRate:=$64; // 100
br200:DCB.Baudrate:=$C8; // 200
end;
SetCommState(hCommFile,DCB);
end;
end;


---

← →
Alx2 ©   (2002-03-22 08:03) [3]

Поищи библиотеку компонент AsyncPro.

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c