TdxMapControlAzureMapReverseGeocodeProvider.OnResponse Event
Allows you to accept and process responses from an Azure Maps server.
#Declaration
property OnResponse: TdxAzureMapReverseGeocodeProviderOnResponse read; write;
#Remarks
Handle the OnResponse
event to receive and process responses from an Azure Maps server after an ExecuteAsync procedure call.
#Event Occurrence
The OnResponse
event occurs every time an Azure Maps server sends a response after an ExecuteAsync procedure call.
#Event Parameters
The following parameters are available within an OnResponse
event handler:
ASender
- Provides access to the TdxMapControlAzureMapReverseGeocodeProvider component that raised the server response event.
AResponse
- Provides access to a container populated with information returned by a server.
ADestroyResponse
Specifies if the
OnResponse
event handler automatically destroys the information container accessible through theAResponse
parameter.If this parameter value is
True
, the container is destroyed once the application exits the currentOnResponse
event handler. Otherwise, you need to release the container manually.
Refer to the TdxAzureMapReverseGeocodeProviderOnResponse procedural type description for detailed information on all available options.
#Code Example: Obtain Map Point Address Asynchronously
The code example in this section demonstrates a procedure that sends a query to an Azure Maps Reverse Geocode server and an OnResponse
event handler that receives and processes the server response.
uses
dxAzureMapInformationProviders, // Declares TdxMapControlAzureMapReverseGeocodeProvider
dxMessageDialog; // Declares the dxMessageDlg global function
// ...
procedure TMyForm.AddPushpin(AGeoPoint: TdxMapControlGeoPoint): Boolean;
var
APushpin: TdxMapPushpin;
AQueryParams: IdxAzureMapReverseGeocodeQueryParams;
begin
// Creates a new pushpin on an existing map item layer
APushpin := dxMapControl1ItemLayer1.MapItems.Add(TdxMapPushpin) as TdxMapPushpin;
APushpin.Location.GeoPoint := AGeoPoint;
AQueryParams := dxMapControl1AzureMapReverseGeocodeProvider1.CreateQueryParams;
AQueryParams.Coordinates := APushpin.Location.GeoPoint;
// Uses a configured reverse geocode provider to send a query to an Azure Maps server
dxMapControl1AzureMapReverseGeocodeProvider1.ExecuteAsync(AQueryParams);
end;
procedure TMyForm.dxMapControl1AzureMapReverseGeocodeProvider1Response(
ASender: TdxMapControlAzureMapReverseGeocodeProvider;
AResponse: TdxAzureMapReverseGeocodeRequestResponse; var ADestroyResponse: Boolean);
var
AMapItems: TdxMapItems;
APushpin: TdxMapPushpin;
begin
AMapItems := dxMapControl1ItemLayer1.MapItems;
if AResponse <> nil then
begin
if AResponse.IsSuccess and (AResponse.Features.Count > 0) then // Checks if the query is successful
begin
APushpin := AMapItems.Items[AMapItems.Count - 1] as TdxMapPushpin;
APushpin.Hint := AResponse.Features.First.Properties.Address.FormattedAddress;
end
else if Assigned(AResponse.ErrorInfo) then
dxMessageDlg(AResponse.ErrorInfo.Message, TMsgDlgType.mtError, [mkOK], 0);
end;
end;