Delphi робот оповЕщение

[MAZADA]

Доброго суток времени, жители форума.
Помогите написать робота для оповищения.

1. С рабочего места фармацевта данной аптеки, робот ходит в api с заданной периодичностью.
2. Если в api есть заказы для данной аптеки, то фармацевт нажатием кнопки в интерфейсе 1С получает заказ.
Таким образом, ваша существующая схема не потребует изменений при добавлении нового канала получения заказов из Геоаптеки.
 
Документация по данному решению вот здесь: https://github.com/pharmbase/rfc/blob/master/src/doc-geoapt-offline-booking.md
 
Робот-оповещатель должен выполнять метод «/network_req», при этом передавать идентификатор торговой точки, на которой работает. При наличии заказа будет получен json описанный в документации – в этом случае нужно оповестить фармацевта, при отсутствии заказов будет получен пустой ответ (null) в этом случае оповещать фармацевта не нужно.

Идентификатор торговой точки: "447590"

Может пример есть? Очень благодарен за любую помощь!

[p51x]

Пример чего? Работы с сетью? Парсинга JSON?

[MAZADA]

Сообщение от p51x

Пример чего? Работы с сетью? Парсинга JSON?

Скорее всего Парсинга JSON.

[p51x]

Начните с http://docwiki.embarcadero.com/RADSt...eattle/en/JSON

[MAZADA]

Сообщение от p51x

Начните с http://docwiki.embarcadero.com/RADSt...eattle/en/JSON

Спасибо. Уже изучаю.
Есть может исходник на Delphi 7 похожего бота?
Чтоб переделать его под себя ?

[p51x]

Я давно на Делфи не писал. Там же ничего сложного нет:
1. При запуске ставим таймер на сколько надо
2. В таймере отправляем запрос
3. Потом любой либой (их полно) парсим JSON
4. Перезапускаем таймер

[MAZADA]

Сообщение от p51x

Я давно на Делфи не писал. Там же ничего сложного нет:
1. При запуске ставим таймер на сколько надо
2. В таймере отправляем запрос
3. Потом любой либой (их полно) парсим JSON
4. Перезапускаем таймер

Пожайлуста начертайте хоть кусок кода, начало процедуры.
Без начала очень сложно при том что я никогда не работал со сетю.
Может тот кусок кода мне поможет написать дальше!
Спасибо!

[p51x]

Начертал http://docwiki.embarcadero.com/CodeE...TP_Get_(Delphi)
Просто скажите, что вам лень гуглить...