Хочу послать куда нибудь адрес типа " НАБЕРЕЖНЫЕ ЧЕЛНЫ, ПРОЕЗД РЕЗЕРВНЫЙ, ДОМ 43/18" и получить координаты. Есть что либо бесплатное рабочее. Только прошу в ИС не посылать.

https://yandex.ru/dev/maps/geocoder/

Да пошёл ты... На инфостарт...

Апи яндекса уже не работает?

(0) бесплатных нет из коробки рабочих

&НаКлиенте
Процедура ОпределитьКоординатыПоАдресу(Команда)
    
    Координаты = ОпределитьКоординатыПоАдресуНаСервере(Объект.Адрес);
    Если ЗначениеЗаполнено(Координаты) И ТипЗнч(Координаты) = Тип("Структура") Тогда
        Объект.Широта = Координаты.Широта;
        Объект.Долгота = Координаты.Долгота;
        Модифицированность = Истина;
    Иначе
        Состояние("Не удалось определить координаты");
    КонецЕсли;
    
КонецПроцедуры

&НаСервереБезКонтекста
Функция ОпределитьКоординатыПоАдресуНаСервере(Адрес)
    
    АдресСервера = "geocode-maps.yandex.ru";
    ПутьНаСервере = "/1.x/?geocode=" + Адрес + "&results=1&apikey=<Здесь твой ключ, насколько помню он сейчас все еще бесплатно получается>";
    Попытка
        ССЛ = Новый ЗащищенноеСоединениеOpenSSL;
        ИмяВыходногоФайла = ПолучитьимяВременногоФайла();
        Соединение          = Новый HTTPСоединение(АдресСервера,,,,, 5, ССЛ);
        Соединение.Получить(ПутьНаСервере, ИмяВыходногоФайла);
        ЗапросТекстовыйДокумент = Новый ТекстовыйДокумент;
        ЗапросТекстовыйДокумент.Прочитать(ИмяВыходногоФайла);
        ТекстОтвета = ЗапросТекстовыйДокумент.ПолучитьТекст();
    Исключение
    КонецПопытки;
    ПозицияНачала = Найти(ТекстОтвета, "<pos>");
    ПозицияКонца = Найти(ТекстОтвета, "</pos>");
    Если ЗначениеЗаполнено(ПозицияНачала) И ЗначениеЗаполнено(ПозицияКонца) Тогда
        ПозицияНачала = ПозицияНачала + 5;
        Координаты = Сред(ТекстОтвета, ПозицияНачала, ПозицияКонца - ПозицияНачала);
        Координаты = СтрЗаменить(Координаты, " ", Символы.ПС);
        Возврат Новый Структура("Широта, Долгота", Число(СтрПолучитьСтроку(Координаты, 2)), Число(СтрПолучитьСтроку(Координаты, 1)));
    Иначе
        Возврат Неопределено;
    КонецЕсли;
    
КонецФункции

"Здесь твой ключ, насколько помню он сейчас все еще бесплатно получается" - там условия, можно конечно и обмануть но чревато.

(6) Возможно. Когда я получал, бесплатно было.

https://habr.com/ru/post/505500/

(8) OSM
https://nominatim.openstreetmap.org/
неплох но надо чистить адрес от всех обл., г., ул., д. и т.д.

И нет 2гис в сравнении

(9) по OSM сталкивался с тем, что не все адреса находятся

(10) Да сча начал тестить и очень хреново ищет

(11)+ Короче понял там в OSM криво занесены наименования улиц
Вместо "2-я центральная" там забита с "улица" например "2-я центральная улица"
А ищет хорошо, только как догадаться о правильном названии?

(12) заодно и исправляй )))

от гугла бесплатно, до определенного количества запросов.

(14) в (8) написано что нет

(15) Месяц назад под андроид на нем собирал. Все работают. Дезинформируют в статье.

(12) я бы все таки использовал яндекс для получения координат, а далее эти координаты уже бы использовал в OSM чтобы рисовать зоны/маршруты и т.д. для личного пользования

(16) ну и на самом гугле  нет инфы о бсплатном

https://dadata.ru/api/geocode/
10 копеек за запись, первые 100 бесплатно.

(17) Ну вот я так и хочу. Просто надо сначала эти координаты получить первоначально. Хотел закупщикам облегчить задачу но видимо пускай ручками делают.

(9) Вообще не понял как с ним работать. Ни один адрес не отобразил.

(21) https://wiki.openstreetmap.org/wiki/RU:Nominatim

Вот вроде как https://dadata.ru/suggestions/#address норм отрабатывает. Попробую с ним.

(21)

    АдресСтрокой = "Архангельская Каргопольский Гавриловская 4";
    Сервер = "nominatim.openstreetmap.org";
    Соединение = Новый HTTPСоединение(Сервер, 443, , , , , Новый ЗащищенноеСоединениеOpenSSL);
    АдресURL = КодироватьСтроку(АдресСтрокой, СпособКодированияСтроки.КодировкаURL, "UTF-8");
    Ресурс = "/search?q="+АдресURL+"&format=json";
    Запрос = Новый HTTPЗапрос(Ресурс);
    Ответ = Соединение.Получить(Запрос);
    Сообщить(Ответ.ПолучитьТелоКакСтроку());


(24)+ Чтобы нашел надо убирать все "," и прочее лишнее

(23) дадата хорошо но по 10коп

(26) ну сколько у конторы клиентов? если до 5000-10000 - то хоть из своего кармана оплатить можно (и записать как "два дня усердной работы"), а если больше - то можно уже покупать платное решение со всеми его преимуществами

(27) мне сча надо 120000 адресов

(28) Можно сэкономить, 10 000 в месяц бесплатно, буквально за год сделаешь.

(29) 10 учеток завести, пользовать бесплатные впн )

(30) Мне нравится разумная альтернатива яндексу и гуглу, поэтому не предлагал такое.