Код

objIE = New ComObject("InternetExplorer.Application");
objIE.Visible = Ложь; //Отключаем видимость
objIE.Silent = Ложь;
objIE.Navigate(Адрес);
Сообщить("Идет загрузка страницы. Ждите...");
Пока objIE.readyState<4 Цикл // Ждем пока загрузится страница
КонецЦикла;
objDoc = objIE.Document;
Для Каждого a Из objDoc.all.Tags("A") Цикл //Перебираем все ссылки  
    Сообщить(a.href);
КонецЦикла;
objIE.Quit(); //Закрываем приложение
objIE = Неопределено;
 

lustin писал(а) 08. Октября 2008 :: 05:01:

Alex_Bob писал(а) 07. Октября 2008 :: 11:33:

А что нужно работа 1с8 как сервера автоматизации или обращение из 1с8 к другим программам?

я всё таки обращу внимание на web-службы - пример взаимодействия чистой воды

Так, стоп!   Меня на данный момент интересуют примеры (простые) реализации OLE доступа из 8 к 77. Поиск по предложенной ссылке мало что дал. Мне нужно нечто типа фака, как сделать подключение, как то-се ... Кстати, а есть возможность заюзать 1С++ из OLE?

Код

 V77 = Новый COMОбъект("V77M.Application");

	Если  V77.Initialize(V77.RMTrade,"ИсточникСтр","") Тогда
	       Сообщить("Успех");
		   ЗаполнитьОснованиеРеализации(V77);

	Иначе  Предупреждение("Ошибка открытия информационной базы");
           Возврат;

	КонецЕсли;
 

Код

Процедура ЗаполнитьОснованиеРеализации(V77)
	 Накл= V77.EvalExpr("CreateObject(""Документ.РасходнаяНакладная"")");
	 ДокОсн= V77.EvalExpr("CreateObject(""Документ"")");

	 Накл.ВыбратьДокументы();
	 Пока Накл.ПолучитьДокумент()=1 Цикл
		 Номер=СокрЛП(Накл.НомерДок);
		  ДокСоотв=Документы.РеализацияТоваров.НайтиПоНомеру(СокрЛП(Номер), Накл.ДатаДок);  
		   Если Накл.Проведен()=0 Тогда
		     Продолжить;

		 КонецЕсли;
        Если ДокСоотв=Документы.РеализацияТоваров.ПустаяСсылка() Тогда  
	         Сообщить("! для "+Накл.Вид()+" "+Накл.НомерДок+" не найдено соответстствие");
             Продолжить;

		 КонецЕсли;
		Если Накл.ДокументОснование.Выбран()=0 Тогда
			Продолжить;
		КонецЕсли;
// и т.д.
 

Код

ADO= Новый COMОбъект( "ADODB.Connection" );
ADO.Open("
    |Provider=VFPOLEDB.1;
    |Deleted=Yes;
    |Null = Yes;
    |Exclusive = No;
    |SourceType = DBF;
    |Data Source=" + КаталогИБСтрокой + ";
    |Mode=ReadWrite;
    |Extended Properties="""";
    |User ID="""";
    |Password="""";
    |Mask Password=False;
    |Collating Sequence=MACHINE;
    |DSN="""""); 

Код

	V7 = Новый ComОбъект("V77s.Application");
    Открыта = V7.Initialize(V7.RMTrade,"/d\\d2enkor\Work_2008","NO_SPLASH_SHOW");
	Если Открыта Тогда
		Запрос = V7.CreateObject("OdbcRecordSet");
		ТЗ = "
		|select СпрТ.id [Элем $Справочник.Города]
		|from $Справочник.Города СпрТ (nolock)
		|where СпрТ.isMark = 0";
		ТЗн = Запрос.ВыполнитьИнструкцию(ТЗ);
		ТЗн.ВыбратьСтроки();
		Пока ТЗн.ПолучитьСтроку()= 1 Цикл
			Сообщить(ТЗн.Элем.Наименование+" "+Формат(Тзн.Элем.Код, "Ч(0)9.0"))
		КонецЦикла
	КонецЕсли;

 

artbear писал(а) 08. Октября 2008 :: 09:33:

kiruha писал(а) 08. Октября 2008 :: 08:22:

Самое быстрое через ADO, например к ДБФ

А смысл? можно и через ОЛЕ 1С++ юзать

Круто !

P.S.
А ТЗ то все равно не передашь нормально (в смысле только с построчным обходом)
Разве что через временную таблицу

Код

		Запрос = V7.CreateObject("OdbcRecordSet");
		VT = V7.CreateObject("Addin.ValTable");
ТЗ = "
		|select СпрТ.id [Элем $Справочник.Города]
		|from $Справочник.Города СпрТ (nolock)
		|where СпрТ.isMark = 0";
				 VT.Загрузить(Запрос.ВыполнитьИнструкцию(ТЗ));
			Тзн = VT.ПолучитьИтоги("Элем","");		Тзн.ВыбратьСтроки();
		Пока Тзн.ПолучитьСтроку()= 1 Цикл
			Сообщить(Тзн.Элем.Наименование+" "+Формат(Число(Тзн.Элем.Код), "ЧЦ=9;ЦДЦ=0;ЧН=0;"))
		КонецЦикла