Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка в IE страницы из переменной / 1 сообщений из 1, страница 1 из 1
21.11.2008, 00:30
    #35666914
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка в IE страницы из переменной
Понадобилось мне из VB Excel открыть IE и в него загрузить страницу с Google Map. Мне надо некоторое содержимое листа Excel'я отображать на google map и иметь обратную связь, когда пользователь на гугле карте начинет что-нибудь двигать.
Начал с простого, загрузка html-страницы с первым простейшим примером от Гугла. И тут же проблема. IE запускается, html-страница в него на ходу загружается, а вот сам скрипт от гугла на загруженной html-странице работать не хочет - говорит не знаю что у Вас тут за объект такой - GMap2.
Однако если сохранить этот html код в виде html-файл на диске и открыть его - то все ОК.

Вот код демонстрирующий эти два варианта:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
Public Sub LoadGMap()
  Dim ie As Object
  Dim fs As Object, f1 As Object
  Dim sh As Object
  Dim s As String
          
  s = "<!DOCTYPE html " & Chr( 34 ) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr( 34 ) & vbCrLf & " " & Chr( 34 ) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr( 34 ) & ">" & _
        "<html xmlns=" & Chr( 34 ) & "http://www.w3.org/1999/xhtml" & Chr( 34 ) & " xmlns:v=" & Chr( 34 ) & "urn:schemas-microsoft-com:vml" & Chr( 34 ) & ">" & _
        "<head>" & _
            "<meta http-equiv=" & Chr( 34 ) & "content-type" & Chr( 34 ) & " content=" & Chr( 34 ) & "text/html; charset=utf-8" & Chr( 34 ) & "/>" & _
            "<title>Google Maps JavaScript API Example</title>" & _
            "<script src=" & Chr( 34 ) & "http://maps.google.com/maps?file=api&v=2&key=ABQIAAAANXVI9tpLMeFw9fhBVNCCnhT2yXp_ZAY8_ufC3CFXhHIE1NvwkxQREzUkAEXLdH3qLiOgDtg1KVxpog" & Chr( 34 ) & _
                "   type=" & Chr( 34 ) & "text/javascript" & Chr( 34 ) & "></script>" & _
            "<script type=" & Chr( 34 ) & "text/javascript" & Chr( 34 ) & ">" & _
            "google.load(" & Chr( 34 ) & "maps" & Chr( 34 ) & ", " & Chr( 34 ) & "2.x" & Chr( 34 ) & "); " & _
            "function initialize() {" & _
            "if (GBrowserIsCompatible()) {" & _
                "var map = new GMap2(document.getElementById(" & Chr( 34 ) & "map_canvas" & Chr( 34 ) & "));" & _
                "map.setCenter(new GLatLng(37.4419, -122.1419), 13);" & _
            "}" & _
            "}" & _
          "</script>" & _
        "</head>" & _
        "<body onload=" & Chr( 34 ) & "initialize()" & Chr( 34 ) & " onunload=" & Chr( 34 ) & "GUnload()" & Chr( 34 ) & ">" & _
            "<div id=" & Chr( 34 ) & "map_canvas" & Chr( 34 ) & " style=" & Chr( 34 ) & "width: 500px; height: 300px" & Chr( 34 ) & "></div>" & _
        "</body>" & _
    "</html>"

  Set ie = CreateObject("InternetExplorer.Application")
  
  ie.Navigate "about:blank"
  ' Wait for object to be created
  While ie.Document Is Nothing
        DoEvents
  Wend
   
  ' 1 Variant - don't work
  '------------------------
  ' Load page - Google Maps JavaScript API Example
  ie.Document.Open
  ie.Document.write s
  ie.Document.Close

  ie.Visible = True
  
  
  ' 2 Variant - work
  '----------------------
  ' save variable s in file
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f1 = fs.CreateTextFile("c:\testfile.html", True)
  f1.WriteLine (s)
  f1.Close
  ' run it
  Set sh = CreateObject("Shell.Application")
  sh.Open "c:\testfile.html"
  
End Sub

Получается есть какие-то различие или нюансы в использовании функции ie.Document.write s. Но вот какие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка в IE страницы из переменной / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 444ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161596]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 152ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 2ms
others: 212ms
total:  444ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]