| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с ком портами [D4]
Макшанов Максим © (2002-03-21 22:58:00)Подскажите пожалуйста как в дельфи работать с ком портами.
Как самому проинициализировать порт (скорость 50,75,100 бод; старт/стоп 1.5 бита); читать и записывать в порт
Как определить приход символа (в досовских прогах определял по прерыванию а в виндовсе:(( )
Alx2 (2002-03-22 08:03:00) [1]Поищи библиотеку компонент AsyncPro.
gek (2002-03-22 07:21:00) [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;
SoftOne (2002-03-22 01:47:00) [3]На первый вопрос:
GetCommState (не обязательно).
Изменения в DCB (или создание).
SetCommState
На второй - используй WaitCommEvent c EV_RXCHAR.
| |
