var
postaaja;
s;
laskuri;
st;
begin
st := CreateStatus('Päivitys');
laskuri := 0;
// allaoleva showstatus palauttaa false jos käyttäjä on painanut peruuta tai skjscript
// on saanut wm_close viestin. esim process -q skjscript.exe
while showstatus(st,'Päivitän asiakasdataa ','Päivitetty '+inttostr(laskuri)) do
begin
postaaja := LuoPostaaja;
postaaja_lisaakentta(postaaja,'id','1212');
postaaja_lisaakentta(postaaja,'data','adadada');
s := postaaja_post(postaaja,'https://jotain.skj.fi/joku.php','');
logentry('vastaus'+s);
sleep(1000);
inc(laskuri);
logentry('virhe'+postaaja_virhe(postaaja));
postaaja_sulje(postaaja);
end;
closestatus(st);
end; |