Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / google maps в форме / 5 сообщений из 5, страница 1 из 1
26.08.2013, 13:54
    #38377406
Davit Matevosyan001
Davit Matevosyan001
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
google maps в форме
как показать google maps в форме
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2013, 13:47
    #38378598
Sea_Cat
Sea_Cat
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
google maps в форме
Davit Matevosyan001,

Добавьте на форму OLE-контрол MicroSoft Web Browser - и открывайте в нем хоть Google Maps, хоть Яндекс карты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
08.06.2017, 14:09
    #39468636
Valerii
Valerii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
google maps в форме
Sea_CatDavit Matevosyan001,

Добавьте на форму OLE-контрол MicroSoft Web Browser - и открывайте в нем хоть Google Maps, хоть Яндекс карты

а если нужен поиск по улицам или координатам?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2017, 19:41
    #39469035
Leonid Kudryavtsev
Leonid Kudryavtsev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
google maps в форме
А какая разница?
MS WebBrowser кучу методов экспортирует. Взаимодействие с JS-кодом вполне можно сделать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2017, 20:12
    #39470087
bif17
bif17
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
google maps в форме
Мне кажется, перегружать форму такими объектами не стоит.
Лучше на ней вводить координаты (и/или адрес) и далее открывать в Браузере созданный файл 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.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
LOCAL cDTTM
cDTTM = STRTRAN(TTOC(DATETIME()),":","_")
cDTTM = STRTRAN(cDTTM,".","_")
cDTTM = "Karta_"+STRTRAN(cDTTM," ","_")
cDTTM = cDTTM+".html"

PUBLIC COOR_CENTR

IF VAL(lEFT(THISFORM.KO_ALL_DES3.VALUE,2)) = 0
    THISFORM.KO_ALL_DES3.VALUE = ""
    THISFORM.COORD_PEREVOD("VX_GPS")
ENDIF
IF VAL(lEFT(THISFORM.KO_ALL_DES3.VALUE,2)) != 0
    COOR_CENTR = ALLTRIM(THISFORM.KO_ALL_DES3.VALUE)
    COOR_CENTR =  "["+COOR_CENTR+"]"
ELSE
    del=MESSAGEBOX("НЕ ВВЕДЕНЫ КООРДИНАТЫ ДЛЯ ПОИСКА !",16,"ВHИМАHИЕ !")
    RETURN
ENDIF
*!*	    COOR_CENTR = ALLTRIM(THISFORM.KO_ALL_DES3.VALUE)
*!*	    COOR_CENTR =  "["+COOR_CENTR+"]"
****************************************************

IF TYPE("mОРГАНИЗАЦИЯ") != "C"
    PUBLIC mОРГАНИЗАЦИЯ, mАБРЕВИАТУР
    mОРГАНИЗАЦИЯ = "MEBS"
    mАБРЕВИАТУР = "MEBS"
    cFile = "C:\Bilsw7\DINCER\GEN_FRX9\TEMP\"+cDTTM
    gnFile = FCREATE(cFile)  && If not, create it
ELSE
    cFile = PUTTEMP+cDTTM
    IF FILE(cFile)  && Does file exist?
        ERASE cFile
        gnFile = FCREATE(cFile)  && If not, create it
    ELSE
        gnFile = FCREATE(cFile)  && If not, create it
    ENDIF
ENDIF

********************************************
TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 7

<!DOCTYPE html>
<html xmlns=" http://www.w3.org/1999/xhtml"> 
  <head>
    <title>КАРТА - <<mАБРЕВИАТУР>></title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <script src=" https://api-maps.yandex.ru/2.1/?lang=ru_RU"  type="text/javascript"></script>
    <script src="reverse_geocode.js" type="text/javascript"></script>
    <script type="text/javascript">

ymaps.ready(init);

function init() {
    var myMap = new ymaps.Map('map', {
            center: <<COOR_CENTR>>,
            zoom: 9
        }, {
            searchControlProvider: 'yandex#search'
        });

    ymaps.geocode(myMap.getCenter(), {
        kind: 'district',
        results: 1
    }).then(function (res) {
            res.geoObjects.options.set('preset', 'islands#darkGreenCircleDotIcon');
            myMap.geoObjects.add(res.geoObjects);
            myMap.setBounds(res.geoObjects.getBounds());
        	myMap.setCenter(<<COOR_CENTR>>, 15);
        });


}

</script>

    <style type="text/css">
        html, body, #map {
            width: 100%;
            height: 100%;
            margin: 0;
            padding: 0;
        }
    </style>

  </head>

  <body>
    <div id="map"></div>
  </body>

</html

ENDTEXT
********************************************

***********************************
=FWRITE(gnFile, ALLT(STRCONV(lcSQL,9)))
=FCLOSE(gnFile)
***********************************

***************************************************************************
LOCAL cSEARCH
cSEARCH = ""

IF FILE(cFile)
    cSEARCH = cFile
****************************************************ПРОВЕРКА ПОДКЛЮЧЕНИЯ
    cHost='http://mail.ru' CHR(0)
    PUBLIC cSoob_Error_r
    cSoob_Error_r = ''
    IF TYPE("goAPP.APP9") == "O"
        goAPP.APP9.INTERNET_PROVERKA(cHost)
***********************************
    ENDIF
    IF !EMPTY(cSoob_Error_r)
        =MESSAGEBOX(ALLTRIM(cSoob_Error_r),64,"Внимание !", 3400)
        RELEASE cSoob_Error_r
        RETURN
    ELSE
        RELEASE cSoob_Error_r
    ENDIF
****************************************************ПРОВЕРКА ПОДКЛЮЧЕНИЯ
    IF TYPE("goAPP.APP9") == "O"
        goAPP.APP9.DOFILE(cFile)
    ELSE
        RELEASE mОРГАНИЗАЦИЯ
    ENDIF
    RELEASE COOR_CENTR
***************************************************************************
ELSE
    del=MESSAGEBOX("НЕ СОЗДАН HTML-ФАЙЛ  !",16,"ВHИМАHИЕ !")
    RETURN
ENDIF
***********************************
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / google maps в форме / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1581934]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 73ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 10ms
total:  166ms
x
x
Закрыть


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