 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
COM Port - слушать, АТС и Компьютер 
| X-Vlad |
|
|||
 Опытный  Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
ПРивет всем.
Значит вот такая вот штука: Есть компьютер подключеный через com порт к Мини-АТС. Когда на кладут трубку(после разговора) АТС генерирует отчет(куда(откуда)звонили, длительность разговора, внутренний номер, линия...и.т.д.). Вопрос в чом: Как мне написать хук что-бы через ком порт моя программа читала эти даные. (АТС посылает даные на ком порт)... Мне нужен хук который при наличии даных записывает все что пришло в файл. Помогите плз. |
|||
|
||||
Дата 23.12.2004, 14:36 (
Загрузка ...
| _hunter |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
а зачем хук?
можно просто порт слушать. -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| X-Vlad |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
_hunter как? можно пример кода?
Зарание благодарен. |
|||
|
||||
| _hunter |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
поищи на MSDN
статья называлась типа serial communications on windows -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: 5 Всего: 7 |
Есть хороший примерчик. Куда выслать.
|
|||
|
||||
| X-Vlad |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
||||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: 5 Всего: 7 |
выслал.
|
|||
|
||||
| X-Vlad |
|
||||
|
Опытный Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
Bes у тебя нормальн окомпелировалось???.. у мя на Дельфях 6, и 7-ых вы дает ошибку:
на строке
Ошибка:
подключил в Uses модуль Variants? все равно неработает..((( в чем проблема? |
||||
|
|||||
| _hunter |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
а варианты тут при чем?
посмотри по справке что ожидает функция и сравни с передаваемыми типами. -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: 5 Всего: 7 |
2X-Vlad:
там в проседурах Procedure TCommThread.QueryPort; Var ByteReaded надо поменять с integer на cardinal и в процедуре Procedure WriteStrToPort(Str:String); ByteWritten тоже. Думаю это было написано для Д4 Это сообщение отредактировал(а) Bes - 28.12.2004, 09:19 |
|||
|
||||
| X-Vlad |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 570 Регистрация: 10.4.2002 Где: Украина, Львов Репутация: 1 Всего: 5 |
Bes большое спасибо - работает.
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0578 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |