Ярославлев Владислав

23
Рейтинг

vladon
Владислав Ярославлев



  •   Регистрация: 29.08.2009 (14 лет назад)

  •   Был(а) на сайте: 21.06.2023

Друзья
  • Константин Зонин
Подписчики 2
Группы

Рейтинг 23

Реализация доступа к сокетам внешней компонентой для 1С Native API на языке Delphi (8.2)
+23 –

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Windows Абонемент ($m) Компонента, плагин (dll, vbs,..) Разработка внешних компонент

Пример реализации функций работы с сокетами во внешней компоненте, написанной для 1С Native API на языке Delphi.

1 стартмани

19.07.2012    32155    185    vladon    36       

23
Смотреть все

Комментарии

ВК › Отслеживание изменений каталога в REAL-TIME: Native ВК для 8.х › #27 26.10.13 15:16
Если не секрет, как в Native API генерировать внешние события?
ВК › Реализация доступа к сокетам внешней компонентой для 1С Native API на языке Delphi (8.2) › #14 01.10.12 16:38
(13) phabi0z, вот я как раз вообще не смог разобраться с примером с ИТС, под x64 у меня не компилируется (вернее, компилируется, с ворнингами о размере переменных), VS 2012

если можно, скиньте, пожалуйста, в личку или на мыло - vladon@vladon.ru
ВК › Реализация доступа к сокетам внешней компонентой для 1С Native API на языке Delphi (8.2) › #12 01.10.12 15:29
(11) phabi0z, а можно, если не гостайна, взглянуть на ваш код на си?

а проблема была в размерности типов, оказывается, в 64-бит delphi размерность Integer остаётся 32 бита, а размерность pointer увеличивается до 64 бит

в 32-битном дельфи sizeof(Integer)=sizeof(Pointer)=32bit

поэтому в 32-бит сервере работало, а в 64-бит сервере ссылки на функции в классе были неверными
ВК › Реализация доступа к сокетам внешней компонентой для 1С Native API на языке Delphi (8.2) › #10 01.10.12 12:51
(7) phabi0z, ошибка с x64 исправлена, качайте обновлённый файл.
ВК › ВК NativeAPI на Delphi и FreePascal › #61 01.10.12 8:50
(60) огромное спасибо, работает.
ВК › ВК NativeAPI на Delphi и FreePascal › #58 26.09.12 22:34
(57) вот здесь лежит архив со всеми исходниками: http://narod.ru/disk/61615376001.5ca45c99a6ebdc7d919aa57124f0aa7b/SocketNative.zip.html

в каталоге 1С есть .dt-шник, это база, где в общий макет залиты dll-ки с манифестом в зипе, dll-ки откомпилены delphi xe3, в любом случае все исходники там же

и есть обработка, которая запускает подключение компоненты на сервере

так вот, на 32-бит сервере компонента подключается - всё нормально отрабатывает
на 64-бит сервере при нажатии кнопки "Подключить компоненту" сервер долго-долго думает, а потом клиент вылетает с сообщением, что сервер принудительно закрыл подключение.

в любом случае, если есть возможность, попробуйте сами.
ВК › ВК NativeAPI на Delphi и FreePascal › #56 26.09.12 16:01
(54) клиента 64 же не существует.

компилировалось Delphi XE2 и Delphi XE3.
ВК › ВК NativeAPI на Delphi и FreePascal › #52 26.09.12 15:22
(51) это из оригинальных исходников от Александра Соломатина? Нет, тоже не получается.
ВК › ВК NativeAPI на Delphi и FreePascal › #50 25.09.12 15:46
На сервере x64 не работает, к сожалению. Ковыряю-ковыряю код, не пойму, в чём дело.
ВК › ВК для 1С:Предприятие 8.2 NativeAPI на Delphi (запуск приложений, раскладка клавиатуры, события и др.) › #40 25.09.12 13:44
Проблема с x64 явно в стандартах вызова (stdcall), если убрать stdcall из процедуры _Init, то падает и на win32.

Сделал полный лог каждой строчки, так вот на win64 тормозится перед _Init.

Что делать - пока ума не приложу, кто сталкивался?