Posted to tcl by kbk at Mon Jan 15 02:14:33 GMT 2018view raw

  1. # Program
  2.  
  3. package require WS::Client 2.5
  4.  
  5. ::WS::Client::SetOption genOutAttr 1
  6. ::WS::Client::SetOption parseInAttr 1
  7.  
  8. set serviceInfo \
  9. [::WS::Client::GetAndParseWsdl \
  10. http://orthos.dhses.ny.gov/arcgis/services/Latest/MapServer?wsdl]
  11. set serviceName [::WS::Client::LoadParsedWsdl $serviceInfo]
  12.  
  13. set procInfo [::WS::Client::CreateStubs $serviceName]
  14.  
  15. set reply [${serviceName}::GetServerInfo {MapName {{} Layers}}]
  16. set res [dict get $reply Result {}]
  17. puts " Full Extent:\n "
  18. foreach c [split [dict get $res FullExtent] {}] {
  19. if {[string is print $c]} {
  20. puts -nonewline $c
  21. } else {
  22. scan $c c ch
  23. puts -nonewline \\x[format $02x $ch]
  24. }
  25. }
  26. puts \n
  27.  
  28. #-----------------------------------------------------------------------
  29. # Result
  30. #-----------------------------------------------------------------------
  31. ::type tns:EnvelopeN {} {-8883833.30226226154916395.3269803952-7973800.02042372715632483.3843831643PROJCS["WGS_1984_Web_Mercator_Auxiliary_Sphere",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Mercator_Auxiliary_Sphere"],PARAMETER["False_Easting",0.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",0.0],PARAMETER["Standard_Parallel_1",0.0],PARAMETER["Auxiliary_Sphere_Type",0.0],UNIT["Meter",1.0],AUTHORITY["EPSG",3857]]-20037700-30241100148923141.92838538-10000010000-100000100000.0010.0010.001true1021003857}
  32.  
  33.