| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать сколько COM-портов не используя реестр? [D6, Win95/98]

Kostyan ©   (2002-08-28 14:33:00) 

Такая проблема: через PCI организуется 2 и более СОМ портов.
Вопрос в том, как их найти в системе не заглядывая в реестр.

---

Ihor Osov'yak   (2002-08-29 23:34:00) [1]

try it:


procedure GetAvailablePorts(PortList: TStrings);
{ The PortList should be initialized }
var
n, MaxPorts: integer;
Port: THandle;
PortName: string;
begin
if Win32PlatForm = VER_PLATFORM_WIN32_NT then
MaxPorts := 256
else { if VER_PLATFORM_WIN32_WINDOWS }
MaxPorts := 9;

for n := 1 to MaxPorts do
begin
PortName := "\\.\COM" + IntToStr(n);
Port := CreateFile(PChar(PortName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);

if (Port <> INVALID_HANDLE_VALUE) or (GetLastError = ERROR_ACCESS_DENIED) then
PortList.Add("COM"+IntToStr(n));

CloseHandle(Port);
end;
end;

---

kVitamin   (2002-08-29 10:11:00) [2]

Попробуй что-то вроде этого:
Uses WinTypes, WinProcs;
Begin
try
OpenFile("COM1");
except
MessageBox(GetActiveWindow, "COM1 not Init", "COM Error", MB_ICONINFORMATION or MB_OK);
end;
MessageBox(GetActiveWindow, "COM1 init Successfully", "COM Success", MB_ICONINFORMATION or MB_OK);
End.

---

Aleks1   (2002-08-29 03:08:00) [3]

Попробовать открыть их. Кстати AsyncPro именно так и работает.

---

Наверх