-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Передать и открыть HTML код в IE не создавая файл

Суббота, 18 Апреля 2015 г. 09:31 + в цитатник
Здравствуйте!
Есть к примеру такой код, для отображения множества точек на ЯндехКарте:
+ index.html
<!DOCTYPE html>
xmlns="http://www.w3.org/1999/xhtml">

    <title>Много точек</title>
    http-equiv="Content-Type" content="text/html; charset=utf-8" />
    span>src="http://api-maps.yandex.ru/2.0-stable/?load=package.standard&lang=ru-RU" type="text/javascript">
    span>type="text/javascript">
        ymaps.ready(init);
        var myMap, 
            myCollection;

        function init()
		{ 
            myMap = new ymaps.Map ("map", 
				{
					center: [55.76, 37.64],
					zoom: 12,
					behaviors: ['drag', 'scrollZoom', 'routeEditor']
				} ); 

			// точки
			var coords = [	[55.745, 37.59],
							[55.74, 37.60],
							[55.74, 37.61],
							[55.74, 37.62],
							[55.74, 37.63],
							[55.78, 37.59],
							[55.78, 37.69]	];
			var IEHeight = document.body.clientHeight
			var GeoCol = new ymaps.GeoObjectCollection();
			for (var i = 0; i < coords.length; i++) 
			{
				GeoCol.add(	new ymaps.Placemark(coords[i],
							{	
								hintContent: 'hint'
								,balloonContentHeader: 'balloonContentHeader'
								,balloonContentBody: 'balloonContentBody'
								,balloonContentFooter: 'balloonContentFooter'
							} )
							);
			}
			// При наведении на одну из меток подсвечиваем коллекцию целиком.
			GeoCol.events
				.add("mouseenter", function () { GeoCol.options.set("preset", "twirl#redIcon");} )
				.add("mouseleave", function () { GeoCol.options.unset("preset");} );

			myMap.geoObjects.add(GeoCol);
			myMap.setBounds(myCollection.getBounds());
        }
    
</head>


    
id
="map" style="width: 100%; height: 940px"></div>
</body> </html>

Если его сохранить в файлик с расширением .html и тыркнуть кнопкой - в браузере (у меня в IE) откроется карта.
Этот код формируется на лету (я его собираю на SQL и передаю в Аксесс)
Собственно встала проблема: я не знаю как передать страницу в IE целиком, чтоб он обработал заголовок, скрипты и остальную часть!
Сйчас это происходит таким образом:
Public Function udfYandexApiShowEmployeeRoute(lEmpID As Long)
    Dim IE As Object
    Dim RS As ADODB.Recordset

    Set RS = New ADODB.Recordset
    RS.ActiveConnection = CurrentProject.Connection
    RS.Source = "EXEC dbo.procGetHtml"
    RS.Open
    If Not RS.EOF Then
        'Создаём элемент эксплорера
        Set IE = CreateObject("InternetExplorer.Application")
        IE.navigate "about:blank"
        IE.Document.body.innerHTML = RS![body]
        IE.visible = True
    End If

    Set RS = Nothing
    Set IE = Nothing
End Function

В строке IE.Document.body.innerHTML = RS![body] я передаю код тэга , а IE.Document.head.innerHTML - не существует!
Пробовал всё запихнуть в - тоже почему-то никакого эффекта.

Хотя скрипты рвботают, предавал такое:
<title>Тестирование</title></head>
 текст текст текст</body></html>
исправно верещит.

И вот как быть? Помогите люди добрые...

http://www.sql.ru/forum/1152740/peredat-i-otkryt-html-kod-v-ie-ne-sozdavaya-fayl


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку