При создании внешней компоненты использовались материалы:
ВК NativeAPI на Delphi и FreePascal (автор: Александр Соломатин ) и ВК для 1С:Предприятие 8.2 NativeAPI на Delphi (автор: Андрей Акулов).
Работа сервера организована на неблокируемых сокетах winsock.
Компонента имеет 2 свойства:
- Порт - собственно сам порт, который будем прослушивать
- Таймаут - таймаут отключения бездействующих сессий (в секундах)
и 2 функции:
- Слушать() - начинает слушать указанный порт. Полученные данные компонента возвращает в виде строки во Внешнее событие 1С.
- Отключиться() - обрывает все существующие соединения и отключает прослушивание.
Критика приветствуется, но ногами сильно не пинать, т.к. это по сути первый опыт создания как самих внешних компонент, так и работы в Delphi :)
SocketVK.epf - пример работы компоненты. Обработка запускает сам сервер, событие на порт генерируйте любым другим приложением.
Source.rar - Исходники.
