Перейти к содержанию
Fire Monkey от А до Я

Martifan

Пользователи
  • Постов

    396
  • Зарегистрирован

  • Посещение

  • Победитель дней

    17

Весь контент Martifan

  1. вот скажи сам ты программист? если да то ты всегда программы без глюков собираешь? 100% уверен что нет но тебе ведь платят за это зарплату
  2. а что тебя держит? переходы хоть прямо сейчас, ведь это так просто )))
  3. у меня на разных контейнерах лежат эти компоненты и без проблем работают в DX10
  4. Кстати мне тоже интересует этот вопрос
  5. скажите пожалуйста никак не мог разобраться TMultiView перекрывает TMapView или нет? я не мог этого сделать если сделали то напишите пожалуйста как это сделать заранее спасибо
  6. vcl-firemonkey premium styles for rad studio10 seattle https://mega.nz/#!vAkxGBJL!8K6ZUvF0oDqCqEeorjNxlqOUDXU0QIrhtu6ABQ95Qhs
  7. Официально может и не объявляли но у меня на интеловском процессоре все работает нормально у меня даже видео есть показательны и доказательны
  8. а что мешает запускать все через Wine все под него работает просто замечательна сам лично пробовал
  9. да все просто работает на ура супер спасибо
  10. oo спасибо то что нужно было )) спасибо большое
  11. просто сравнил по google map там google другую дистанцию показывает а аппликация другую вот поэтому и решил что так считает
  12. может быть но параметр dist возвращает значение по сфера
  13. Там же на PHP, вроде популярный язык сейчас. Также надо учесть, что в варианте Zuby Земля представляется сферой, поэтому в вычислении расстояния погрешность будет выше. я разобрался и там тоже по сфера считает вот пример: procedure calcDistance(StartLat, StartLon, EndLat, EndLon:real; var dist,bearing:real); var D2R,R2D,a,e2:real; fdLambda,fdPhi,fPhimean,fTemp,fRho,fNu,fz,fAlpha,fR:real; begin dist:=0; bearing:=0; if ((StartLat = 0) or (StartLon = 0) or (EndLat = 0) or (EndLon = 0)) then exit; if ( (abs(StartLon - EndLon) <= 0.0000014) and (abs(StartLat - EndLat) <= 0.0000008)) then exit; D2R := 0.01745329251994330; // Pi/180 R2D := 57.29577951308230000; // 180/Pi a := 6378137.0; e2 := 0.00673949674233346; fdLambda := (StartLon - EndLon) * D2R; fdPhi := (StartLat - EndLat) * D2R; fPhimean := (StartLat + EndLat) / 2.0 * D2R; fTemp := 1 - e2 * Power( sin(fPhimean), 2); fRho := a * (1 - e2) / Power(fTemp, 1.5); fNu := a / sqrt(1 - e2 * sin(fPhimean) * sin(fPhimean) ); fz := 2 * ArcSin(sqrt ( Power(sin( fdPhi / 2.0), 2 ) + cos( EndLat * D2R ) * cos( StartLat * D2R ) * Power(sin(fdLambda / 2.0), 2) ) ); fAlpha := ArcSin(cos( EndLat * D2R ) * sin(fdLambda) / sin(fz) ); fR := fRho * fNu / (fRho * Power(sin(fAlpha), 2) + fNu * Power(cos(fAlpha), 2)); dist:=fz * fR; if (dist <= 0.999) then exit; Bearing := abs(fAlpha * R2D); if ((StartLat <= EndLat) and (StartLon > EndLon)) then begin Bearing := 360 - Bearing; end else begin if ((StartLat > EndLat) and (StartLon >= EndLon)) then begin Bearing := 180 + Bearing; end else begin if ((StartLat > EndLat) and (StartLon < EndLon)) then begin Bearing := 180 - Bearing; end end; end; end;
  14. PHP может и популярны язык но я с ним не другу
  15. можешь дать ссылку, чтобы прочитать заранее спасибо
  16. спасибо работает супер. а как по дороге сделать?
  17. спасибо конечно но более понятном языке нету ничего?
  18. неправильно считает (
  19. результат возвращаться: сантиметр, метр ?
  20. да естественно есть координат обеих показываю на карте просто нужна узнать расстояние между этими маркерами
  21. доброго времени сутки как можно узнать расстояние между точки А до B интересует на гугле карте заранее спасибо
  22. Спасибо большое, Супер все работает
  23. Доброго времени суток. Может кто подсказать, как в компоненте MapView убрать проставленные маркеры локаций? Заранее спасибо
  24. мне тоже очень часто отвечали такой ответ на мой вопросы но оказалось что решение всегда находили раз у кого то этого сделана значит делаться вопрос въ томъ что как?
  25. это уже от тебя зависит как нарисуешь так и покажет
×
×
  • Создать...