KYandexMapsLauncher

Модуль KYandexMapsLauncher предоставляет возможность показать произвольный адрес на Яндекс.Карте.
Зачем это надо? Например у вас в программе есть база клиентов, с помощью KYandexMapsLauncher'а вы сможете показать пользователю адрес клиента на карте. Все что надо — это интернет.

Модуль написан на языке программирования Delphi и тестировался в BDS2006.
Вы можете распоряжаться модулем по своему усмотрению, но сохраняйте ссылку на автора.

Загрузить KYandexMapsLauncher.pas (3 кб)
* Правая кнопка мыши → Сохранить ссылку как…

Класс TYandexMapsLauncher
В этом классе реализована вся работа.

LaunchMaps — открыть указный адрес на карте.

procedure LaunchMaps(const ASearchQuery: string);

В ASearchQuery передается адрес в произвольном виде. Например: «п.Коксовый пер. Короткий 1.». Всю остальную работу выполнит Яндекс.


Пример вызова
Для того, чтобы открыть адрес на карте нужно или вручную создать объект класса TYandexMapsLauncher.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Ya: TYandexMapsLauncher;
begin
  Ya := TYandexMapsLauncher.Create;
  try
    Ya.LaunchMaps('Ростов-на-Дону Марксистский 30');
  finally
    Ya.Free;
  end;
end;

Или воспользоваться функцией GetYandexMapsLauncher, которая позволяет работать с классом как с синглетоном. Это значит, что создание и удаление объекта будут сделаны автоматически и вам не нужно будет об этом беспокоится.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  GetYandexMapsLauncher.LaunchMaps('Ростов-на-Дону Марксистский 30');
end;

Модуль использован в Менеджере кредитов.

Открытие карты осуществляется из контекстного меню.



Результат в браузере выглядит так:

Как видите, дома 30 не нашлось, поэтому Яндекс показал ближайший.

• Менеджер кредитов.
• Другие проекты