자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi Delphi 10.4.1 Sydney - 위치변경후..주소변환 오류문의
2020.12.04 17:39
안녕하세요
델파이 10.3.3에서 까지 문제없이 잘 되었는데
이번에 api29 이사 업데이트 해야 되서
Delphi 10.4.1 새로 설치해서 사용하고 있습니다.
문제점)
......
.....
procedure TServiceModule.Location_Data_Save_Processing;
begin
if not Assigned(FGeocoder) then
begin
if Assigned(TGeocoder.Current) then FGeocoder := TGeocoder.Current.Create;
if Assigned(FGeocoder) then FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent;
end;
if Assigned(FGeocoder) and not FGeocoder.Geocoding then
begin
FGeocoder.GeocodeReverse(Last_Find_Location2D);
end;
end;
procedure TServiceModule.OnGeocodeReverseEvent(const Address: TCivicAddress);
begin
Try
l_location_address_name := '';
l_location_address_name := l_location_address_name + (Address.CountryName);
l_location_address_name := l_location_address_name + ' ' + (Address.AdminArea);
l_location_address_name := l_location_address_name + ' ' + (Address.Locality);
l_location_address_name := l_location_address_name + ' ' + (Address.Thoroughfare);
l_location_address_name := l_location_address_name + ' ' + (Address.FeatureName);
Except
on err:exception do
begin
Exit;
end;
end;
end;
.....
이렇게 하면 위치코드는 변경이 되는데...
주소를 조회하면 처음에 주소가 변경되지 않고 계속조회됩니다.
위도와 경도는 확인해 보면 변경되는것을 확인했는데..주소만 변경이 안되는경우 입니다.
고수님들의 답변을 부탁드립니다.
댓글 1
Delphi Delphi 10.4.1 Sydney - 위치변경후..주소변환 오류문의
2020.12.04 17:39
안녕하세요
델파이 10.3.3에서 까지 문제없이 잘 되었는데
이번에 api29 이사 업데이트 해야 되서
Delphi 10.4.1 새로 설치해서 사용하고 있습니다.
문제점)
......
.....
procedure TServiceModule.Location_Data_Save_Processing;
begin
if not Assigned(FGeocoder) then
begin
if Assigned(TGeocoder.Current) then FGeocoder := TGeocoder.Current.Create;
if Assigned(FGeocoder) then FGeocoder.OnGeocodeReverse := OnGeocodeReverseEvent;
end;
if Assigned(FGeocoder) and not FGeocoder.Geocoding then
begin
FGeocoder.GeocodeReverse(Last_Find_Location2D);
end;
end;
procedure TServiceModule.OnGeocodeReverseEvent(const Address: TCivicAddress);
begin
Try
l_location_address_name := '';
l_location_address_name := l_location_address_name + (Address.CountryName);
l_location_address_name := l_location_address_name + ' ' + (Address.AdminArea);
l_location_address_name := l_location_address_name + ' ' + (Address.Locality);
l_location_address_name := l_location_address_name + ' ' + (Address.Thoroughfare);
l_location_address_name := l_location_address_name + ' ' + (Address.FeatureName);
Except
on err:exception do
begin
Exit;
end;
end;
end;
.....
이렇게 하면 위치코드는 변경이 되는데...
주소를 조회하면 처음에 주소가 변경되지 않고 계속조회됩니다.
위도와 경도는 확인해 보면 변경되는것을 확인했는데..주소만 변경이 안되는경우 입니다.
고수님들의 답변을 부탁드립니다.
현재 10.4에서 되는 샘플을 보내보겠습니다. 확인 한번 해보세요