VPF::доступ к методам OLE (DELPHI) Из 1С - Форум программистов

NieL

Дата 20.10.2008, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

К 1С 7.7 подключаю OLE объект (написан на DELPHI). В нем есть метод Msg
Сам метод в DELPHI выглфдит так

Код


procedure TTest.Msg(S: OleVariant; out Result: OleVariant);
begin
  ShowMessageFmt('%s', [S]);
  Result := 666;
end;

Код


Процедура GetResult()
  Перем Рез;
  
Компонента = СоздатьОбъект("Project1.Test");

Компонента.Msg("Test Message", Рез);

Сообщить(Число(Рез));   // здесь по идее должно вернуться значение 666

КонецПроцедуры

Теперь вопрос: Почему возвращается значение 0?
1С 7.7 не понимает out-параметры в методах OLE Объектов?

Mifody

Дата 22.10.2008, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 5.8.2008

Репутация: нет
Всего: 2

1. А разве "Result" не зарезервированное слово, для возврата результата функцией ?
2. На мой взгляд лучше пользоваться именно функциями, примерно так:

Код


function TTest.Msg(S: OleVariant): OleVariant;
begin
  ShowMessageFmt('%s', [S]);
  Result := 666;
end;

и вызывать:

Код


Рез = Компонента.Msg("Test Message");

3. Попробуй результат передать строкой, у меня пару раз было такое, что при обращении к свойствам числовые значения не передавались smile

P.S. У самого компоненты работают только на функциях с возвратом целочисленных результатов, вроде проблем пока не возникало.
Насчет

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »