Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

GetUrlScript.txt 477 B

54 år sedan
54 år sedan
54 år sedan
54 år sedan
54 år sedan
1234567891011121314
  1. var i:integer;
  2. xy:TPoint;
  3. topLeftM,bottomrightM,LL:TDoublePoint;
  4. begin
  5. xy.x:=GetX*256;
  6. xy.y:=GetY*256;
  7. LL:=Converter.Pos2LonLat(XY,GetZ+7);
  8. topLeftM:=Converter.LonLat2Metr(LL);
  9. xy.x:=(GetX+1)*256;
  10. xy.y:=(GetY+1)*256;
  11. LL:=Converter.Pos2LonLat(XY,GetZ+7);
  12. bottomrightM:=Converter.LonLat2Metr(LL);
  13. ResultURL:=GetURLBase+'&bbox='+RoundEx(topLeftM.x,8)+','+RoundEx(topLeftM.y,8)+','+RoundEx(bottomrightM.x,8)+','+RoundEx(bottomrightM.y,8);
  14. end.