странно, но у меня изначально скрипт выглядит вот так:ingener писал(а):нафиг снесли X[/b] и Y?!
у вас:
ResultURL:=GetURLBase+RoundEx(GetLMetr,-5,10)+','+RoundEx(GetBMetr,-2,10)+','+RoundEx(GetRMetr,-5,10)+','+RoundEx(GetTMetr,-2,10);
а должно быть :
ResultURL:=GetURLBase+RoundEx(GetLMetr,x-5,10)+','+RoundEx(GetBMetr,y-2,10)+','+RoundEx(GetRMetr,x-5,10)+','+RoundEx(GetTMetr,y-2,10);
Ессно после каждого исправления и сохранения скрипта надо перезапускать прогу.
Код: Выделить всё
begin
ResultURL:=GetURLBase+RoundEx(GetLMetr,10)+','+RoundEx(GetBMetr,10)+','+RoundEx(GetRMetr,10)+','+RoundEx(GetTMetr,10);
end.Можете скинуть ваш zmp?