Проблема с получением параметров метода из 1C

← →
JustI (2008-10-20 13:58) [0]

Есть OLE сервер. В библиотеке типов для интерфейса объявлен один метод procedure Msg(S: OleVariant; I: OleVariant);

Вот код модуля реализующего интерфейс

unit Unit1; {$WARN SYMBOL_PLATFORM OFF} interface uses ComObj, ActiveX, Project1_TLB, StdVcl, Dialogs; type TTest = class(TAutoObject, ITest) protected procedure Msg(S: OleVariant; out Result: Integer); safecall; end; implementation uses ComServ, unit2; procedure TTest.Msg(S: OleVariant; out Result: Integer); begin ShowMessageFmt("%s", [S]); Result := 666; form2.Name := "zzzzz4343"; ShowMessage(form2.Name); //************** end; initialization TAutoObjectFactory.Create(ComServer, TTest, Class_Test, ciMultiInstance, tmApartment); end.

Вопрос в следующем: почему при вызове из 1С метода Msg значение form2.Name оказывается равным "Form2" а не "zzzzz4343", и еще не возвращается значение out-переменной Result.

← →
clickmaker © (2008-10-20 14:04) [1]

> не возвращается значение out-переменной Result

Result - зарезервированное слово для возвращаемого функцией значения.
Обзови по другому. AResult, н-р

и что такое вообще form2? где и когда она создается?

← →
Сергей М. © (2008-10-20 14:10) [2]

TTest = class(TAutoObject, ITest)
protected
function Msg(S: OleVariant): Integer; safecall;
end;

← →
JustI (2008-10-20 14:13) [3]

форма создается здесь же. Переопределяю метод Initialize.
procedure TTest.Initialize; begin inherited; form2 := Tform2.Create(nil); end;

← →
JustI (2008-10-20 14:24) [4]

> function Msg(S: OleVariant): Integer; safecall;

В этом случае 1С выдает ошибку плохая коллекция

← →
Сергей М. © (2008-10-20 14:26) [5]

покажи код 1С-вызова ..

← →
JustI (2008-10-20 14:35) [6]

Вот код
Процедура Get() Перем Рез; Компонент = СоздатьОбъект("Project1.Test"); Рез = Компонент.Msg("zzz"); Сообщить(Рез); КонецПроцедуры

Покажи текст тестового проекта целиком, включая текст Project1_tlb.pas

← →
JustI (2008-10-20 14:55) [8]

Спасибо Сергей М.. Все разобрался, как обычно сам накосячил. С возвратом значений теперь все ясно.

Проблема с получением параметров метода из 1C Найти похожие ветки