PureBoard

Code: Alles auswählen

EnableExplicit
If InitNetwork() = 0
	MessageRequester("", "InitNetwork failed")
	End
EndIf

Procedure SaveGoogleMapImage(destinationPath$, location$, zoom = 15, maptype$ = "satellite", format$ = "jpg-baseline", width = 640, height = 640)
	; destinationPath$:	save image to this path
	; location:			(latitude,longitude) or address
	; zoom:				0 - 21 (depending on location)
	; mapType$:			roadmap, satellite, hybrid, terrain
	; format;			png32,png8,png,gif,jpg,jpg-baseline
	; width/height:		max. 640x640
	
	Protected url$
	
	url$ = "http://maps.googleapis.com/maps/api/staticmap?center=%LOC%&size=%WID%x%HIG%&format=%FMT%&zoom=%ZOM%&scale=2&maptype=%MPT%&sensor=false";&markers=%LOC%"
	url$ = ReplaceString(url$, "%LOC%", location$)
	url$ = ReplaceString(url$, "%WID%", Str(width))
	url$ = ReplaceString(url$, "%HIG%", Str(height))
	url$ = ReplaceString(url$, "%FMT%", format$)
	url$ = ReplaceString(url$, "%ZOM%", Str(zoom))
	url$ = ReplaceString(url$, "%MPT%", maptype$)
	
	ProcedureReturn ReceiveHTTPFile(url$, destinationPath$)
EndProcedure

SaveGoogleMapImage("C:\Test.jpg", "-33.892351,151.27600",18)