ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / google maps в форме
5 сообщений из 5, страница 1 из 1
google maps в форме
    #38377406
Davit Matevosyan001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Davit Matevosyan001
Гость
как показать google maps в форме
...
Рейтинг: 0 / 0
26.08.2013, 13:54
| Ответить | Цитировать | Написать  
google maps в форме
    #38378598
Sea_Cat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sea_Cat
Гость
Davit Matevosyan001,

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

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

а если нужен поиск по улицам или координатам?
...
Рейтинг: 0 / 0
08.06.2017, 14:09
| Ответить | Цитировать | Написать  
google maps в форме
    #39469035
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leonid Kudryavtsev
Участник
А какая разница?
MS WebBrowser кучу методов экспортирует. Взаимодействие с JS-кодом вполне можно сделать
...
Рейтинг: 0 / 0
08.06.2017, 19:41
| Ответить | Цитировать | Написать  
google maps в форме
    #39470087
bif17
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bif17
Гость
Мне кажется, перегружать форму такими объектами не стоит.
Лучше на ней вводить координаты (и/или адрес) и далее открывать в Браузере созданный файл 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
10.06.2017, 20:12
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / google maps в форме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=14&tid=1581934]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 9ms
total:  145ms
созд. / загр.: 145ms
x
x
Закрыть


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