Пример реализации функций работы с сокетами во внешней компоненте, написанной для 1С Native API на языке Delphi.
Использованы исходники реализации интерфейса от пользователя v77: //infostart.ru/public/81644/
При написании руководствовался ещё реализацией Native API от romix: //infostart.ru/public/88060/
В файле SocketNative.zip: исходники; скомпилированные dll для Windows x86 и x64; пример конфигурации 1С (выгрузка информационной базы с запуском на сервере).
Исходники компилировались Embarcadero Delphi XE3.
Исправление от 01.10.2012 — теперь работает и на сервере x64, спасибо юзеру romix (v77).
Функции:
-
Подключиться (Connect)
-
Отключиться (Disconnect)
-
Послать (SendData)
-
Принять (RecvData)
Порядок использования:
Подключаем внешюю компоненту (считаем, что расположена в макете интегрированной обработки TestNativeAPI):
ПодключитьВнешнююКомпоненту("Обработка.TestNativeAPI.Макет.SocketNative", "SocketNative", ТипВнешнейКомпоненты.Native);
Сокет = Новый("AddIn.SocketNative.SocketNative");
Устанавливаем свойства Сервер, Порт, Таймаут:
Сокет.Сервер = ;
Сокет.Порт = ;
Сокет.Таймаут = ;
И подключаемся:
Сокет.Подключиться();
Теперь можно, например, отправлять данные:
Сокет.Послать("Hello, world");
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
Проверено, работает на 64-битном сервере 1С
Так он только подключаться может, а слушать? С подключиться проблем нет, вот как слушающий организовать
(2) oleg_km, ну это нужно сервер писать, в принципе несложно. Просто нет смысла организовывать её в виде компоненты.
Есть какая-то конкретная задача для «слушания»? Опишите, возможно, я смогу взяться.
не понятно как делать многопоточность, как читать подключенные сокеты. Я думал ты придумал что-то. С клиентом все понятно
(4) oleg_km, у меня реализована многопоточность, например, резолв IP-адреса по имени хоста происходит в отдельном потоке, посмотрите исходники.
Просто не понимаю смысла реализовывать сервер в виде ВК для 1С.
Написал компоненту для оптимизации раскроя листов под win32. Недавно установили сервер 1с x64 под win 64… Конечно же ВК не работает. Перекомпилил на Delphi ex2 под x64. При подключении ВК сервер 1c падает.
Теперь вопрос. Есть ли какие-то особенности при компиляции ВК для x64?
PS. Владислав (vladon), не могли бы написать свою почту для связи, если не затруднительно?
(1) CVZ,
подключить компоненту на 64 сервере 1с не удалось!
Пробовал на версии 8.2.13.209 и на версии 8.2.16.352 — результат одинаковый — зависание с последующим отсоединением от сервера
Подскажи как подключал?
Проблему с x64 подтверждаю, работаю над этим.
(7) phabi0z, приношу свои извинения, как выяснилось сегодня — тестили на 32 бит…
(7) phabi0z, ошибка с x64 исправлена, качайте обновлённый файл.
(10) спасибо
уже решил проблему переписав свой код на си,
но все равно скачаю для анализа проблемы
(11) phabi0z, а можно, если не гостайна, взглянуть на ваш код на си?
а проблема была в размерности типов, оказывается, в 64-бит delphi размерность Integer остаётся 32 бита, а размерность pointer увеличивается до 64 бит
в 32-битном дельфи sizeof(Integer)=sizeof(Pointer)=32bit
поэтому в 32-бит сервере работало, а в 64-бит сервере ссылки на функции в классе были неверными
(12)
Я так и понял, что проблема в размерности типов, но не смог решить ее в delphi,
в классах ковыряться не было времени.
А для переноса своего кода на си я использовал пример с диска ИТС.
Он написан под vs2008 и там в принципе нет ничего сложного.
По себе могу сказать, что в основном программировал на delphi, но проблем с пониманием 1С-ной технологии создания внешних компонент на NativeApi у меня не возникло.
Выкладывать код ВК считаю нецелесообразным, так как каркас проекта есть на ИТС.
В дальнейшем планирую написать статью (если ее еще никто не написал)
Если очень надо — скину код проекта в личку, но без основной библиотеки раскроя(это гостайна)
(13) phabi0z, вот я как раз вообще не смог разобраться с примером с ИТС, под x64 у меня не компилируется (вернее, компилируется, с ворнингами о размере переменных), VS 2012
если можно, скиньте, пожалуйста, в личку или на мыло — vladon@vladon.ru
(14) ок, сейчас скину на мыло
(14)
ворнинги я убрал с помощью оператора static_cast<int>(var),
в общем в коде глянешь.
Есть один нюанс. этой компонентой не возможно передать произвольные данные.
Данные вида (26 байт, 16-й вид):
1A 00 00 00 C0 00 01 00 00 00 10 00 00 00 01 E0 01 00 33 39 37 32 35 31 37 38
передались как
1A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
и, соответствующим образом изменилась и строка в 1С после вызова метода «ОбъектСокет.SendData(СтрокаЗапроса)».
Если кто знает как можно передать по TCP из 1С произвольные данные, прошу подсказать.
Или может где взять исходники этой компоненты.
Вариант через Winscock так же не прошел, т.к. 1С (или Winsock) изменила строку на следующую:
1A 00 00 00 41 00 01 00 00 00 10 00 00 00 01 61 01 00 33 39 37 32 35 31 37 38
(все буквы типа À (код 192) заменены на обычные A (код 65))
К тому же так и не нашел рабочий вариант использования Winsock который можно использовать в одной процедуре (без обработчиков событий)
Не совсем понятно как и где это можно использовать?
{Обработка.TestSocketNative.Форма.Форма.Форма(27)}: Недостаточно фактических параметров
Сокет.Послать(«Hello, world»);
Обычно в этом месте кричат — Верните мой стартмани и ставят минус 🙂
Но я не сторонник таких мер. Как говорят профессора — раз что то ищет, значит что то знает.
Но желающим скачать обработку отсюда докладываю : на win 7 64-х не работает
{Обработка.TestSocketNative.Форма.Форма.Форма(22)}: Поле объекта не обнаружено (Сервер)
ОбъектСокет.Сервер = СокрЛП(TCPАдрес);
На сайте автора есть версия №2 в ней хотя бы реализован пример до конца.
И он работает … &НаСервере
Нафига внешняя компонента на сервере ?
Как пожелание — здесь положить свежую версию и рабочие примеры возможно для 32 х и 64 х
И создавать компоненту на клиенте.
Ждем вариант для клиента, а то как то нехорошо получается. Неплохо было бы предупреждать в топике
Полезная программа.
ошибка {Обработка.TestSocketNative.Форма.Форма.Форма(28)}: Поле объекта не обнаружено (Сервер)
Сокет2.Сервер = Сервер;
код
Сокет2= Новый(«AddIn.SocketNative.SocketNative»);
Сокет2.Сервер = Сервер;
Сокет2.Порт = номерСокета;
Сокет2.Таймаут = 100;
Обработка в придложенным вариантом не работает!
Все спрашивают — нафига компонента на сервере?
Отвечаю: для выполнения обмена в автоматическом режиме сейчас используются фоновые задания 1с, которые мониторят папки на наличие файлов с данными и грузят их, когда они появляются. Т.к. интервал опроса стоит очень маленький — 10 сек, а заданий много, то грузит это сервер просто не по-детски.
А хотелось бы, чтобы была ВК которая вызывала бы событияе на сервере для загрузки данных.
Конечно можно написать службу, которая будет при появлении данных создавать сеанс 1с и вызывать там загрузку, но это долго (создание сеанса) и неэффективно (сеанс будет подниматься по нескольку раз в минуту).
Попробовал зарегить 64-х разрядную компоненту из примера — не получилось.
Пишет, что модуль загружен, но точка входа DllRegisterServer не найдена.
При работе в серверном контексте, компонента самопроизвольно выгружается из платформы или работает до закрытия пользовательского сеанса, под которым была поднята? Обычно, платформа самопроизвольно выгружает компоненту и реализовать, например, периодическую отправку данных становится проблематично. Тут как?
А на 8,3 работает?
А на 8,3 работает?
(26) такая же фигня на Вин10 х64. Получилось исправить? Как оно вообще должно работать то?