Уважаемые участники форума у меня возникла такая проблема.
Необходимо из Delphi взаимодействовать с 1С Предприятие 7.7
посредством OLE технологии.
В глобальном модуле 1С описана функция такого вида:
//---------------------------------------------------
Функция СделатьЧтоНибудь(ПеременнаяПоСсылке) Экспорт
темп = ПеременнаяПоСсылке + " ответ сервера";
ПеременнаяПоСсылке = "Изменена";
Возврат темп;
Конецфункции
//---------------------------------------------------
В Delphi имеется следующий код
//------------------------------------------------
var
_1CServer: OleVariant;
InitResult: Variant;
str, str2: ShortString;
begin
_1CServer := CreateOleObject('V77S.Application');
InitResult := _1CServer.Initialize(_1CServer.RMTrade, ' /d' + 'C:\TEMP\DemoDB\' + ' /n' + 'User' + ' /p' + 'User', '');
if InitResult = 0 then
begin
raise (Exception.Create('Не удалось запустить 1с'));
end;
str := 'Привет';
str2 := _1CServer.СделатьЧтоНибудь(str);
end;
Так, вот функция возвращает правильный результат, а перенная str не изменяется,
хотя должна.
Подскажите как организовать чтобы переданная переменная могла изменяться.