Определение номера com-порта

[NeferSky]

Доброго времени суток, Земляне.
Затея состоит в том, чтобы определить, с какого com-порта пришел сигнал.
Использую компонент comm32, создаю массив ком-портов (12 штук), присваиваю им номера, скорости и т.д., и стартую их. Процедура Comm32xReceiveData одна на всех, но в ней не передается номер порта. А хотелось бы. Итак, вопрос: как это лучше реализовать? Стоит ли пытаться добавить номер порта в процедуру OnReceiveData или есть другие пути? Писать 12 процедур для массива ведь не единственное решение?

[Kivals]

NeferSky, ИМХО у тебя всегда есть Handle порта - а его можешь сопоставить с номером при инициализации.
Да и вроде ничего не мешает наследовать comm32 и добавить в него реквизит...

P.S. рассуждения теоретические - я общение с comm в Delphi писал на чистом WinAPI

[NeferSky]

Аааа, да... О хендле я, как обычно, не подумал...

До WinAPI я пока не дорос, а о наследовании можно поподробнее? Добавить свойство самому компоненту я умею, а вот параметр в процедуру - даже не представлю как.

Если нужно, процедура объявляется так:
procedure Comm321ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word) // Реагирует, если на порт чё-нибудь пришло
Компонент Comm321: TComm32.
Могу еще и код comm32.pas выложить, с которого ставил компонент...

[Kivals]

Ой - с подробностями не помогу: последний раз в Дельфи програмил года 4 назад.
Но попробуй прилепить сюда comm32.pas - ИМХО там легко как-то должно быть.

[NeferSky]

Comm32.pas...

Kivals, все же за напоминание о хендле спасибо))) Попробую через него реализовывать, например, если массив будет двумерным, и в нем будут валяться com'ы и соответствующие хендлы - вроде, ничего решение?

Добавлено через 14 часов, 20 минут и 15 секунд:
Ничего не понимаю - у comm32 нет свойства хендла...