Как подключить к 1С 8.1 подключить библиотеку стороннего производителя (*.dll) #450706

Есть ли возможность подключить к 1С 8.1 подключить библиотеку стороннего производителя (*.dll), которая не разрабатывалась как внешняя компонента для 1С.

Да, есть.

Подскажите, пожалуйста, какие механизмы нужно использовать

Сначала зарегать, потом через Новый COMОбъект заюзать.

Спасибо попробую

это если библиотека писалась как COM объект

Не регистрируется, библиотека называется Ekomilk11.dll, поместил я ее на диск С в корень, пробую регистрировать через RegSRV32 (пуск -> выпонить -> Regsvr32 /i c:Ekomilk11.dll), Regsvr32 возвращает такое вот ругательство : c:Ekomilk11.dll была загружена, но найти точку входа для DllRegisterServer не удалось.  Зарегистрировать этот файл невозможно. А можно ли подключить библиотеку без регистрации

твоя библиотека не работает com-объектом. Так что в /dev/nul её :-)

Нет. Значит не судьба. См

у меня есть пример ее использования на Delphi, может он прольет свет?

Могу написать COM или ВК (мне без разницы) оболочку. За небольшие деньги.

ООо, тем более есть пример на моем любимом Дельфи. Еще и быстро сделаю.

uses {IFNDEF Ekomilk11} {определяем функции определенные в Ecomilk11.dll} {Все ф-ии и процедуры необходимо загружать только 1 раз} {инициализация ресурсов DLL.} function Init(AHandle: THandle; ACaption: String): Longint; StdCall; {инициализация COM-порта с использованием функции обратного вызова} procedure ConnectPort(AHandle: THandle; Port,Param: word; Point:Pointer; AProc: TFarProc); StdCall; {освобождение ресурсов DLL} {ENDIF} implementation {IFNDEF Ekomilk11} {определяем импортированные функции} {Определяем процедуру, обратного вызова с использованием param:=TSpinEdit(FindComponent('SpinEdit'+(Sender as TButton).name[7])).Value; with Sender as TButton do begin TSpinEdit(FindComponent('SpinEdit'+(Sender as TButton).name[7])).Visible:=false; end; begin {инициализация ресурсов DLL.} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SpinEdit1.Text; {with Sender as TSpinEdit do if Value>MaxValue then Value:=MaxValue else  if Value<MinValue then   Value:=MinValue;} end; end.

см

проблема в том, что *.dll купленая :)

проблема состоит в том, что продавец прибора никак не хочет сообщать каким образом можно поймать данные с прибора, говорят, что это закрытая информация, предлагают покупать или их прогу или библиотеку

аську свою кинь

224-954-187

иии, желательно, зайди в нее.

Отвалилась аська Пишет: "Ошибка резервной линковки." Жду.

Может это поможет Библиотека dynwrap.dll - небольшой ActiveX, который может быть использован в любых средах, которые в состоянии выступить в роли OLE-клиента, например, в MS Office (VBA), 1C:Предприятии, административных скриптах Windows (.vbs и .js) и т.д. Библиотека является результатом труда нескольких разработчиков. Библиотека dynwrap.dll распространяется свободно.Библиотека обеспечивает подобие инструкции "Declare" в VBScript. Это позволяет вызывать произвольные функции из DLL-библиотек (например, win32 функции API).

ПоХляди...

Спасибо, попробую