С июльского ИТС скачал папку VNCOMP82 - какой версией VS компилить, не совсем понятно. :-) У кого есть Дельфийский образчик (от Кирпича или другой) положите пож. на стабильный хостинг типа Народ.ру (или пришлите мне я положу), а то в v8: ВК NativeAPI и Delphi похоже время истекло.

Ищи на инфостарте

(1) А нашел спасибо http://infostart.ru/public/81644/ сейчас заценю.

Кстати штатная с ИТС не скомпилилась VS 2005 (говорит не та версия), качнул 2010 тоже чего то оно сначала конвертит, а потом ругается на нехватку файла. Стало быть методом исключения - для компиляции примера от 1С был нужен VS 2008.

Пока не сообразил как там отобразить исключение (AddError?) - сделал сообщением и возвратом False.

V8.AddError наверное. я не помню уже.

(4) Я там сделал вот так:

function _CallAsFunc(Obj: PV8ObjectRec; const lMethodNum: integer;
 pvarRetValue, paParams: PV8Variant; const lSizeArray: integer): boolean;
 stdcall;
begin
 try
   result := _V8CF(Obj.RelObj1.ClassReg.MethList[lMethodNum].Execute)
     (Obj.RelObj1, pvarRetValue, PV8ParamArray(paParams), lSizeArray);
 except
   on e: Exception do begin
     ShowBalloon(e.message, 'Ошибка внешней компоненты', 3000);
     result := false;
   end;
 end;
end;


ShowBalloon показывает желтое всплывающее сообщение в трее.
Как там подсоединить V8 пока непонятно.

Кажется так Obj.RelObj1.V8.addError();

Obj.RelObj1.V8.addError(1006, 'Внешняя компонента', pWideChar(err), E_FAIL);

(выводит сообщение с восклицательным знаком).

Ну задумывалось, что обработку ошибок будут делать в реализации методов.
Там просто писать V8.addError(1006, 'Внешняя компонента', pWideChar(err), E_FAIL);

(8) Неа, там я просто выбрасываю исключение, а обработка в CallAsFunc. Иначе исключение 1С обрушивает... Вот так вроде нормально всё:


function _CallAsFunc(Obj: PV8ObjectRec; const lMethodNum: integer;
 pvarRetValue, paParams: PV8Variant; const lSizeArray: integer): boolean;
 stdcall;
var err: WideString;
begin
 try
   result := _V8CF(Obj.RelObj1.ClassReg.MethList[lMethodNum].Execute)
     (Obj.RelObj1, pvarRetValue, PV8ParamArray(paParams), lSizeArray);
 except
   on e: Exception do begin
     err:=e.Message;
     Obj.RelObj1.V8.addError(1006, 'Внешняя компонента', pWideChar(err), E_FAIL);
     result := false;
   end;
 end;
end;


Ну я и говорю что эти все try except должны быть в реализации метода. Ну если так хочется, то ради бога.

Сделал компоненту, которая была нужна, с системными фенечками (запуск процесса, переключение клавиатуры и др.) - думаю, многим пригодится http://infostart.ru/public/88060/ Еще раз спасибо за помощь.

Что-то не удается вызвать событие
ExternalEvent(wszSource, wszMessage, wszData);

Методом тыка добился следующего
если пишешь вот такое

   V8.ExternalEvent('Hello','From','Delphi');
   V8.AddError(1007, 'Внешняя компонента','ошибочка вышла', 0);
   result := true;

то работает.

и в модуле управляемого приложения

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
   Сообщить(Источник);
   Сообщить(Событие);
   Сообщить(Данные);
КонецПроцедуры

фигня какая то.

Или так

ОбъектВК.ВызватьВнешнеееСобытие();
Предупреждение("ла ла да");

(14) Я вот так сделал:


function TMyClass.CreateEventFunc(RetValue: PV8Variant; Params: PV8ParamArray;  const ParamCount: integer; v8:TV8AddInDefBase): boolean;
var
 wszSource, wszMessage, wszData: WideString;
begin

 wszSource := V8AsWString(@Params[1]);
 wszMessage := V8AsWString(@Params[2]);
 wszData := V8AsWString(@Params[3]);
 v8.ExternalEvent(pWideChar(wszSource), pWideChar(wszMessage), pWideChar(wszData));

 Result := true;

end;


-------------

function _CallAsFunc(Obj: PV8ObjectRec; const lMethodNum: integer;
 pvarRetValue, paParams: PV8Variant; const lSizeArray: integer): boolean;
 stdcall;
var err: WideString;
begin
 try
   result := _V8CF(Obj.RelObj1.ClassReg.MethList[lMethodNum].Execute)
     (Obj.RelObj1, pvarRetValue, PV8ParamArray(paParams), lSizeArray, Obj.RelObj1.V8);
 except
   on e: Exception do begin
     err:=e.Message;
     Obj.RelObj1.V8.addError(1006, 'Внешняя компонента', pWideChar(err), E_FAIL);
     result := false;
   end;
 end;
end;


Действительно без Предупреждение оно чего-то не отрабатывает. Штрихкоды оно так же будет читать, что ли. :-)

Может там переменная при выходе из функции уничтожается...1

(17) Видимо да. Загрузил ВК в модуле приложения. Все заработало.

Перем ОбъектВК экспорт;

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
   Сообщить(Источник);
   Сообщить(Событие);
   Сообщить(Данные);
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
   ПодключитьВнешнююКомпоненту("C:\temp\LNAPI\units\test1CNativeLib\sample\demo.dll","DemoLib",AddInType.Native);
   ОбъектВК = Новый("AddIn.DemoLib.ВторойКласс");  
КонецПроцедуры

(18) И у меня тоже так получилось.
Почему-то я думал что глобальные переменные (в гл. модуле) они убрали.

Я тут был.

Сейчас выложу на инфостарт что получилось.

Положил новую версию с событиями: http://infostart.ru/public/88060/