Utilizzare il Geoportale del Servizio Geologico d'Italia dell'I.S.P.R.A.

Da Gambas-it.org - Wikipedia.

Il Geoportale del Servizio Geologico d'Italia dell'I.S.P.R.A. è possibile consultare tutti i servizi relativi alle banche dati del Servizio Geologico d'Italia insieme ad altri strati informativi di base.


Esempio pratico dell'uso

(Questa è semplicemente una spiegazione su come usare il Geoportale del Servizio Geologico d'Italia dell'I.S.P.R.A. dal suo sito web)

Accedere al sito dell'Istituto Superiore per la Protezione e la Ricerca Ambientale (I.S.P.R.A.): http://www.isprambiente.gov.it/it

- Cercare poco in basso a destra la sezione "TAG" . Quindi nell'elenco sottostante cliccare sul collegamento "Portale Servizio Geologico".

- Nella nuova pagina che si apre, appartenente al Geoportale del Servizio Geologico d'Italia cliccare sul collegamento "Geomapviewer".

- Nella finestra a cascata, che si apre, cliccare sul collegamento del visualizzatore desiderato: "VIEWER 2D" oppure "VIEWER 3D".


Un altro percorso - meno breve del precedente - è il seguente:
Dopo aver effettuato l'accesso alla pagina principale del sito dell'I.S.P.R.A., nel menu lì presente cliccare sulla voce "Servizi".

- Nella nuova pagina "Elenco Servizi", che si apre, cliccare sul collegamento "Servizi per l'Ambiente".

- Nella nuova pagina, che si apre, cliccare sul collegamento "Servizio Geologico d'Italia". [Nota 1]

- Nella nuova pagina, che si apre, cliccare sul collegamento "Il Portale del Servizio Geologico d'Italia".

- Nella nuova pagina che si apre, appartenente al Geoportale del Servizio Geologico d'Italia cliccare sul collegamento "Geomapviewer".

- Nella finestra a cascata, che si apre, cliccare sul collegamento del visualizzatore desiderato: "VIEWER 2D" oppure "VIEWER 3D".

Aggiungere layer

Poniamo il caso che si sia cliccato su visualizzatore "VIEWER 2D". Per aggiungere uno o più layer alla mappa di base fare come segue:

Nel riquadro a sinistra della nuova pagina cliccare su "Catalogo ".

Nella finestra di dialogo, che si apre, cliccare su "Raster Data ".

Nella lista delle opzioni, che si estende, cliccare ad esempio su "Raster Topografia IGM 1:25000 ", per poter visualizzare anche la cartografia topografica IGM 1:25000.

Nella sub-lista, che si estende, cliccare sulla Regione italiana desiderata;

Nel riquadro che si mostra a destra cliccare in alto sul rettangolo ove c'è scritto "Aggiungi a mappa ".

La mappa topografica IGM 1:25000 sarà aggiunta e mostrata nella mappa del visualizzatore.

Modificare lo zoom per vedere correttamente la carta topografica IGM 1:25000 sovrapposta alla mappa di base mostrata dal visualizzatore.

Per cambiare mappa di base, cliccare sull'icona degli strumenti posta in alto a destra e denominata "Galleria mappe di base ".

Altro modo per aggiungere layer

E' possibile aggiungere altri layer cliccando sul tasto virtuale "Aggiungi ", posto nel riquadro di sinistra.
Nella finestra, che si mostra, attivare la scheda a sinistra "ArcGIS Online", attivare lo switch "All'interno della mappa " (deve essere verde), nel ComboBox, chiamato "Tipo ", attivare solo l'opzione "WMS ", introdurre nel campo testuale a destra la parola "igm" e avviare la ricerca cliccando sul classico simbolo della lente di ingrandimento a destra.

Quindi premere "AGGIUNGI" nel riquadro apparso e avente la didascalia: "Cartografia di base - IGM 25.000".

La mappa sarà aggiunta ai layer e visibile nel riquadro posto a sinistra della pagina.

Inserire un layer usando la URL del WMS Server

Per inserire un layer usando la URL del WMS Server, cliccare al centro sulla scheda "URL"" e nel ComboBox, posto sotto la voce "Tipo", scegliere l'opzione "Un servizio WEB OGC WMS".
Inserire quindi nell'apposito spazio "URL" la URL del WMS Server dalla mappa IGM 1:25.000, che interessa, e cliccare sul tasto vistuale "AGGIUNGI" posto a destra.


Altra modalità di visualizzazione a due layer

Un'altra modalità può essere utilizzata come segue:

quando ci si trova nella finestra di dialogo "Catalogo", contenente la lista delle Regioni, individuare la Regione desiderata e cliccare a destra sull'icona, ove sono rappresentati due ingranaggi e che ha come tooltip la descrizione "End point del servizio".

Nella nuova pagina, che si apre, sulla riga della voce "View In:" cliccare sul collegamento "ArcGIS.com Map".


Visualizzare soltanto la mappa IGM 1:25000

