Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

25 rindas
1009 B

  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. RequestHead:='User-Agent: Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16' + #13#10 +
  17. 'Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1' + #13#10 +
  18. 'Accept-Language: ru-RU,ru;q=0.9,en;q=0.8' + #13#10 +
  19. 'Accept-Encoding: gzip, deflate' + #13#10 +
  20. 'Referer: http://kso2.lantmateriet.se/' + #13#10 +
  21. 'Host: kso.lantmateriet.se' + #13#10 +
  22. 'Cookie: WebTrends=188.95.188.26.1392695245204688' + #13#10 +
  23. 'Connection: keep-alive' + #13#10;
  24. end.