Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.88.16.192] |
|
Сообщ.
#1
,
|
|
|
.
|
Сообщ.
#2
,
|
|
|
в drkb искать Write/read a string to/from the serial port
там не хватает только "как узнать список ком.портов", а список этот можно получить так: //----------------------------------------------------- // узнать какие com(rs232) порты доступны ПК // заполнить список для последующего выбора пользоваелем //-------------------------------------------------------- procedure TForm1.EnumComPorts(); var reg : TRegistry; l : TStringList; i : integer; begin l := TStringList.Create; reg:=TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false); reg.GetValueNames(l); for i:=0 to l.Count-1 do ComboBox_rs232List.Items.Add(reg.ReadString(l[i])); finally reg.Free; l.Free; end; end; Добавлено а, последовательность вызовов будет что то вроде open, setup, read (в ДРКБ примере почему то не указано). |
Сообщ.
#3
,
|
|
|
TComPort by Dejan Crnila
Последняя версия 4.11 |