С COMObject столкнулся впервые. Что требуется
В 1с есть функция которая возвращает результат запроса в виде таблицы значений.
Например:
Функция ПолучитьТЗ()

(0) Нипанятно нисего...

написать можно любую функцию..

(0) так. теперь говори, что есть

Там можно практически все что угодно.
А чего тебе надо, нимпанятна...

(0) ставлю на слово "экспорт" и имя модуля

телепатов тут много. телепатирую: не используй свои корявые функции, используй запрос ком-объекта

(5) Вот так взял и все карты на стол выложил =(

Наверное, ему COMобъект вернула функция и он не может его, запример, Загрузить()

Функция ПолучитьТЗ() Экспорт
   Запрос = Новый Запрос;
   ...
   Результат = Запрос.Выполнить().Выгрузить();
   
  Возврат Результат;
КонецФункции;

Делаю из "соседней" базы 1С:
Ole1C = Новый COMObject("V82.COMConnector");
Ole1C2 = Ole1C.Connect("Srvr=1c:1741;Ref=База;Usr=Пользователь;Pwd=Пароль");    
Result = Ole1C2.МойМодуль.ПолучитьТЗ();

Работает. Возвращает ТЗ как COM

Делаю так (в Delphi):
var
   Ole1C : OleVariant;
   Ole1C2 : OleVariant;
   
begin
   Ole1C := CreateOleObject('V82.Application');  
   Ole1C2 := Ole1C.Connect('Srvr=1c:1741;Ref=База;Usr=Пользователь;Pwd=Пароль');    
   Result := Ole1C2.МойМодуль.ПолучитьТЗ();
end;

Не работает. выдает ошибку [Record, object or class type required]

Куда смотреть?(

а мы продолжаем серию игр "Что, почему и как". сегодняшняя команда знатоков борется против телезрителя MrSmola
итак, время вышло. кто будет отвечать?

итак, Reset объявляется победителем состязаний и получает в награду шапочку из фольги

(10) мне тут помощь нужна, а не поговорить

(9) ты думаешь в дельфях есть таблицы значений?

а так?

Result := Ole1C2.МойМодуль.ПолучитьТЗ;

Я не шарю в дельфях(разве на уровне турбо паскаля 8х г.в.), но разве переменная Result не должна была быть объявленной в секции var?
Хотя это так, "поговорить"

(15) это скорее всего тело функции, Result это предопределенная в контексте функции переменная - ее результат

(16) т.е. имя функции Result? дада что-то было такое

соревнования продолжаются. телезритель уже телепатически передаёт знатокам второй вопрос

(17) нет, имя другое

(17) типа ретурн?

(20) типа, только без выхода из функции

http://delphibasics.ru/Result.php

а отвечать на этот раз будет 1Сергей

хм ну ладно.
А может, раз это возвращаемое значение, то описана функция не с тем типом

(21) Спасибо

(23) возможно надо узнать, что делается с этим результатом дальше

Не поймёт Дельфя ТЗ. Возможно передавать только простые типы

(26) да что ты говоришь, она поймет любой COM-объект
просто надо работать с ним правильно

ну что, 1:1?

я вот тоже, как (27) задумался, что возвращается-то не ТЗ, а КОМ

(29) ну.. подлежит возвращению

(14)  а если надо параметры передать?

(31) тогда со скобками, нет параметров - нет скобок

меня смущает это "результат запроса в виде таблицы значений". не лучше ль взять и самостоятельно запросить?

хотя насчет (14) могу врать, но попробовать стоит

вот что делается с Result^

procedure TShpScript.Make;
var
       ResultTable : OleVariant;
       JvInterpreterProgram1: TJvInterpreterProgram;
       Row, Col : Integer;
       FieldsStr : String;
       InsField, InsVal : String;      
begin
       JvInterpreterProgram1 := TJvInterpreterProgram.Create(nil);
       try
               JvInterpreterProgram1.Pas.Text := InitParamInSQL((Collection as TShpScripts).Report.Params.ListOfParams, Text);
               JvInterpreterProgram1.Run;
               ResultTable := JvInterpreterProgram1.VResult;
               FieldsStr := '';
               for Col := 0 to ResultTable.Columns.Count() - 1 do
                       FieldsStr := FieldsStr + '"'+ResultTable.Columns.Get(Col).Name+'" VARCHAR2(2000), ';
               SetLength(FieldsStr, Length(FieldsStr) - 2);
               DropTable(OraDBName, TableName);
               RunSQL(OraDBName,'CREATE TABLE %s (%s) %s',[TableName, FieldsStr, TableSpace4CreateTMPTables]);
               // Заполняем DataSet
               for Row := 0 to ResultTable.Count() - 1 do
               begin
                       InsField := '';
                       InsVal := '';
                       for Col := 0 to ResultTable.Columns.Count() - 1 do
                       begin
                               if not VarIsType(ResultTable.Get(Row).Get(Col),varDispatch)
                               then begin
                                       InsField := InsField + '"'+ResultTable.Columns.Get(Col).Name+'", ';
                                       InsVal := InsVal + ''''+ VarToStr(ResultTable.Get(Row).Get(Col))+''', ';
                               end;
                       end;
                       SetLength(InsField, Length(InsField) - 2);
                       SetLength(InsVal, Length(InsVal) - 2);
                       RunSQL(OraDBName,'insert into %s (%s) values (%s)',[TableName,InsField, InsVal]);
               end;
 finally
       JvInterpreterProgram1.Free;
 end;
end;

(35) И какой тип у ResultTable?

здесь выполняется часть скрипта описанного ранее:              
JvInterpreterProgram1.Pas.Text := InitParamInSQL((Collection as TShpScripts).Report.Params.ListOfParams, Text);
               JvInterpreterProgram1.Run;

в том скрипте есть переменная Result которой присваевается результат скрипта (т.е. ком объект)

строчку-
ResultTable := JvInterpreterProgram1.VResult;

можно рассматривать как: ResultTable := Result;

(36) ResultTable := ---это COM

так ошибка то в какой строке?

(39) JvInterpreterProgram1.Run;

(40) может твой интерпретатор не умеет работать с COM-объектами?
Если этот код всунуть непосредственно в код Delphi?

Скажу что обработка КОМа работет - проверено, не работает вот эта часть

var
   Ole1C : OleVariant;
   Ole1C2 : OleVariant;
   
begin
   Ole1C := CreateOleObject('V82.Application');  
   Ole1C2 := Ole1C.Connect('Srvr=1c:1741;Ref=База;Usr=Пользователь;Pwd=Пароль');    
   Result := Ole1C2.МойМодуль.ПолучитьТЗ();
end;

СОМ не хочет работать именно с моей функцией Result := Ole1C2.МойМодуль.ПолучитьТЗ();

(43) так ты (14) пробовал?

(44) а как мне тогда параметры передать в мою функцию?

(45) у тебя же их нет или ты как всегда не договариваешь?

(46) решил не перегружать подробностями. Да, мне надо ещё передать параметры.

(47) какие параметры? интересно: не договарить как раз строку в которой ошибка

(47) параметры, поди, ещё агрегатные?

(43) А эта конструкция вообще дельфями компилируется? Насколько я понимаю, ты хочешь использовать раннее связывание, но для этого нужно импортнуть в проект библиотеку типов. Мне кажется в данном случае нужно использовать позднее связывание что-то типа:

   HRESULT hRes;
   CLSID ClsID;
   hRes = CLSIDFromProgID(cProgID, &ClsID);
   if (!CheckError(hRes, TEXT("CLSIDFromProgID")))
       return false;

   hRes = CoCreateInstance(ClsID, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch,

Это на VC++