FoxClub Forums > Visual Foxpro, Foxpro for DOS

• Войти

Карты OpenStreetMap
Равиль Автор Сообщений: 6692 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 25.01.25 12:46:31 Привет ! Никто не пробовал подключать карты ? Подсмотрел у 1С-ников и вот что получается - пока только отображение )) infostart.ru With Createobject('form1') .Show(1) Endwith Define Class form1 As Form Top = 0 Left = 0 Height = 600 Width = 800 DoCreate = .T. Caption = "Form1" Name = "Form1" Add Object OLE As OleControl With OleClass="Shell.Explorer.2" Procedure Init With This.ole .Navigate("about:blank") .Move(0,0,Thisform.Width,Thisform.Height) Endwith ! Пример взят отсюда : infostart.ru Local lcText TEXT TO lcText TEXTMERGE NOSHOW PRETEXT 7 <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <meta http-equiv="X-UA-Compatible" content="IE=9"/> <link rel="stylesheet" href="https://unpkg.com/leaflet@1.7.1/dist/leaflet.css" integrity="sha512-xodZBNTC5n17Xt2atTPuE1HxjVMSvLVW9ocqUKLsCC5CXdbqCmblAshOMAS6/keqq/sMZMZ19scR4PsZChSR7A==" crossorigin=""/> <script src="https://unpkg.com/leaflet@1.7.1/dist/leaflet.js" integrity="sha512-XQoYMqMTK8LvdxXYG3nZ448hOEQiglfqkJs1NOQV44cWnUrBc8PkAOcXy20w0vlaXaVUearIOBhiXZ5V3ynxwA==" crossorigin=""> </script> </head> <body> <div id="map" class="map" style="position: absolute; top: 0px; right: 0px; bottom: 0px; left: 0px;"></div> //Добавляем невидимую кнопку для взаимодействия карта - приложение <button id="interactionButton" style="display: none">Кнопка взаимодействия</button> <script type="text/javascript"> //Установка начальных координат (широта и долгота, 15 это зум) var map = L.map('map').setView([54.6954, 55.9922], 15); var markers = L.layerGroup().addTo(map); L.tileLayer('http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png', { attribution: '© <a href="/redirect.php?url=aHR0cHM6Ly93d3cub3BlbnN0cmVldG1hcC5vcmcvY29weXJpZ2h0">OpenStreetMap</a> contributors' }).addTo(map); //Функция установки пунктов доставки на карте, в нее передается массив с данными function addPlaces(placesArray,latitude,longitude){ var placesArray = JSON.parse(placesArray); map.setView([latitude, longitude], 8); for(var i = 0; i < placesArray.length; i++) { L.marker([placesArray[i][0], placesArray[i][1]],{alt : '{name: '+placesArray[i][2]+', code: '+placesArray[i][4]+'}'}).addTo(markers).bindPopup("<strong>"+placesArray[i][2]+"</strong><br />"+placesArray[i][3]).on('dblclick', onClick); } } //Выбор пункта доставки function onClick(e) { interactionButton.click(); map.setView(e.target.getLatLng(), 18); } //Очищаем карту function refreshMap(){ markers.clearLayers(); } //Установка курсора на текущем пункте доставки function SetViewOffice(latitude,longitude){ map.setView([latitude, longitude], 18); } </script> </body> </html> ENDTEXT With This.ole.Object.Document .Open() .Write(m.lcText) .Close() Endwith With This.ole .Enabled = .T. .Visible = .T. Endwith Endproc Enddefine ------------------ Тяжело согнать курсором муху с монитора ...

Равиль
Автор

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

25.01.25 12:46:31

Привет !

Никто не пробовал подключать карты ?
Подсмотрел у 1С-ников и вот что получается - пока только отображение ))

infostart.ru


With Createobject('form1')
    .Show(1)
Endwith


