25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

GetUrlScript.txt 453 B

54 년 전
54 년 전
1234567891011121314151617
  1. var
  2. TL, M: TDoublePoint;
  3. BR, N: TDoublePoint;
  4. begin
  5. TL.X := GetLLon;
  6. TL.Y := GetTLat;
  7. BR.X := GetRLon;
  8. BR.Y := GetBLat;
  9. if Assigned(DefProjConverter) then begin
  10. M := DefProjConverter.LonLat2XY(TL);
  11. N := DefProjConverter.LonLat2XY(BR);
  12. ResultURL := GetURLBase + RoundEx(M.X, 9) + ',' + RoundEx(N.Y, 9) + ',' + RoundEx(N.X, 9) + ',' + RoundEx(M.Y, 9);
  13. end else begin
  14. ResultURL := 'invalid_url';
  15. end;
  16. end.