SASGIS - SAS.Планета
View Issue Details
0002052SAS.ПланетаРефакторингpublic26-07-2013 20:0228-07-2013 17:50
vdemidov 
vdemidov 
normalminorhave not tried
resolvedfixed 
.Nightly 
131111131111 
0002052: Ошибка в геокодере
В геокодере u_GeoCoderByURL есть такой код:

  slat := ReplaceStr(FloatToStr(VPoint.Y),',','.');
  slon := ReplaceStr(FloatToStr(VPoint.X),',','.');

Какой нужно просто передавать VFormatSettings в FloatToStr и будет точка разделителем. А так на системах с разделителем отличным от точки и запятой, этот код работать не будет.
No tags attached.
Issue History
26-07-2013 20:02vdemidovNew Issue
26-07-2013 20:02vdemidovStatusnew => assigned
26-07-2013 20:02vdemidovAssigned To => Garl
26-07-2013 20:12GarlNote Added: 0012233
26-07-2013 20:18GarlNote Added: 0012234
26-07-2013 20:20vdemidovNote Added: 0012235
26-07-2013 20:21vdemidovNote Added: 0012236
26-07-2013 20:26vdemidovNote Added: 0012237
28-07-2013 17:50vdemidovStatusassigned => resolved
28-07-2013 17:50vdemidovFixed in Version => 131111
28-07-2013 17:50vdemidovResolutionopen => fixed
28-07-2013 17:50vdemidovAssigned ToGarl => vdemidov

Notes
(0012233)
Garl   
26-07-2013 20:12   
Добрался Демидов до гео-кодеров :)
(0012234)
Garl   
26-07-2013 20:18   
и к тому же
перове
 VFormatSettings.DecimalSeparator := '.';
второе
 VPoint.Y := StrToFloat(slat, VFormatSettings);

и вроде выходит каменный цветочек...
(0012235)
vdemidov   
26-07-2013 20:20   
Сюда же добавь жуткую функцию meters_to_lonlat
В ней по сути происходит та же петрушка
(0012236)
vdemidov   
26-07-2013 20:21   
>Добрался Демидов до гео-кодеров :)
Мне на них смотреть страшно
Но у них есть одно достоинство, которое перевешивает все недостатки говнокода - они работают :)
(0012237)
vdemidov   
26-07-2013 20:26   
И еще у них есть оправдание - они вызываются только по прямому действию пользователя, что значит весьма редко.