Per visualizzare soltanto la mappa IGM 1:25000 (quindi senza altra mappa di base), quando ci si trova nella finestra di dialogo "Catalogo", contenente la lista delle Regioni, individuare la Regione desiderata e cliccare a destra sull'icona, ove sono rappresentati due ingranaggi e che ha come tooltip la descrizione "End point del servizio".

Nella nuova pagina, che si apre, sulla riga della voce "View In:" cliccare sul collegamento "ArcGIS JavaScript".

Nella nuova pagina, che si apre, l'immagine mostrata della mappa IGM 1:25000 della Regione prescelta può essere ingrandita, nonché spostata con il mouse.

L'immagine della mappa è in bianco e nero 1 bit.


Una modalità rapida, evitando tutti i passaggi sopra descritti, è copiare e lanciare direttamente il seguente indirizzo web nel proprio browser

http://sgi2.isprambiente.it/arcgis/rest/services/raster/igm25k_regione_wgs/ImageServer?f=jsapi

avendo cura di sostituire la parola "regione", qui scritta in rosso, con la regione prescelta in lettere tutte minuscole.

Accedere direttamente alla pagina ImageServer del portale

Per utilizzare i predetti servizi web "ArcGIS.com Map" e "ArcGIS JavaScript", è possibile accedere velocemente alla pagina ImageServer relativa alla Regione desiderata, lanciando nel proprio browser il seguente indirizzo:

http://sgi2.isprambiente.it/arcgis/rest/services/raster/igm25k_regione_wgs/ImageServer

avendo cura di sostituire la parola "regione", qui scritta in rosso, con la regione prescelta in lettere tutte minuscole.

L'immagine della mappa è in bianco e nero 1 bit.

Utilizzare il codice Gambas

L'immagine della mappa regionale IGM 1:25000 (anche in questo caso in bianco e nero 1 bit) potrà essere visualizzata con Gambas, richiamando la URL del Server utilizzando l'Oggetto WebView.

Si potrà anche evitare di utilizzare il Controllo WebView, usando invece un Controllo ImageView con i Componenti gb.net e gb.net.curl, come mostrato nel seguente esempio:

Private Const COPYR As String = "Mappa fornita da: © I.S.P.R.A. - Portale del Servizio Geologico d'Italia"
Private Const INDIRIZZO As String = "http://sgi2.isprambiente.it/arcgis/rest/services/raster/igm25k_lazio_wgs/ImageServer/exportImage?"
Private Const DPI As String = "96" ' La risoluzione nella quale l'immagine sarà mostrata
' I seguenti valori sono riferiti al sistema di coordinate EPGS:3857 WGS 84/Pseudo-Mercator:  [nota 1]
Private  Const MAXOVEST As String = "1441150.00" ' La coordinata minima (massima a Ovest) di Longitudine del quadrilatero d'area considerato
Private Const MAXSUD As String = "4994500.00" ' La coordinata minima (massima a Sud) di Latitudine del quadrilatero d'area considerato
Private Const MAXEST As String = "1446150.00" ' La coordinata massima a Est di Longitudine del quadrilatero d'area considerato
Private Const MAXNORD As String = "5000000.00" ' La coordinata massima a Nord di Latitudine del quadrilatero d'area considerato
Private mdf As Single = 1.5         ' Fattore d'ingrandimento della mappa visualizzata del quadrilatero d'area considerato
Private imageview1 As ImageView


Public Sub Form_Open()
 
 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
   .Show
 End With
 
 With imageview1 = New ImageView(Me)
   .X = 0
   .Y = 0
 End With
 
 Carica()
 
End
 
 
Private Procedure Carica()
 
 Dim ind, s As String
 Dim tp As New HttpClient
  
 Me.Title = "ATTENDERE IL CARICAMENTO !"
 
 Wait 0.3
 
 ind = INDIRIZZO &
       "dpi=" & DPI & "&f=image&bbox=" & MAXOVEST & "%2C" & MAXSUD & "%2C" & MAXEST & "%2C" & MAXNORD &
       "&imageSR=102100&bboxSR=102100&size=" &
       CStr(Screen.AvailableWidth * mdf) & "%2C" & CStr(Screen.AvailableHeight * mdf)
       
 tp.Timeout = 15
 s = tp.Download(ind)
 
 tp.Close
 
 With imageview1
' Modifica il valore del colore dello sfondo dell'immagine caricata:
   .Image = Image.FromString(s)
' Salva l'immagine caricata della mappa in un file formato .png:
   .Image.Save("/tmp/IGM.png", 100)
 End With
   
 Me.Title = COPYR & String(Me.Font.TextWidth(COPYR), Chr(32))
 
End


Note

[1] Da questo punto in alternativa è possibile seguire il seguente itinerario di collegamenti:
- Nella nuova pagina "Servizi per l'Ambiente", che si apre, cliccare sul collegamento "Cartografia".
- Nella nuova pagina "Cartografia", che si apre, cliccare sul collegamento "Portale del Servizio Geologico d'Italia".