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;
КонецЦикла;
Сообщить(й);
|
|