Имя: Пароль:
1C
1С v8
Подключение к 77 через OLE
0 LazyCamel
 
16.05.13
14:04
Приветствую, уважаемые.
Знатоков Delphi здесь случайно не присутствует?
Короче говоря, задача такая. Нужно из дельфовой проги подключиться к бухне 77 и забрать оттуда данные.
Пишу как учили

 FConnection := CreateOLEObject('V77.Application');
 Path := '/DD:\sia\1c\Vodgeo77\';
 IsOpen := FConnection.Initialize(FConnection.RMTrade, Path, '');
 if not IsOpen then
   ShowMessage('error connection');
 try
   Contras := FConnection.CreateObject('Справочник.Контрагенты');
   Contras.SelectItems();
//на этом месте ошибка - несовпадение типов.
 finally
   FConnection := Unassigned;
 end;

Что не так?
Тот же код из 82 прекрасно работает.

   Путь = "/dd:\sia\Vodgeo77\";
   Соединение = Новый COMОбъект("V77.Application");
   Открыта = Соединение.Initialize(Соединение.RMTrade, Путь, "");
   Если не Открыта Тогда
       Сообщить("Ошибка подключения");
       Соединение = "";
       Отказ = Истина;
   КонецЕсли;
   Контр = Соединение.CreateObject("Справочник.Контрагенты");
   й = 0;
   Контр.ВыбратьЭлементы();
   Пока Контр.ПолучитьЭлемент()=1 Цикл
       й=й+1;
   КонецЦикла;
   Сообщить(й);
1 LazyCamel
 
17.05.13
08:38
Ну что, так-таки и не знает никто?