Advertisement
Guest User

Yezzz

a guest
Feb 22nd, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.36 KB | None | 0 0
  1. while (getJobStatusv2(jo.GetValue('job_id').Value, token) <> 'finished') and (not i = 8640) do
  2. begin
  3.   sleep(10000);
  4.   i := i + 1;
  5. end;
  6. if i >= 8640 then
  7. begin
  8.   host.DBConnection.QueryExec('insert into PriceAPI_Jobs(jobid, timeout) values(:jobid, :timeout)',
  9.   VarArrayOf(['jobid', 'timeout']),
  10.   VarArrayOf([jo.GetValue('job_id').Value, timeout]));
  11. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement