Доброго дня!
Delphi 7.0, 1С 8.2.13.205
Начал изучать вк, хочу решить простенькую задачу: нужно передать в вк номер и дату документа авансовый отчет, чтобы по этим параметрам получить ссылку на документ. Что делаю:
В Delphi:

 function T_LIB1_object.meth2(mode: TMode): String;
 var NUM: String;
     OLEDOC1: Variant;
     DATEDOC: TDateTime;
 begin
   case mode of
     m_rus_name: Result:='ПоискПоНомеру';
     m_eng_name: Result:='GetNUM';
     m_n_params: g_NParams:=2;
     m_execute: begin

       NUM:=GetParamAsString(0);

       ShowMessage(NUM);

       DATEDOC:=GetParamAsTDateTime(1);

       ShowMessage(DateTimeToStr(DATEDOC));

       OLEDOC1:=s1C8_ole.Документы.АвансовыйОтчет;
       OLEDOC1:=OLEDOC1.НайтиПоНомеру(NUM,DATEDOC);

       g_Value:=OLEDOC1;
     end;
   end;//case
 end;

В 1С:

Результат = LIB1.GetNUM("ТД00-000001",ТекущаяДата());

Тип значения "Результата" COMОбъект. Подскажите, пжл, как получить не COMОбъект, а именно ссылку?

s1C8_ole

как получаешь?

(1)
s1C8_ole:=UnAssigned;
s1C8_ole:=CreateOleObject('V82.COMConnector');
s1C8_ole:=s1C8_ole.Connect(Trim(ConnectString));

Где-то видел ссылку на форуме как раз по такой теме, не могу найти что-то, может кто подскажет, где почитать?

Подниму.

Мистец.

А зачем оно тогда, это ВК?

s1C8_ole:=OleVariant(PConnect).AppDispatch;

Это мы получим "контекст" текущей базы, к которой подключена ВК.

Этот контекст поймет твою ссылку.

PConnect:IDispatch;
- свойство экземпляра класса T_vk_object.

romix за нас всех уже подумал.

(6) Спасибо. Если использую s1C8_ole:=OleVariant(PConnect).AppDispatch;
В 1с возникает ошибка:
LIB1 : Access violation at address 0C8B648F in module 'LIB1.dll'. Read of address 00000000.

Подскажи, пжл, как побороть?
И если можно, подскажи где можно посмотреть пример использования OleVariant(PConnect).AppDispatch;

6+
http://www.google.ru/search?client=opera&rls=ru&q=romix&sourceid=opera&ie=utf-8&oe=utf-8
Первая сверху

(8) Спасибо! смотрел статью ромикса в КЗ, но в том примере нет работы со ссылочными типами. На его сайте скачал шаблон для работы специально со ссылками. Пытаюсь перевести его (шаблон) на работу с 8.2. Подскажите, пжл, почему возникает ошибка
"Внешняя компонента : Method 'ValueToStringInternal' not supported by automation object."
при выполнении вот такого кода в 8.2

   Ссылка = ПолучитьСсылкуНаСервере();
   
   Попытка
       СВнутр = vk_rekv.ЗначениеВСтрокуВнутр(Ссылка);
       Сообщить(СВнутр);
   Исключение
       Сообщить(ОписаниеОшибки());    
   КонецПопытки;

(0) Набор невизуальных компонент для работы с 1С 7.7 через OLE (Pascal, Delphi 5)
http://www.1partner.nnov.ru/develop/opis180.shtml

Хоть и для пятого, но думаю будет полезно.

(10) Спасибо, только все для 77.
На 77 библиотека Ромикса работает, все нормально, проблема
с 8.2 в (9)

Подниму. Интересует ответ на (9)

(12) ссылка нужна в 16тиричном представлении?

(13) без разницы. Нужно заставить ВК научиться принимать ссылку из 1с и обрабатывать ее. Пусть это будет ЗначениеВСтрокуВнутр, как в примере ромикса.

(1)
s1C8_ole:=UnAssigned;
s1C8_ole:=CreateOleObject('V82.COMConnector');
s1C8:=s1C8_ole.Connect(Trim(ConnectString));

