Создание dll в delphi для 1С - 1С - Ответ 12096538

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.