Define Class form1 As Form

    Top = 0
    Left = 0
    Height = 600
    Width = 800
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"

    Add Object OLE As OleControl With OleClass="Shell.Explorer.2"

    Procedure Init

        With This.ole
            .Navigate("about:blank")
            .Move(0,0,Thisform.Width,Thisform.Height)
        Endwith


        *!* Пример взят отсюда : infostart.ru

        Local lcText

        TEXT TO lcText TEXTMERGE NOSHOW PRETEXT 7
<!DOCTYPE html>
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
    <meta http-equiv="X-UA-Compatible" content="IE=9"/>
    <link rel="stylesheet" href="https://unpkg.com/leaflet@1.7.1/dist/leaflet.css"
    integrity="sha512-xodZBNTC5n17Xt2atTPuE1HxjVMSvLVW9ocqUKLsCC5CXdbqCmblAshOMAS6/keqq/sMZMZ19scR4PsZChSR7A==" crossorigin=""/>
    <script src="https://unpkg.com/leaflet@1.7.1/dist/leaflet.js"
    integrity="sha512-XQoYMqMTK8LvdxXYG3nZ448hOEQiglfqkJs1NOQV44cWnUrBc8PkAOcXy20w0vlaXaVUearIOBhiXZ5V3ynxwA==" crossorigin="">
    </script>
</head>
<body>
    <div id="map" class="map" style="position: absolute; top: 0px; right: 0px; bottom: 0px; left: 0px;"></div>

    //Добавляем невидимую кнопку для взаимодействия карта - приложение
    <button id="interactionButton" style="display: none">Кнопка взаимодействия</button>

    <script type="text/javascript">

        //Установка начальных координат (широта и долгота, 15 это зум)
        var map = L.map('map').setView([54.6954, 55.9922], 15);
        var markers = L.layerGroup().addTo(map);

        L.tileLayer('http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png', {
            attribution: '&copy; <a href="/redirect.php?url=aHR0cHM6Ly93d3cub3BlbnN0cmVldG1hcC5vcmcvY29weXJpZ2h0">OpenStreetMap</a> contributors'
        }).addTo(map);


        //Функция установки пунктов доставки на карте, в нее передается массив с данными
        function addPlaces(placesArray,latitude,longitude){

            var placesArray = JSON.parse(placesArray);

            map.setView([latitude, longitude], 8);

            for(var i = 0; i < placesArray.length; i++)
            {
                L.marker([placesArray[i][0], placesArray[i][1]],{alt : '{name: '+placesArray[i][2]+', code: '+placesArray[i][4]+'}'}).addTo(markers).bindPopup("<strong>"+placesArray[i][2]+"</strong><br />"+placesArray[i][3]).on('dblclick', onClick);

            }

        }


        //Выбор пункта доставки
        function onClick(e)
        {

            interactionButton.click();
            map.setView(e.target.getLatLng(), 18);
        }


        //Очищаем карту
        function refreshMap(){
            markers.clearLayers();

        }

        //Установка курсора на текущем пункте доставки
        function SetViewOffice(latitude,longitude){

            map.setView([latitude, longitude], 18);
        }


    </script>

</body>

</html>
        ENDTEXT

        With This.ole.Object.Document
            .Open()
            .Write(m.lcText)
            .Close()
        Endwith

        With This.ole
            .Enabled    = .T.
            .Visible    = .T.
        Endwith

    Endproc


Enddefine

------------------
Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap
of63 Сообщений: 26001 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 26.01.25 21:58:20 Равиль, хоть бы пояснил... Что за "карты" (как в фильме "Остров сокровищ" - "Билли, отдай карту", - "у меня нет никакой карты" ) )

Re: Карты OpenStreetMap
Равиль Автор Сообщений: 6692 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 27.01.25 07:57:38 of63 Равиль, хоть бы пояснил... Что за "карты" (как в фильме "Остров сокровищ" - "Билли, отдай карту", - "у меня нет никакой карты" ) ) Привет ! Да, OpenStreetMap - насколько я понял - это такой открытый бесплатный проект типа википедии, только по картам - каждый желающий ее может править, добавлять объекты и, как ни странно, он и в России обновляется с небольшим отставанием от тех же яндекс карт. У меня задача - отобразить на карте пункты доставки по маршрутному листу - вот ищу что можно использовать )) ------------------ Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap

