[crazyc]

Есть 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С?

[Alegun]

Сообщение от crazyc

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

Загнать "интерфейс" в OCX