5

Есть dll без исходников, для нее есть интерфейс на delphi. Стоит задача подружить эту библиотеку с 1С. На сколько понял с прочитанного в интернете, на основе интерфейса можно сделать dll по COM технологии.

Пример интерфейса:

 unit Unit1;
    interface

    uses Windows,
      Messages,
      Classes,
      SysUtils,
      Forms;


type 
    TBonusCountersPrintQuery = packed record
        Card: array[0..15] of char;
    end;

    TListCountersPrint = packed record         
        Lines: array[0..PACKET_COUNTERS_PR_MAX_LINE_COUNT - 1] of TCounterLine;
    end;

    TCounterLine = packed record
        LineNo: word;
        IsLast: byte;
        Num_Counter: word;
        N_Counter: array[0..9] of char;
        Value_Counter: Cardinal;
    end;

type
    THWE_ProcessBonusListCountersPrint = function(vBonusCountersPrintQuery: TBonusCountersPrintQuery; var vListCountersPrint: TListCountersPrint): Integer; stdcall;

function ProcessBonusListCountersPrint(vBonusCountersPrintQuery: TBonusCountersPrintQuery; var vListCountersPrint: TListCountersPrint): Integer; stdcall;

implementation

var
    HWE_ProcessBonusListCountersPrint          : THWE_ProcessBonusListCountersPrint;

function init_dynamic(ALibrary: string): Boolean;
begin
  hLib := SafeLoadLibrary(ALibrary);

  Result := (hLib <> 0);

  if Result then
  begin

    @HWE_ProcessBonusListCountersPrint := GetProcAddress(hLib, 'ProcessBonusListCountersPrint');

    Result := Assigned(HWE_ProcessBonusListCountersPrint);
  end;
end;

function ProcessBonusListCountersPrint(vBonusCountersPrintQuery: TBonusCountersPrintQuery; var vListCountersPrint: TListCountersPrint): Integer;
begin
  result := HW_FAILURE;
  if hLib <> 0 then result := HWE_ProcessBonusListCountersPrint(vBonusCountersPrintQuery, vListCountersPrint);
end;

initialization

finalization

end.

Как правильно написать такую dll, чтобы функция из примера была доступна из 1С?

9
  • 3
    вопрос только зачем этот костыль нужен. а так хоть две промежуточных длл пишите.
    – teran
    2 фев 2018 в 21:27
  • Да, это возможно и реализуется очень просто.
    – zed
    3 фев 2018 в 1:33
  • 1
    Да, это враппер, причём достаточно простой. Но вопрос у вас общий, поэтому ответ - да, это реализуемо :) 3 фев 2018 в 8:17
  • > вопрос только зачем этот костыль нужен. а так хоть две промежуточных длл пишите. – teran Есть бизнес система с которой можно взаимодействовать через эту dll. Напрямую с 1С она не работает, поэтому приходится извращаться. 3 фев 2018 в 8:52
  • Может есть какая-нибудь статья или пример кода для похожего решения? Или хотя бы примерная структура для такой dll? 3 фев 2018 в 9:00

3 ответа 3

4
+50

Ваша библиотека будет связующим звеном между 1C и сторонней библиотекой без исходного кода:

1C -> ВашаБиблиотекаCOM -> СтороняяБиблиотека

То, что вы описали - попытка реализовать связь:

ВашаComБиблиотека -> СтороняяБиблиотека

Осталось реализовать связь между 1C и вашей библиотекой.

Чтобы начать разработку библиотеки по технологии COM в Delphi нужно выбрать: File -> New -> Other и там найти ActiveX Library, новый проект будет выглядить приблизительно так:

НовыйПроект

Далее к проекту добавить COM-сервер: File -> New -> Other и найти COM Object, выглядеть в новых версиях Delphi будет как-то так:

НоваяDelphi

В старых версиях Delphi так:

СтараяDelphi

В полях ClassName (CoClassName) нужно ввести английское название, по которому 1C и будет загружать вашу библиотеку после регистрации в системе, например: MaximLibrary1C

Подробнее о пошаговом создании COM-библиотеки можете почитать здесь: http://www.introligator.org/articles/3/78

После написания прослойки (куда вы перенесете свой вышеописанный код) и окончания разработки на целевой машине вашу новую .dll нужно зарегистрировать в системе, как-то так:

regsvr32 c:\Library\Project1.dll

Конечно, имя проекта лучше задать более вменяемое, а не Project1. На машине с Delphi зарегистрировать можно из среды в меню "Run". Из самой 1C вашу библиотеку после регистрации в системе можно будет загружать как-то так:

МояБиблиотека = Новый COMОбъект("MaximLibrary1C");
// вызываем метод в библиотеке
МояБиблиотека.1C_ProcessBonusListCountersPrint();
3

Попробуйте технологию Native API – собственный интерфейс системного программирования 1С:Предприятия 8.

1CNativeLib - библиотека Delphi для создания внешних компонент (ВК) 1С по технологии Native API. Позволяет заниматься непосредственно функционалом Внешней Компоненты, не отвлекаясь на соблюдение инструкций, предоставленных фирмой 1С.

Внешняя компонента NativeAPI на Delphi Инфостарт

Внешняя компонента собранная на библиотеке, указанной вше

0

Проблема решена. Очень помогла книга "Delphi и 1С - Предприятие. Программирование информационного обмена" Попов С.А. 2007 год.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.