1С OLE + Delphi передача параметров
От: PavJan Россия  
Дата: 11.07.04 07:00
Оценка:
Уважаемые участники форума у меня возникла такая проблема.
Необходимо из 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 не изменяется,
хотя должна.
Подскажите как организовать чтобы переданная переменная могла изменяться.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.