Модератор: Дед Пахом
, да так и делаю, иногда,
pansoft писал(а):Добрый день всем!
Задача такая: при нажатии кнопки отправляется запрос на сервер, ответ приходит через 1 до 5 минут(примерно).Как сделать в цикле паузу на 10-15 секунд?Код: Выделить всё
Send() ! отправка запроса на сервере loc:res='' LOOP loc:res=Respons() ! Проверка ответа на сервере If loc:res<>'' then break. ......... end
Код: Выделить всё
Send() ! отправка запроса на сервере
loc:res=''
LOOP
loc:res=Respons() ! Проверка ответа на сервере
If loc:res<>'' then break.
BEEP(0,1000)
end
Код: Выделить всё
...
MODULE('Windows API')
SLEEP(LONG),PASCAL
END
...
Send() ! отправка запроса на сервере
loc:res=''
LOOP
loc:res=Respons() ! Проверка ответа на сервере
If loc:res<>'' then break.
SLEEP(1000)
end
Да, и такое впечатление, что Send() на самом деле и есть асинхронный вызов, но ответ сервера почему-то пытаемся прочитать через жопу.
Да вот пытаюсь вашим libcurl достучатся до ЕГАИС, все работает великолепно, единственное с вот этим ответом встал вопрос.
Значит, работаю не сразу в помойку.
Попробовал SLEEP и TIMER.
получения справочника продукции, когда нужно чтобы пользователь обязательно дождался ответа (если нет ответа завершение цикла через пять минут), так как во время SLEEP ни что сделать на возможно, по этому пользователю остается только ждать.pansoft писал(а): 1)К модулю посылаем запрос по http:\\localhost:8080 используя res = curl.SendRequestStr(), в res сразу же приходит идентификатор запроса.
2)УТМ шифрует, подписывает и отправляет запрос в облако.
3)В облаке формируется ответ(наверное опять шифруется) и отправляется в УТМ.
4)УТМ его расшифровывает и добавляет в список полученных документов.
5)Время от 1 пункта до 4 проходит примерно 2-5 минут. В течении этого времени необходимо проверять список входящих документов на наличие документа с нашим идентификатором используя res = curl.SendRequestStr().
6) Ура в списке появился документ с нашим идентификатором, и рядом ссылочка по которой мы можем забрать данный документ из УТМ используя res = curl.SendRequestStr().
Вчера торопился, не написал, пишу сейчас - что бы новички, читающие наши сообщения, понимали что теоретически есть ещё "извращенный" случай с кнопками и без окна (WINDOW) в обычном понимании кларион-программиста, т.е. "нарисованного ручками в дизайнере, описанного ручками или созданного шаблонами и опрашиваемого в программе обычными способами (Accept/...) , я про MESSAGE, он тоже КНОПКУ выводит в своем ОКНЕ, например есть просто source-программка ВООБЩЕ без окон построенных при помощи WINDOW, в коде которой идут (пп1-4?
) ну и где-то там в недрах:
Код: Выделить всё
...
System{PROP:FontSize} = 16 !для вывода пользователю текста покрупнее на больших диагоналях))
MESSAGE('Старт ... ') ! тут будет одна кнопка
....
System{PROP:FontSize} = 16 !для вывода покрупнее на больших диагоналях
CASE MESSAGE('Quit?','Editor',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1) !тут пара кнопок
OF BUTTON:No !the window is System Modal,no copy ability
return
OF BUTTON:Yes
MESSAGE('Goodbye|So Long|Sayonara') !A 3-line message with only an Ok button.
RETURN
END
...
В общем, спасает