Добрый день. Работаю с плагином OLE. Получаю СОМ объект:
Попытка    
        Клиент = Новый COMОбъект("LI_OLE_Library.LI_Client");        
        Исключение
        Сообщить("Необходимо запустить LocarusInformer" + "!");
        //Возврат(0);
КонецПопытки;

Далее использую встроенные функции:

х = Клиент.RaceList.CurrentRace;
Сообщить(Клиент.RaceList.RaceData(х));

После выполнения этого кода вылазит ошибка:
{ВнешняяОбработка.ВнешняяОбработка1.МодульОбъекта(68)}: Ошибка при вызове метода контекста (RaceData)
    Сообщить(Клиент.RaceList.RaceData(х));
по причине:
Типы не совпадают (-1)

Проблема в следующем: в описании плагина находится описание встроенных методов: long CurrentRace, TRaceListData RaceData(long Index). То есть Клиент.RaceList.CurrentRace возвратит long, а на вход RaceData требуется тоже long, и я не понимаю в чем причина.

(0) TRaceListData RaceData(long Index , это как 1С может сообщить, она такого типа в глаза не видела

можно попробовать обернуть все в VBS а там с типизацией получше

Клиент.RaceList.RaceData(Клиент.RaceList.CurrentRace) не спасёт?

(3)Нет, пробовал так...

(3)А в чём разница с (0)?

(5) в отсутствии переменной

(6)А в 1цэ при помещении результата вычисления в переменную разве тип этого результата может поменяться?

(7) едва ли

(8) вернет скорее ComObject, так что, лучше Число(Клиент.RaceList.RaceData(х))

(9)Откуда ComObject возьмётся?
Все числа 1цэ хранит с плавающей точкой, так что никакие изыски не помогут, в (2) верное направление задано.

(10) не верю, там же TRaceListData, а не просто long. Так, что и отдаст TRaceListData, а 1С примет как ComObject, т.к. не поймет, что это за тип

(11) CurrentRace у него лонг

(11)Чтобы получить TRaceListData нужно выполнить RaceData, а у ТС как раз это и не получается:
... Ошибка при вызове метода контекста (RaceData)

(2)Так мудрено звучит, что аж страшно...

(0) Может 1С не может отобразить структуру TRaceListData?
Обычно внутри всегда есть приведение типа через VarCast

(15) Тут пока дело не в отображении, а именно в том, что тип передаваемого в метод параметра не подходит. Если я правильно понимаю.

Что из себя представляет TRaceListData ?

struct TRaceListData
  {
    long SectionBeginIndex; //Начало Рейса
    long SectionEndIndex; //Окончание рейса
    double SectionDist; //Пройденное расстояние
    double SectionFuel; //Расход топлива
    double FuelNorm; //Норма расхода на 100км
    double AverageSpeed; //Средняя скорость
    double MaxSpeed; //Максимальная скорость
    unsigned char UnPlagFlag; //В течение рейса было переподключение
    unsigned char NoPowerFlag; //В течение рейса было пропадение питания
    unsigned char TimeHoleFlag; //В течение рейса было пропадение навигации
    BSTR Drivers; //Водители на рейсе (только помеченные галочками)
  };

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

(18) ну и Сообщить(Клиент.RaceList.RaceData(х));
что тут можно сообщить ?

(19) да пофих, пусть хоть "ком-объект"

(14) програмная задержка (sleep)
v8: КомандаСистемы()
Создаем ВК "без программирования",получаем задержку в N-сек без 100% загр.
как в метод run vbscript-a передать аргументы
...

(19) TRaceListData это не "ком-объект" так как "ком-объект" это IDispatch.

(21) Спасибо, посмотрю, попробую...

(23) для начала тупо проверь эти же строки в vbs
если робит, то копай дальше

Set Клиент = CreateObject("LI_OLE_Library.LI_Client")
х = Клиент.RaceList.CurrentRace
Msgbox Клиент.RaceList.RaceData(х)


(21) как (19) да пофих, пусть хоть "ком-объект"
если 1С не понимает что-то из ole, то com-object. А что оно должно показать иначе ?

Я так думаю, что 1с передает в ComObject тип Variant, а ComObject хочет получить long. Так что делай обертку для своего ComObject.

(25) Что ты понимашь под OLE. Все параметры в IDispatch передаются через OleVariant. ComObject  для 1С это
TvarData(varPropVal).VType:=VT_DISPATCH то это ComObject  
если VT_RECORD  то не уверен, что 1С может работать с таким параметром


struct __tagBRECORD    //  VT_RECORD (структура)     ByRef Type
        {                      
          PVOID pvRecord;      //  Указатель на структуру
          IRecordInfo *pRecInfo; // Описание структуры.
        }   __VARIANT_NAME_4;

А в х = Клиент.RaceList.CurrentRace;
x чему равен в отладчике?

(27) так и я тоже про то. Если не понимает VT_RECORD, то как 1С у себя это проявит. Имхо, только как ComObject и пофиг. А дальше, уж, если получатель знает, что это за штука, то пусть обращается к нужному через точку, если это рекорд

vbs = Новый COMОбъект("MSScriptControl.ScriptControl");
    vbs.language="vbscript";
    Code = "
    |Function GetDataLong
    |Set OLE = CreateObject(""LI_OLE_Library.LI_Client"")
    |GetDataLong = OLE.RaceList.RaceData(OLE.RaceList.CurrentRace)
    |End Function
    |";
    vbs.addcode(Code);
    Сообщить(vbs.Eval("GetDataLong"));

Та же самая ошибка:
{ВнешняяОбработка.ВнешняяОбработка1.МодульОбъекта(81)}: Ошибка при вызове метода контекста (Eval)
    Сообщить(vbs.Eval("GetDataLong"));
по причине:
Типы не совпадают (-1)

А теперь верни
GetDataLong = OLE.RaceList.RaceData(OLE.RaceList.CurrentRace).MaxSpeed

Все, я вкурил. Там не КОМобъект возвращается, потому и тип не совпадает... В общем как в (31) описано

(31)
{ВнешняяОбработка.ВнешняяОбработка1.МодульОбъекта(80)}: Ошибка при вызове метода контекста (Eval)
    Сообщить(vbs.Eval("GetDataLong"));
по причине:
Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Требуется объект: 'OLE.RaceList.RaceData(...)'

Какая то беда... вот опять я что-то упустил совершенно очевидное

(33) Нету объекта значимо...

(0)http://forum.infostart.ru/forum26/topic43129/
здесь смотрел?

(35)Скудно там написано и ничего нового.

А в (30) ковычки вроде лишние

(37) так надо
(30) а если

vbs = Новый COMОбъект("MSScriptControl.ScriptControl");
    vbs.language="vbscript";
    Code = "
    |Function GetDataLong
    |Set OLE = CreateObject(""LI_OLE_Library.LI_Client"")
    |GetDataLong1 = OLE.RaceList.RaceData(OLE.RaceList.CurrentRace)
    |GetDataLong = 1
    |End Function
    |";
    vbs.addcode(Code);
    Сообщить(vbs.Eval("GetDataLong"));

т.е. надо понять где ошибка
в вбс или в момент получения в 1с результата

(0)Там же пример есть test.ert
в примере всё работает.

и без vbs

(18)
vbscript структуры тоже не умеет готовить.

в LI_OLE_Library.dll есть описание типов. так что типы не причем. всё должно работать.

(38) выводит 1
(39)Ты прям волшебник, я пытался запустить test.ert в 1с7.7, но тоже вылазило куча ошибок. Как сумел?

(43) нажал кнопку "Сформировать"

(43)(44)
Может, у вас разные версии LI_OLE_Library.dll ?

http://forum.infostart.ru/forum26/topic43129/
http://locarus.com.ua/index.php/blogi/53-ole-locarus-informer-i-bukhgalteriya-1s

(43) значит проблема в получении в 1с
конвертируй например в строку в vbs и в 1с уже строку обрабатывай

(0) я думаю не нужно обращаться напямую к RaceData, а использовать функции RaceList типа RaceSectionBeginIndex, RaceSectionFuel

так попробуй

кол=Клиент.RaceList.Count;
Для НомерРейса=0 по кол-1 цикл
Сообщить(Клиент.RaceList.RaceSectionFuel(НомерРейса));
конеццикла

(0) чо молчишь? работает или нет?

(50) Выдал единичку.

Сообщить(Клиент.RaceList.RaceSectionFuel(0));

ну всё работает. вопрос закрыт.

(52) Сообщить(Клиент.RaceList.RaceFuelNorm(0));
А вот это уже не работает....
Да и проблема, которая была в первом сообщении не решилась.

проблемы нету. нужно просто вызывать нужные методы и всё.

(54) Проблема в том, что типы этих методов - это экземпляры сишных классов, а не Ком-интерфейсов. Потому возвращает тебе тот набор данных, которая 1С неосиливает. Читай внимательней мануал

(56) 1с читает типы из tlb. всё прекрасно работает. получать структуру RaceData автору не нужно. Для доступа к данным структуры есть специальные методы. Ими и надо пользоваться.

(55)Ну раз такой умный, то поясни, пожалуйста, как понять какие методы правильные?
(56)Какой мануал?

(58)+ У меня просто на руках есть описание методов для работы с этим плагином в виде: TRaceListData RaceData(long Index) и все. Ну плюсом описание структур, которые я пока не трогал.

(58) в файле "New HTML Help.chm" всё написано

вот структура

struct TRaceListData
  {
    long SectionBeginIndex; //Начало Рейса
    long SectionEndIndex; //Окончание рейса
    double SectionDist; //Пройденное расстояние
    double SectionFuel; //Расход топлива
    double FuelNorm; //Норма расхода на 100км
    double AverageSpeed; //Средняя скорость
    double MaxSpeed; //Максимальная скорость
    unsigned char UnPlagFlag; //В течение рейса было переподключение
    unsigned char NoPowerFlag; //В течение рейса было пропадение питания
    unsigned char TimeHoleFlag; //В течение рейса было пропадение навигации
    BSTR Drivers; //Водители на рейсе (только помеченные галочками)
  };


методы называются так же как поля структуры
RaceSectionBeginIndex
RaceSectionEndIndex
и т.д.

в метод передаешь номер структуры

(0)и еще. если есть рядом с тобой кто нибудь, попроси его треснуть тебе по башке линейкой. должно помочь. мне помогает.

(60)+ в (29) уже написано

+(61) я скачал этот долбаный Locarus Informer.
скачал демо данные от туда же.
зарегил LI_OLE_Library.dll.
запустил 1с. открыл test.ert
открыл Locarus Informer
тыкнул мышкой на машину
в test.ert нажал кнопку "Сформировать"
отчет выдал ахиренную таблицу
всё работает.

теперь делаю всё в обратной последовательности.
вот какой я очень добрый сегодня.

(64)Вот нифига подобного у меня не происходит, запускал эту обработку на 1С 7.7, он мне выдавал ошибку при запущенном локарусе. Сейчас попытаюсь повторить это на другом ПК, вдруг какой косяк с неправильной работой dll...

(65) какую ошибку выдает?

(66) ДатаВремя=Клиент.DataFunctions.BBDataDateTime(СчетчикЦикла);
{C:\DOCUMENTS AND SETTINGS\ADMIN\РАБОЧИЙ СТОЛ\РАБОТА\РИФ\ЛОКАРУС\TEST.ERT(19)}: Поле агрегатного объекта не обнаружено (BBDataDateTime)

(67) ну не знаю. у меня без ошибок отработало. ковырять больше не буду. всё снёс.

http://smages.com/images/dnddnd.png

(69)Окей, значит ошибка точно у меня и практически наверняка с работой dll...

(70) скачай Плагин OLE заново
http://www.locarus.ru/support/plugins