ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / OpenRoute API
8 сообщений из 8, страница 1 из 1
OpenRoute API
    #39798864
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Janex
Участник
Привет всем.
Питаюсь добратся до OpenRoute API ( https://openrouteservice.org).
Там чтоб получить маршрут надо в ихнии API послать запрос с параметрами, типо
сделать POST по адресу https://api.openrouteservice.org/v2/directions/driving-car/gpx?
и в Header запихнуть Api_Key, типо какои то такои 7324687468346284763847623847263,
и в Body координаты, на пример: {"coordinates":[[8.681495,49.41461],[8.686507,49.41943],[8.687872,49.420318]]}.
И обратно он XML документ мне ...

Питался и жерез Indy и черес Clever Internet Suite, но таки непонел куда что класть, что то неполучается...
Кто знает как ето правильно сделать ?

WBR
Janex
...
Рейтинг: 0 / 0
09.04.2019, 16:03
| Ответить | Цитировать | Написать  
OpenRoute API
    #39798927
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
JanexТам чтоб получить маршрут надо в ихнии API послать запрос с параметрамиМожно ссылку на описание api?
...
Рейтинг: 0 / 0
09.04.2019, 17:06
| Ответить | Цитировать | Написать  
OpenRoute API
    #39798936
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
JanexПитался и жерез Indy и черес Clever Internet Suite, но таки непонел куда что класть, что то неполучается...Как-то так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Data := TStringList.Create;
try
  Response := TMemoryStream.Create;
  try
     Data.Text = ' {"coordinates":[[8.681495,49.41461],[8.686507,49.41943],[8.687872,49.420318]]}';
     IdHttp1.Request.CustomHeaders.AddValue('Authorization', '7324687468346284763847623847263');
     IdHTTP1.Post('у https://api.openrouteservice.org/v2/directions/driving-car/gpx', Data, Response);
     Response.SaveToFile(.......)
  finally
    Response.Free;
  end;
finally
  Data.Free;
end;
...
Рейтинг: 0 / 0
09.04.2019, 17:20
| Ответить | Цитировать | Написать  
OpenRoute API
    #39798938
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Janex
Участник
_Vasilisk_JanexТам чтоб получить маршрут надо в ихнии API послать запрос с параметрамиМожно ссылку на описание api?

https://openrouteservice.org/dev/#/api-docs/v2/directions/{profile}/gpx/post

С GET разобрался, но там делается маршрут между двумя точками, а мне надо
по многим точкам...
Питаюсь какраз с етим разобратся: Directions Service GPX (POST)
...
Рейтинг: 0 / 0
09.04.2019, 17:20
| Ответить | Цитировать | Написать  
OpenRoute API
    #39798957
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
JanexПитаюсь какраз с етим разобратся: Directions Service GPX (POST) И что? Мой код не работает?
...
Рейтинг: 0 / 0
09.04.2019, 17:41
| Ответить | Цитировать | Написать  
OpenRoute API
    #39798972
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Janex
Участник
_Vasilisk_JanexПитаюсь какраз с етим разобратся: Directions Service GPX (POST) И что? Мой код не работает?


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Var Data     :TStringList;
    Response :TMemoryStream;
begin

  Data     := TStringList.Create;
  Response := TMemoryStream.Create;

  Data.Text := '{"coordinates":[[8.681495,49.41461],[8.686507,49.41943],[8.687872,49.420318]]}';
  IdHttp1.Request.CustomHeaders.AddValue('Authorization', '5b3ce3597851110001cf6248aa76b8f672924abda8801d78f2d04ab8');
  IdHTTP1.Post('https://api.openrouteservice.org/v2/directions/driving-car/gpx?', Data, Response);

  Response.SaveToFile('c:\temp\hujax.xml');

  Response.Free;

  Data.Free;

End;



Частично, вроде, работает ...
Если что то поменять в "Authorization" то сообшает что авторизация непрошла, значит до тудо что то доходит.
Но если с авторизациеи всё в порядке, то получаю HTTP/1.1 500 Internal Server Error
Питался к IdHTTP1 ешё SSL компонент прикрутить ...всякие настропики испробовал - нефига :(
...
Рейтинг: 0 / 0
09.04.2019, 17:51
| Ответить | Цитировать | Написать  
OpenRoute API
    #39799124
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
JanexПитался к IdHTTP1 ешё SSL компонент прикрутить ...всякие настропики испробовал - нефига :(
Вот с этим стоит в первую очередь разобраться.
...
Рейтинг: 0 / 0
10.04.2019, 07:35
| Ответить | Цитировать | Написать  
OpenRoute API
    #39799180
Фотография krapotkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krapotkin
Участник
THttpClient не предлагать ?
...
Рейтинг: 0 / 0
10.04.2019, 09:57
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / OpenRoute API
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39799180&tid=2039597]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 194ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 242ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]