Равиль
Автор

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

27.01.25 07:57:38

of63
Равиль, хоть бы пояснил... Что за "карты" (как в фильме "Остров сокровищ" - "Билли, отдай карту", - "у меня нет никакой карты" ) )

Привет !

Да, OpenStreetMap - насколько я понял - это такой открытый бесплатный проект типа википедии, только по картам - каждый желающий ее может править,
добавлять объекты и, как ни странно, он и в России обновляется с небольшим отставанием от тех же яндекс карт.

У меня задача - отобразить на карте пункты доставки по маршрутному листу - вот ищу что можно использовать ))

------------------
Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap
Каратаев Сообщений: 4049 Откуда: Алматы Дата регистрации: 04.12.2001	Каратаев 27.01.25 09:24:10 Равиль, приветствую! У меня менеджеры делают скрины с Яндекс или Гугл карт, отмечают там что нужно и вставляют в базу. Выглядит примерно так... [attachment 37055 shema.png] Эта же схема вставляется в сопроводительные документы для водителей-экспедиторов. ------------------ Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Карты OpenStreetMap

Каратаев

Сообщений: 4049
Откуда: Алматы
Дата регистрации: 04.12.2001

Каратаев

27.01.25 09:24:10

Равиль, приветствую! У меня менеджеры делают скрины с Яндекс или Гугл карт, отмечают там что нужно и вставляют в базу.
Выглядит примерно так...
[attachment 37055 shema.png]
Эта же схема вставляется в сопроводительные документы для водителей-экспедиторов.

------------------
Никогда не бывает настолько плохо, чтобы не могло быть еще хуже.

Re: Карты OpenStreetMap
Равиль Автор Сообщений: 6692 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 27.01.25 09:38:36 Каратаев Равиль, приветствую! У меня менеджеры делают скрины с Яндекс или Гугл карт, отмечают там что нужно и вставляют в базу. Выглядит примерно так... [attachment 37055 shema.png] Эта же схема вставляется в сопроводительные документы для водителей-экспедиторов. Привет Александр, понятно, спасибо ) У тебя менеджеры интерактивно рисуют маршрут на карте - тоже вариант. У меня же есть массив точек доставки с координатами - хочу отобразить их на карте. Потом думаю распечатать и/или передать ссылку экспедитору ... ------------------ Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap

Равиль
Автор

Сообщений: 6692
Откуда: Уфа
Дата регистрации: 01.08.2003

Равиль

27.01.25 09:38:36

Каратаев
Равиль, приветствую! У меня менеджеры делают скрины с Яндекс или Гугл карт, отмечают там что нужно и вставляют в базу.
Выглядит примерно так...
[attachment 37055 shema.png]
Эта же схема вставляется в сопроводительные документы для водителей-экспедиторов.

Привет Александр, понятно, спасибо )
У тебя менеджеры интерактивно рисуют маршрут на карте - тоже вариант.
У меня же есть массив точек доставки с координатами - хочу отобразить их на карте.
Потом думаю распечатать и/или передать ссылку экспедитору ...

------------------
Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap
Равиль Автор Сообщений: 6692 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 27.01.25 09:39:36 Нашел кстати - Женя Шумик тут показывал с яндекс картами : forum.foxclub.ru ------------------ Тяжело согнать курсором муху с монитора ...

Re: Карты OpenStreetMap
Равиль Автор Сообщений: 6692 Откуда: Уфа Дата регистрации: 01.08.2003	Равиль 29.01.25 13:47:51 Привет ! Причесал немного демку с возможностью загрузить координаты и примитивной распечаткой карты )) Часть текста скрыта Закрыть ------------------ Тяжело согнать курсором муху с монитора ...

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 18 DenKa (Гостей: 17)