id: = s1C8.string(s1C8.Документы.АвансовыйОтчет.НайтиПоНомеру(NUM,DATEDOC).uuid())

(15) Спасибо, но мне нужно способом, который посоветовал   H A D G E H O G s в (6)

s1C8.ValueToStringInternal(s1C8.Документы.АвансовыйОтчет.НайтиПоНомеру(NUM,DATEDOC))

type T_vk_object = class(TObject)
 public
   g_Value: OleVariant;
   g_NParams: Integer;(???????)
   g_Params: PSafeArray;
   g_Event, g_Event_Data: String;
   pConnect:IDispatch;
..................


модуль
addinObj.pas
процедура
Init
 vk_object:=T_vk_object.Create();
 vk_object.pConnect:=pConnection;

процедура
Done

  vk_object.pConnect:=nil;

 vk_object.Destroy();

function T_vk_object.meth1(mode: TMode): String;
 var NUM: String;
     OLEDOC1: OleVariant;
     Res:OleVariant;
     DATEDOC: TDateTime;
     s1C8_ole:OleVariant;
 begin
   case mode of
     m_rus_name: Result:='?????????????';
     m_eng_name: Result:='GetNUM';
     m_n_params: g_NParams:=2;
     m_execute: begin
       NUM:=GetParamAsString(0);
       DATEDOC:=GetParamAsTDateTime(1);
       s1C8_ole:=OleVariant(PConnect).AppDispatch;
       OLEDOC1:=s1C8_ole.Документы.АвансовыйОтчет;
       Res:=OLEDOC1.НайтиПоНомеру(NUM,DATEDOC);
       OLEDOC1:=unassigned;
       s1C8_ole:=unassigned;
       g_Value:=Res;
     end;
   end;//case

 end;

В процедуре AddInObject.CallAsFunc модуля AddinObj.pas заменить
pvarRetValue := vk_object.g_Value;
         
на
pvarRetValue := vk_object.g_Value;
vk_object.g_Value:=unassigned;

И добавить variants в uses

Недоработал Ромикс.

(19), (20) Спасибо тебе, дома попробую.

Тут у меня пример работы из Дельфи со ссылочными типами:
Книга знаний: Внешняя компонента для безопасной работы с базами данных по интерфейсу ADO

(19),(20)
Попробовал, вроде все сделал по твоим рекомендациям.

При выполнении в 1С
&НаКлиенте
Процедура Команда(Команда)
   
   Ссылка = TestVK.GetNUM("ТД00-000001",ТекущаяДата());
       
КонецПроцедуры

Возникает ошибка:

TestVK : Method 'Документы' not supported by automation object.

Как побороть?

(23) Скинь свой проджект на файлообменник.

(24). ОК. Через несколько часов, когда буду дома.

(24)
Delphi 7.0 (4.453)
1C 8.2.13.205
УНФ(демо) 1.2.3.2

http://rghost.ru/5098007

Может все дело в

&НаКлиенте
Ссылка = TestVK.GetNUM("ТД00-000001",ТекущаяДата());

По-хорошему бы ссылку получить на сервере надо..
В ВК тоже получается в контексте клиента все выполняется? Вот интересно в ВК для 8.2 можно указывать среду исполнения?

(27) RTFM!

COM ВК не работает на Тонком и Веб клиентах!

Только NativeAPI.

Так что либо сервер, либо nativeAPI

Хотя в FM этого не написано. Странно.

p.s. Запусти на сервере.

(29)>> COM ВК не работает на Тонком и Веб клиентах!
Точно, не работает. Спасибо!
Запустил толстого клиента, все работает нормально.

(30)>> Так что либо сервер, либо nativeAPI
Насчет nativeAPI как я понимаю та нельзя работать со ссылочными типами, а только с примитивными.., так что не вариант.
Остается COM &НаСервере. Не подскажешь, где можно посмотреть такой способ реализации ВК в 8.2? что-то все что нашел про ПодключитьВнешнююКомпоненту в 8.2 все про nativeAPI.

Небольшая просьба к модераторам: исправьте, пожалуйста, в названии ветки 8.1 на 8.2

(33) Чуть позже прмиер выложу

(35) ОК. Буду очень признателен.

Закладка.