Code: Select all
HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") ;Create COM Object
generatedURL := "https://gis.mapshare.vic.gov.au/arcgis/rest/services/mapshare/PropertyAndParcelPOLY/MapServer/export?dpi=96&transparent=true&format=png32&layers=show%3A0%2C1%2C2%2C3&dynamicLayers=%5B%7B%22id%22%3A0%2C%22name%22%3A%22Property%20Proposed%22%2C%22source%22%3A%7B%22type%22%3A%22mapLayer%22%2C%22mapLayerId%22%3A0%7D%2C%22drawingInfo%22%3A%7B%22showLabels%22%3Atrue%7D%2C%22minScale%22%3A30000%2C%22maxScale%22%3A0%7D%2C%7B%22id%22%3A1%2C%22name%22%3A%22Property%22%2C%22source%22%3A%7B%22type%22%3A%22mapLayer%22%2C%22mapLayerId%22%3A1%7D%2C%22drawingInfo%22%3A%7B%22showLabels%22%3Afalse%7D%2C%22minScale%22%3A30000%2C%22maxScale%22%3A0%7D%2C%7B%22id%22%3A2%2C%22name%22%3A%22Parcel%20Proposed%22%2C%22source%22%3A%7B%22type%22%3A%22mapLayer%22%2C%22mapLayerId%22%3A2%7D%2C%22drawingInfo%22%3A%7B%22showLabels%22%3Atrue%7D%2C%22minScale%22%3A30000%2C%22maxScale%22%3A0%7D%2C%7B%22id%22%3A3%2C%22name%22%3A%22Parcel%22%2C%22source%22%3A%7B%22type%22%3A%22mapLayer%22%2C%22mapLayerId%22%3A3%7D%2C%22drawingInfo%22%3A%7B%22showLabels%22%3Afalse%7D%2C%22minScale%22%3A30000%2C%22maxScale%22%3A0%7D%5D&bbox=2523586.1949962866%2C2398402.9073125347%2C2523656.574303712%2C2398440.372387465&bboxSR=3111&imageSR=3111&size=1330%2C708&f=image"
HTTP.Open("GET", generatedURL) ;GET & POST are most frequent, Make sure you UPPERCASE
HTTP.Send() ;If POST request put data in "Payload" variable
Response_data:= HTTP.ResponseText ;Save the text that is returned
msgbox % HTTP.ResponseText
if you paste the above url into a browser it displays the correct image so i tried UrlDownloadToFile but that didn't work either.
any help would be appreciated
thanks Grimboto