TdxMapControlAzureMapGeolocationProvider.OnResponse Event
Allows you to accept and process responses from an Azure Maps server.
#Declaration
property OnResponse: TdxAzureMapGeolocationProviderOnResponse 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 TdxMapControlAzureMapGeolocationProvider 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 TdxAzureMapGeolocationProviderOnResponse procedural type description for detailed information on all available options.
#Code Example: Obtain Country ISO Code by IP Address Asynchronously
The code example in this section demonstrates a procedure that sends a query to an Azure Maps Geolocation server and an OnResponse
event handler that receives and processes the server response.
uses
dxAzureMapInformationProviders, // Declares TdxMapControlAzureMapGeolocationProvider
dxMessageDialog; // Declares the dxMessageDlg global function
// ...
procedure TMyForm.SendGeolocationQuery(const AIPAddress: string);
var
AQueryParams: IdxAzureMapGeolocationQueryParams;
begin
AQueryParams := dxMapControl1AzureMapGeolocationProvider1.CreateQueryParams;
AQueryParams.IP := AIPAddress;
dxMapControl1AzureMapGeolocationProvider1.ExecuteAsync(AQueryParams);
end;
procedure TMyForm.dxMapControl1AzureMapGeolocationProvider1Response(
ASender: TdxMapControlAzureMapGeolocationProvider;
AResponse: TdxAzureMapGeolocationRequestResponse; var ADestroyResponse: Boolean);
begin
if AResponse <> nil then
begin
if AResponse.IsSuccess then
dxMessageDlg('Country Code: ' + AResponse.CountryRegion.IsoCode, TMsgDlgType.mtInformation, [mbOK], 0);
else if Assigned(AResponse.ErrorInfo) then
dxMessageDlg(AResponse.ErrorInfo.Message, TMsgDlgType.mtError, [mbOK], 0);
end;
end;