Поковырял я это NativeAPI, вроде хорошо всё. Только вот подумал, а как же писать это на Delphi? Там же возникает страшный гемор от С++ с множественным наследием.
Так как  "Преимуществ никаких у линукс нет"(с) и на Delphi всё делается быстрее, почему бы на Delphi не писать. Кто уже пробовал, поделитесь опытом.

Похоже никто этой проблемой ещё не занимался.

(0) Ну так рассказал бы, что там хорошего тогда )

Ну хорошего там только одно: нет COM.

остальное всё плохо )

(1) А в чём проблема состоит?

(5)Как в Delphi писать NativeAPI ВК? По технологии нужно подсунуть 1С объект класса IComponentBase, а он с множественным наследованием(непонятно зачем). А в Delphi не множественного наследования и C++ класс из Delphi не понимает.

А в Delphi нет множественного наследования и 1С объект, созданный в Delphi, не понимает.

В Delphi нет множественного наследования и 1С не понимает объект, созданный в Delphi.

хху. написал таки )))

(8) Борланд С++ Буилдер может тогда?

(6) IComponentBase - это же интерфейс. Ему по барабану, какое там наследование. Интерфейсы Delphi поддерживает прекрасно.

И не наследовать от него надо, а реализовать.

Delphi вроде как вполне себе поддерживает наследование от нескольких интерфейсов. Там нет наследования от нескольких классов.

т.е. по их бесовским убеждениям только одну реализацию можно наследовать :)

(10) Щас попробую интерфейсы

(10) ну не то чтобы побарабану так то ;)
порядок-то виртуальных функций соблюсти придется :)

Проблема состоит в том, что нет материалов (аналогичных *.h файлам с++) для разработки в Delphi от 1С.
Кирпич будет первый кто их разработает.

Не прокатят интерфейсы. С 1С не пытается получать интерфейс через IUnknown. Подсунуть интерфейс ручками тоже не катит т.к. структура класса в Delphi не совместима с С++(таблица интерфейсов), а 1С тупо обращается к объекту ВК как к объекту С++. Если бы не было множественного наследования, то прокатило бы просто в виде класса с виртуальными методами.

незнаю незнаю, я конечно в Delphi не спец, но..
>>С 1С не пытается получать интерфейс через IUnknown
1С и не должна получать IUnknown. IUnknown это COM интерфейс. В Native нет ничего от COM.
Объект должен быть создан при вызове экспортируемой из dll функции GetClassObject, по средством ее 1С получает указатель на объект.
>>а 1С тупо обращается к объекту ВК как к объекту С++
нет не с++, все виртуальные методы объявлены с соглашением о вызове __stdcall, такое же применяется везде в WINAPI и COM.
Ты же в Delphi как-то можешь писать COM объекты. И тут значит тоже сможешь.
Просто класс и его виртульные методы надо объявить грамотно. Соглашение о вызовах и порядок методов надо соблюсти.

Я вот просто не понимаю, нахрена вообще эти псевдо-нативные ВК нужны? Что вам так не хватает в штатной 8ке, что свою ВК надоть?

(18) ну бывает всякое. железку прицепить какую нибудь к 1С.

(17)"Объект должен быть создан при вызове экспортируемой из dll функции GetClassObject, по средством ее 1С получает указатель на объект."
Да в том то и проблема, что 1с понимает только интерфейс класса С++, а интерфейс класса Delphi не понимает. Потому что класс Delphi устроен по другому.

Вы, блин, меня заинтриговали..

Кирпич, вы потом о результатах напишите, мне влезать во все это неохото, а вот нахаляву - я не против.

(19)
Так все таки что возвращает GetClassObject - указатель на объект или указатель на абстрактный С++ интерфейс?
Интерфейс в С++ устроен очень просто - в первых 4х байтах лежит указатель - адрес массива, в котором, в свою очередь, лежат адреса функций, реализующих интерфейс. Лежат в том порядке, как функции описаны в интерфейсе. Все функции - __stdcall, то есть в них первым неявным параметром передается адрес интерфейса. те метод С++ интерфейса
void __stdcall SomeClass::SomeMethod(int x, int y)
{
   this->x = x;
}
и обычная функция
void __stdcall SomeMethod(SomeClass* pThis, int x, int y)
{
   pThis->x = x;
}
абсолютно одинаковы вплоть до машинных кодов.

Дельфи особо не знаю, так что в терминах Дельфей вряд ли все распишу. Может DmitrO че еще подскажет.

А вот код из примера 1С

ong GetClassObject(const WCHAR_T* wsName, IComponentBase** pInterface)
{
   if(!*pInterface)
   {
       *pInterface= new CAddInNative;
       return (long)*pInterface;
   }
   return 0;
}

И в дельфи и в си++ указатель на объект - это указатель на таблицу виртуальных методов. Только в IComponentBase три таблицы виртуальных методов, потому что он наследован от трех виртуальных классов. В Delphi нет множественного наследования и может быть только одна таблица виртуальных методов. В этом несовместимость.

(23)
У меня под рукой пока нет описания нативных ВК, но сдается мне, что в заголовках от 1С тоже наследование не от классов, а от интерфейсов, те от таких классов, в которых только объявлены методы, но не объявлены никакие данные.
Позже посмотрю точнее и отпишусь.
В крайнем случае можно создать структуру (record), в которою положить три указателя на массивы с адресами методов.

+(24)
А вот множественное наследование от интерфейсов в Дельфях есть.

"В крайнем случае можно создать структуру (record), в которою положить три указателя на массивы с адресами методов."
Я так и сделал. Других вариантов похоже нету.

кажись конфетку сделал. ВК делается сама собой. Минимальная ВК с одним классом и одним методом выглядит так. Остальное делается автоматом.
{
library Project1;

uses
 SysUtils, v8wrap, v8classes, v8types, v8utils;

type
 TMyClass = class(TV8UserObject)
   function GetValueType(RetValue: PV8Variant; Params: PV8ParamArray;
     const lSizeArray: integer): boolean;
 end;

{ TMyClass }
function TMyClass.GetValueType(RetValue: PV8Variant; Params: PV8ParamArray;
 const lSizeArray: integer): boolean;
begin
 V8SetWString(RetValue, 'Привет из Delphi!');
 result := True;
end;

begin
 with ClassRegList.RegisterClass(TMyClass, 'MySuperExtention', 'TMyClass') do
 begin
   AddFunc('GetValueType', 'ДайТипЗначения', @TMyClass.GetValueType, 1);
 end;
end.
}

* закладочка

(27) А тексты модулей v8wrap, v8classes, v8types, v8utils попадут в общий доступ?

Вот, что жаба позволила выложить, можно взять здесь:

http://webfile.ru/4903585

(30) интересно, буду тестить..

Пардон. Лучше здесь.
http://webfile.ru/4903614

(32) Черкни статью в КЗ!?

(33) А чо такое КЗ?

(+34) Понял

(35) КоЗа - суровая и беспощадная.
http://www.kb.mista.ru/

сдать ветку в kb

Ну и самая правильная версия. )) В предыдущей шаблон проекта малость неправильный.
http://webfile.ru/4904302

(38) а как же v8wrap?