Differenze tra le versioni di "Sapere se un indirizzo web è valido"

Da Gambas-it.org - Wikipedia.
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per sapere se una [https://it.wikipedia.org/wiki/Uniform_Resource_Locator URL] è valida, e quindi esistente, si può utilizzare la funzione esterna "gethostbyname()" contenuta dalla libreria ''libsnmp.so.40.1.0'', che pertanto andrà richiamata nell'applicazione Gambas.
+
Per sapere se una [https://it.wikipedia.org/wiki/Uniform_Resource_Locator URL] è valida, e quindi esistente, si può utilizzare la funzione esterna "gethostbyname()" contenuta dalla libreria condivisa: "''libc.so.6'' ".
  
 
Mostriamo un semplice esempio:
 
Mostriamo un semplice esempio:
−
  Library "libsnmp:40.1.0"
+
  Library "libc:6"
 
   
 
   
 
  Public Struct hostent
 
  Public Struct hostent
Riga 14: Riga 14:
 
  <FONT Color=gray>' ''struct hostent *gethostbyname(const char *name)'
 
  <FONT Color=gray>' ''struct hostent *gethostbyname(const char *name)'
 
  ' ''Returns a structure of type hostent for the given host name.''</font>
 
  ' ''Returns a structure of type hostent for the given host name.''</font>
−
  Private Extern gethostbyname(idn As String) As Pointer
+
  Private Extern gethostbyname(idn As String) As Hostent
 
   
 
   
 
   
 
   
Riga 21: Riga 21:
 
   Dim host As Hostent
 
   Dim host As Hostent
 
   Dim idn As String
 
   Dim idn As String
−
  Dim p As Pointer
+
−
 
+
  <FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>
−
  <FONT Color=gray>' ''Impostiamo il nome di un host inesistente, quindi non valido:''</font>
+
   idn = "www.gambas-it.org"
−
   idn = "www.yahoo.ex"
 
 
    
 
    
−
   p = gethostbyname(idn)
+
   host = gethostbyname(idn)
−
  If p = 0 Then
+
−
    Print "ping: host sconosciuto", Quote(idn)
+
   Print "Ping: host "; Quote(idn); " valido\n"
−
   Else
+
  Print "Nome ufficiale dell'host: "; String@(host.h_name)
−
    host = p
+
  Print "Nome alias dell'host:    "; String@(Pointer@(host.h_aliases))
−
    Print "Ping: host "; Quote(idn); " valido\n"
+
   Print "Indirizzo IP dell'host:  "; String@(Pointer@(host.h_addr_list) + 32)
−
    Print "Nome ufficiale dell'host: "; String@(host.h_name)
 
−
    Print "Nome alias dell'host:    "; String@(Pointer@(host.h_aliases))
 
−
   Endif
 
 
   
 
   
 
  End
 
  End
 +
Se l'host è inesistente, sarà sollevato un errore di segmentazione (11).

Versione attuale delle 09:10, 20 gen 2024

Per sapere se una URL è valida, e quindi esistente, si può utilizzare la funzione esterna "gethostbyname()" contenuta dalla libreria condivisa: "libc.so.6 ".

Mostriamo un semplice esempio: 

Library "libc:6"

Public Struct hostent
  h_name As Pointer
  h_aliases As Pointer
  h_addrtype As Integer
  h_length As Integer
  h_addr_list As Pointer
End Struct

' struct hostent *gethostbyname(const char *name)'
' Returns a structure of type hostent for the given host name.
Private Extern gethostbyname(idn As String) As Hostent


Public Sub Main()
 
 Dim host As Hostent
 Dim idn As String

' Impostiamo il nome di un host esistente, quindi valido:
 idn = "www.gambas-it.org"
  
 host = gethostbyname(idn)

 Print "Ping: host "; Quote(idn); " valido\n"
 Print "Nome ufficiale dell'host: "; String@(host.h_name)
 Print "Nome alias dell'host:     "; String@(Pointer@(host.h_aliases))
 Print "Indirizzo IP dell'host:   "; String@(Pointer@(host.h_addr_list) + 32)

End

Se l'host è inesistente, sarà sollevato un errore di segmentazione (11).

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Sapere_se_un_indirizzo_web_è_valido&oldid=36371"