TCustomUrlSearchProvider – Komponenty Delphi

Opis

Gdy chcesz użyć innego serwera wyszukiwania, opisujesz go szablonami adresów z polami {query}, {lat}, {lon}, {limit}, {lang}. Odpowiedź rozpoznawana jest automatycznie (Nominatim JSON lub GeoJSON).

Moduł: MapCommon.Search · Klasa bazowa: TMapSearchProvider (TComponent) · Platformy: VCL + FMX

TCustomUrlSearchProvider – podgląd poglądowy — Mapa w stylu tmsTerrain (OpenTopoMap) z wynikami z własnego geokodera. *Podgląd poglądowy (nie zrzut z Delphi) – prawdziwa strona mapy komponentu w ramce imitującej formę.*

Demo na żywo

Edytowalny SearchURL / ReverseURL (Photon, Nominatim), placeholdery i automatyczne wykrycie formatu odpowiedzi.

▶ Otwórz demo HTML

Funkcje

Szablony: SearchURL, ReverseURL, AreaSearchURL.
Format odpowiedzi: mrfAuto, mrfNominatim, mrfGeoJSON.
Dodatkowe parametry i nagłówki (Params, Headers), klucz ApiKey maskowany w komunikatach.
Te same zdarzenia i rodzaje błędów co TNominatimSearchProvider.
Limit zapytań opcjonalny (MinRequestIntervalMs, domyślnie 0).

Właściwości

Właściwość	Opis
SearchURL, ReverseURL, AreaSearchURL	Szablony adresów.
ResponseFormat	Format odpowiedzi.
Params, Headers	Parametry i nagłówki HTTP (TStrings).
ApiKey	Klucz dostępu (sekret).
CountryCodes, Language, Limit	Kraje, język, liczba wyników.
MinRequestIntervalMs, RateLimitBackoffMs	Limit zapytań i przerwa po 429.

Zdarzenia

Zdarzenie	Opis
OnResults	Wyniki.
OnError	Błąd z rodzajem `pek*`.

Metody

Metoda	Opis
Search, SearchInArea, Reverse	Zapytania.
CancelPending, RedactedURL, SupportsKind	Anulowanie, adres bez sekretów, obsługiwane rodzaje.

Przykłady

Własny geokoder

// dowolny geokoder zwracający JSON (format Nominatim lub GeoJSON)
CustomUrlSearchProvider1.SearchURL :=
  'https://example.com/geocode?q={query}&limit={limit}&lang={lang}';
CustomUrlSearchProvider1.ReverseURL :=
  'https://example.com/reverse?lat={lat}&lon={lon}';
CustomUrlSearchProvider1.ResponseFormat := mrfAuto;   // mrfNominatim, mrfGeoJSON
CustomUrlSearchProvider1.ApiKey := GetEnvironmentVariable('GEOCODER_KEY');
CustomUrlSearchProvider1.Headers.Values['X-Client'] := 'MojaAplikacja';
TileMap1.SearchProvider := CustomUrlSearchProvider1;
TileMap1.SearchAddress('hydraulik Kraków');

Pełna lista API

Generowana z deklaracji w kodzie (Source/*.pas): wszystkie opublikowane właściwości i zdarzenia TCustomUrlSearchProvider (także dziedziczone), właściwości publiczne i metody publiczne.

Właściwości opublikowane (15)

Właściwość	Typ	Domyślnie	Opis
`Language`	`string`		Język wyników i komunikatów (pl, en, de …)
`Limit`	`Integer`	`10`	Maksymalna liczba wyników
`ConnectTimeout`	`Integer`	`5000`	Limit czasu połączenia (ms)
`Timeout`	`Integer`	`15000`	Limit czasu odpowiedzi (ms)
`UserAgent`	`string`		Nagłówek User-Agent – identyfikuj aplikację
`MinRequestIntervalMs`	`Integer`	`0`	Minimalny odstęp między zapytaniami (kolejka); Nominatim: 1000
`RateLimitBackoffMs`	`Integer`	`10000`	Przerwa po HTTP 429
`SearchURL`	`string`		Szablon URL wyszukiwania ({query}, {limit}, {lang}, {apikey}…)
`ReverseURL`	`string`		Szablon URL reverse ({lat}, {lon}…)
`AreaSearchURL`	`string`		Szablon dla wyszukiwania w obszarze ('' = SearchURL)
`Params`	`TStrings`		Dodatkowe parametry Name=Value
`Headers`	`TStrings`		Dodatkowe nagłówki HTTP Name=Value
`ApiKey`	`string`		Klucz API – tylko w kodzie, używany przez {apikey}
`CountryCodes`	`string`		Filtr krajów ISO (np. pl,de)
`ResponseFormat`	`TMapResponseFormat`	`mrfAuto`	mrfAuto / Nominatim / Photon / GeoJSON

Zdarzenia (2)

Zdarzenie	Typ	Opis
`OnResults`	`TMapSearchResultsEvent`	Wyniki wyszukiwania
`OnError`	`TMapSearchErrorEvent`	Każdy błąd (ErrorKind, HTTP, komunikat PL/EN)

Właściwości publiczne – tylko w kodzie (3)

Właściwość	Typ	Opis
`Busy`	`Boolean`	Trwa zapytanie
`HostBaseURL`	`string`	Adres ustawiony przez mapę (gdy BaseURL pusty)
`HostToken`	`string`	Token ustawiony przez mapę

Metody publiczne (7)

Metoda	Opis
`procedure Search(const Query: string)`	Wyszukiwanie (OnResults / callback)
`procedure SearchInArea(const Query: string; const Area: TMapArea)`	Wyszukiwanie w zaznaczonym obszarze
`procedure Reverse(const Lat, Lon: Double; Zoom: Integer = 18)`	Odwrotne geokodowanie
`procedure CancelPending`	Anuluje oczekujące zapytania
`function SupportsKind(Kind: TMapSearchKind): Boolean`	Czy obsługuje rodzaj zapytania
`function RedactedURL(const Request: TMapSearchRequest): string`	URL z ukrytymi sekretami
`function Scrub(const Text: string): string`	Zastępuje sekrety ***

Pełny opis wszystkich właściwości: dokumentacja komponentów map.

Zobacz też

VCLFMXniewidoczny

TNominatimSearchProvider

Wyszukiwanie adresów przez Nominatim 5.1: pełne API, walidacja tokenu i adresu, kontrola /status, limit zapytań.

▶ Demo na żywo

VCLkontrolka

TTileMapVCL

Mapa kafelkowa dla aplikacji Windows (VCL) – OpenStreetMap, zdjęcia satelitarne, mapa terenu.

▶ Demo na żywo