ВК NativeAPI на Delphi и FreePascal

ПодключитьВнешнююКомпоненту(..., ..., ТипВнешнейКомпоненты.Native)

&НаСервере
Процедура СоздатьНаСервере()
        ПодключитьВнешнююКомпоненту("ОбщийМакет.Jabber", "Jabber", ТипВнешнейКомпоненты.Native); // Файловая ИБ x32 = Истина; Сервер приложений x64 = Ложь
КонецПроцедуры

TMusThread = class(TThread)
    procedure Execute; override;
  public
    Notes: String;
    Speaker: boolean;
  end;

function VSMusic.PlayMusic(RetValue: PV8Variant; Params: PV8ParamArray;  const ParamCount: integer; var v8:TV8AddInDefBase): boolean;
begin
 AMusThread := TMusThread.Create(true);
 AMusThread.FreeOnTerminate := true;
 AMusThread.Priority := tpNormal;
 AMusThread.Notes := V8AsAString(@Params[1]);
 AMusThread.Speaker := V8AsBool(@Params[2]);
 AMusThread.Execute;
 Result:=true;
end;

&НаКлиенте
Перем ОбъектВК, ИмяМакета;

&НаКлиенте
Процедура Старт(Команда)
	//ПодключитьВнешнююКомпоненту("C:\temp\external_event\testVK\demo.dll","DemoLib",AddInType.Native);
	ИмяМакета = "ОбщийМакет.ТестВК";
	Если НЕ ПодключитьВнешнююКомпоненту(ИмяМакета,"DemoLib",AddInType.Native) Тогда	
		НачатьУстановкуВнешнейКомпоненты(Новый ОписаниеОповещения("ЗагрузкаВК", ЭтотОбъект),ИмяМакета);
		Возврат;
	КонецЕсли;
	СоздатьОбъектВК();
КонецПроцедуры

&НаКлиенте
Процедура СоздатьОбъектВК()
	ОбъектВК = Новый("AddIn.DemoLib.Пример");	
	ОбъектВК.Старт();	
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузкаВК(Парам) экспорт
	Если ПодключитьВнешнююКомпоненту(ИмяМакета,"DemoLib",AddInType.Native) Тогда
		СоздатьОбъектВК();
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Стоп(Команда)
	ОбъектВК.Стоп();
	ОбъектВК = Неопределено;
КонецПроцедуры

&НаКлиенте
Процедура ВнешнееСобытие(Источник, Событие, Данные) 	
	Состояние(Данные);
КонецПроцедуры

function TKKTDrv.GetVersion(RetValue: PV8Variant; Params: PV8ParamArray;
  const ParamCount: Integer; var v8: TV8AddInDefBase): Boolean;
begin
  try
    WriteLog('GetVersion...');
    V8SetWString(RetValue, DriverVersion);
    Result := True;
    WriteLog('Result = ' + DriverVersion);
  except
    on e: Exception do
    begin
      V8SetWString(RetValue, ''); // результат функции
      Result := ErrorHandler(Word(c_unknown), e);
    end;
  end;
end;

function TKKTDrv.Open(RetValue: PV8Variant; Params: PV8ParamArray;
  const ParamCount: Integer; var v8: TV8AddInDefBase): Boolean;
var
  s: WideString;
  ecode: Integer;
begin
  ecode := c_unknown;
  try
    WriteLog('Open...');
    if ParamCount <> 1 then
    begin
      ecode := c_param_wrong_num;
      raise Exception.Create(LocStr(c_param_wrong_cnt_en, c_param_wrong_cnt_ru));
    end;
    s := '0123456789'; // ID устройства
    fDeviceId := s;
    V8SetWString(@Params[1], s);
    V8SetBool(RetValue, True); // результат функции
    Result := True;
    WriteLog('Result = 0');
  except
    on e: Exception do
    begin
      V8SetBool(RetValue, False); // результат функции
      Result := ErrorHandler(Word(ecode), e);
    end;
  end;
end;

function TKKTDrv.ErrorHandler(const ResCode: Word; E: Exception): Boolean;
begin
  fLastErrCode := ResCode;
  fLastErrDesc := e.Message;
  WriteLog(Format('Result = %d (%s)', [fLastErrCode, fLastErrDesc]));
  V8SetBool(RetValue, False); // результат функции
  Result := False;
  V8.AddError(ResCode, PWideChar(LocStr(c_ext_comp_en, c_ext_comp_ru)), PWideChar(fLastErrDesc), E_FAIL);
end;

// ...

begin
  with ClassRegList.RegisterClass(TKKTDrv, 'TKKTDrv', 'TKKTDrv') do
   begin
     AddFunc('GetVersion', 'ПолучитьНомерВерсии', @TKKTDrv.GetVersion, 0);
     AddFunc('Open', 'Подключить', @TKKTDrv.Open, 1);
     // ...
end;