Sapere se un indirizzo web è valido - Cronologia

Vuott il 16:10, 20 gen 2024

2024-01-20T16:10:34Z

← Versione meno recente		Versione delle 10:10, 20 gen 2024
Riga 23:		Riga 23:

	<FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>		<FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>
	idn = "www.~~yahoo~~.et"		idn = "www.gambas-it.org"

	host = gethostbyname(idn)		host = gethostbyname(idn)

Vuott il 16:07, 20 gen 2024

2024-01-20T16:07:25Z

← Versione meno recente		Versione delle 10:07, 20 gen 2024
Riga 21:		Riga 21:
	Dim host As Hostent		Dim host As Hostent
	Dim idn As String		Dim idn As String

	<FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>		<FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>
	idn = "www.yahoo.et"		idn = "www.yahoo.et"

	host = gethostbyname(idn)		host = gethostbyname(idn)

	Print "Ping: host "; Quote(idn); " valido\n"		Print "Ping: host "; Quote(idn); " valido\n"
	Print "Nome ufficiale dell'host: "; String@(host.h_name)		Print "Nome ufficiale dell'host: "; String@(host.h_name)

Vuott il 16:07, 20 gen 2024

2024-01-20T16:07:11Z

← Versione meno recente		Versione delle 10:07, 20 gen 2024
Riga 22:		Riga 22:
	Dim idn As String		Dim idn As String

	<FONT Color=gray>' ''Impostiamo il nome di un host ~~inesistente~~, quindi ~~non~~ valido:''</font>		<FONT Color=gray>' ''Impostiamo il nome di un host esistente, quindi valido:''</font>
	idn = "www.yahoo.ex"		idn = "www.yahoo.et"

	host = gethostbyname(idn)		host = gethostbyname(idn)
	~~If Not Object.IsValid(host) Then~~
	~~Print "ping: host sconosciuto", Quote(idn)~~		Print "Ping: host "; Quote(idn); " valido\n"
	~~Else~~		Print "Nome ufficiale dell'host: "; String@(host.h_name)
	Print "Ping: host "; Quote(idn); " valido\n"		Print "Nome alias dell'host: "; String@(Pointer@(host.h_aliases))
	Print "Nome ufficiale dell'host: "; String@(host.h_name)		Print "Indirizzo IP dell'host: "; String@(Pointer@(host.h_addr_list) + 32)
	Print "Nome alias dell'host: "; String@(Pointer@(host.h_aliases))
	Print "Indirizzo IP dell'host: "; String@(Pointer@(host.h_addr_list) + 32)
	~~Endif~~

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

Vuott il 15:49, 20 gen 2024

2024-01-20T15:49:43Z

← Versione meno recente		Versione delle 09:49, 20 gen 2024
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 inesistente, quindi non valido:''</font>		<FONT Color=gray>' ''Impostiamo il nome di un host inesistente, quindi non valido:''</font>
	idn = "www.yahoo.ex"		idn = "www.yahoo.ex"

	p = gethostbyname(idn)		host = gethostbyname(idn)
	If ~~p = 0~~ Then		If Not Object.IsValid(host) Then
	Print "ping: host sconosciuto", Quote(idn)		Print "ping: host sconosciuto", Quote(idn)
	Else		Else
	~~host = p~~
	Print "Ping: host "; Quote(idn); " valido\n"		Print "Ping: host "; Quote(idn); " valido\n"
	Print "Nome ufficiale dell'host: "; String@(host.h_name)		Print "Nome ufficiale dell'host: "; String@(host.h_name)
	Print "Nome alias dell'host: "; String@(Pointer@(host.h_aliases))		Print "Nome alias dell'host: "; String@(Pointer@(host.h_aliases))
			Print "Indirizzo IP dell'host: "; String@(Pointer@(host.h_addr_list) + 32)
	Endif		Endif

	End		End

Vuott il 13:11, 20 gen 2024

2024-01-20T13:11:54Z

← Versione meno recente		Versione delle 07:11, 20 gen 2024
Riga 1:		Riga 1:
	Per sapere se una [https://it.wikipedia.org/wiki/Uniform_Resource_Locator URL] è valida, e quindi esistente, si ~~possono~~ utilizzare ~~almeno due modalità.~~		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.

	~~==Uso delle sole risorse di Gambas con il componente ''gb.qt4.webkit''==~~
	Volendo utilizzare le sole risorse di Gambas, un possibile codice sarebbe ad esempio il seguente, che prevede sia attivato preliminarmente il componente ''gb.qt4.webkit'' e fa uso dell'oggetto ''WebView'':
	~~Public Sub Main()~~

	~~WebView1.Url = "https://www.gambas-it.org"~~

	~~While WebView1.Progress < 1.0~~
	~~Wait 0.01~~
	~~Wend~~

	~~<FONT Color=gray>' ''Se la proprietà ".HTML" dell'oggetto "WebView" ha conservato la sua stringa predefinita di Tag ''html'', allora~~ la ~~URL non è valida:''</font>~~
	~~If WebView1.HTML = "<html><head></head><body></body></html>" Then~~
	~~Print "La URL non esiste !"~~
	~~Else~~
	~~Print "La URL esiste."~~
	~~Endif~~

	~~End~~


	~~==Uso della libreria esterna ''libsnmp''==~~
	~~Questa'altra modalità fa uso della~~ funzione esterna ''gethostbyname()'' contenuta dalla libreria ''libsnmp.so.40.1.0'', che pertanto andrà richiamata nell'applicazione Gambas.

	Mostriamo un semplice esempio:		Mostriamo un semplice esempio:

Vuott il 16:20, 18 gen 2024

2024-01-18T16:20:22Z

← Versione meno recente		Versione delle 10:20, 18 gen 2024
Riga 55:		Riga 55:
	host = p		host = p
	Print "Ping: host "; Quote(idn); " valido\n"		Print "Ping: host "; Quote(idn); " valido\n"
	Print "Nome ufficiale dell'host:", String@(host.h_name)		Print "Nome ufficiale dell'host: "; String@(host.h_name)
	Print "Nome alias:", String@(Pointer@(host.h_aliases))		Print "Nome alias dell'host: "; String@(Pointer@(host.h_aliases))
	Endif		Endif

	End		End

Vuott il 16:15, 18 gen 2024

2024-01-18T16:15:55Z

← Versione meno recente		Versione delle 10:15, 18 gen 2024
Riga 1:		Riga 1:
	Per sapere se una [https://it.wikipedia.org/wiki/Uniform_Resource_Locator URL] è valida, e quindi esistente, si possono utilizzare almeno due modalità.		Per sapere se una [https://it.wikipedia.org/wiki/Uniform_Resource_Locator URL] è valida, e quindi esistente, si possono utilizzare almeno due modalità.


	==Uso delle sole risorse di Gambas con il componente ''gb.qt4.webkit''==		==Uso delle sole risorse di Gambas con il componente ''gb.qt4.webkit''==

Vuott il 16:15, 18 gen 2024

2024-01-18T16:15:42Z

← Versione meno recente		Versione delle 10:15, 18 gen 2024
Riga 6:		Riga 6:
	Public Sub Main()		Public Sub Main()

	WebView1.Url = "~~http~~://www.gambas-it.org"		WebView1.Url = "https://www.gambas-it.org"

	While WebView1.Progress < 1.0		While WebView1.Progress < 1.0

Vuott il 16:14, 18 gen 2024

2024-01-18T16:14:01Z

@@ Riga 19: / Riga 19: @@
    Endif
   End
@@ Riga 41: / Riga 26: @@
 Mostriamo un semplice esempio:
   Public Struct hostent
     h_name As Pointer
@@ Riga 48: / Riga 35: @@
     h_addr_list As Pointer
   End Struct
   <FONT Color=gray>' ''struct hostent *gethostbyname(const char *name)'

Vuott il 16:04, 18 gen 2024

2024-01-18T16:04:41Z

← Versione meno recente		Versione delle 10:04, 18 gen 2024
Riga 4:		Riga 4:
	==Uso delle sole risorse di Gambas con il componente ''gb.qt4.webkit''==		==Uso delle sole risorse di Gambas con il componente ''gb.qt4.webkit''==
	Volendo utilizzare le sole risorse di Gambas, un possibile codice sarebbe ad esempio il seguente, che prevede sia attivato preliminarmente il componente ''gb.qt4.webkit'' e fa uso dell'oggetto ''WebView'':		Volendo utilizzare le sole risorse di Gambas, un possibile codice sarebbe ad esempio il seguente, che prevede sia attivato preliminarmente il componente ''gb.qt4.webkit'' e fa uso dell'oggetto ''WebView'':
	~~'''~~Public Sub Main()		Public Sub Main()

	WebView1.Url = "http://www.gambas-it.org"		WebView1.Url = "http://www.gambas-it.org"

	While WebView1.Progress < 1.0		While WebView1.Progress < 1.0
	Wait 0.01		Wait 0.01
	Wend		Wend

	<FONT Color=gray>' ''Se la proprietà ".HTML" dell'oggetto "WebView" ha conservato la sua stringa predefinita di Tag ''html'', allora la URL non è valida:''</font>		<FONT Color=gray>' ''Se la proprietà ".HTML" dell'oggetto "WebView" ha conservato la sua stringa predefinita di Tag ''html'', allora la URL non è valida:''</font>
	If WebView1.HTML = "<html><head></head><body></body></html>" Then		If WebView1.HTML = "<html><head></head><body></body></html>" Then
	Print "La URL non esiste !"		Print "La URL non esiste !"
	Else		Else
	Print "La URL esiste."		Print "La URL esiste."
	Endif		Endif

	~~'''~~End~~'''~~		End


	Un'altra modalità con l'uso delle sole risorse di Gambas, attivando in particolare, come nell'esempio precedente, il componente ''gb.qt4.webkit'':		Un'altra modalità con l'uso delle sole risorse di Gambas, attivando in particolare, come nell'esempio precedente, il componente ''gb.qt4.webkit'':
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	WebView1.Url = "http://www.gambas-it.org"		WebView1.Url = "http://www.gambas-it.org"

			While WebView1.Progress < 1.0
			Wait 0.01
			Wend

			<FONT Color=gray>' ''Se la proprietà ".Text" dell'oggetto "WebView" è nulla, allora la URL molto probbilmente non è valida:''</font>
			If WebView1.Text = Null Then Print "La URL non esiste."

	~~While WebView1.Progress < 1.0~~		End
	~~Wait 0.01~~
	~~Wend~~

	~~<FONT Color=gray>' ''Se la proprietà ".Text" dell'oggetto "WebView" è nulla, allora la URL molto probbilmente non è valida:''</font>~~
	~~If WebView1.Text = Null Then Print "La URL non esiste."~~

	~~'''~~End~~'''~~



	==Uso della libreria esterna ''libsnmp~~.so.30.0.2~~''==		==Uso della libreria esterna ''libsnmp''==
	Questa'altra modalità fa uso della funzione esterna ''gethostbyname()'' contenuta dalla libreria ''libsnmp.so.30.0.2'', che pertanto andrà richiamata nell'applicazione Gambas.		Questa'altra modalità fa uso della funzione esterna ''gethostbyname()'' contenuta dalla libreria ''libsnmp.so.40.1.0'', che pertanto andrà richiamata nell'applicazione Gambas.

	Mostriamo un semplice esempio:		Mostriamo un semplice esempio:
Riga 51:		Riga 50:


	Library "libsnmp:30.0.2"		Library "libsnmp:40.1.0"

	<FONT Color=gray>' ''struct hostent gethostbyname(const char name)'		<FONT Color=gray>' ''struct hostent gethostbyname(const char name)'
Riga 58:		Riga 57:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim host As Hostent		Dim host As Hostent
Riga 65:		Riga 64:

	<FONT Color=gray>' ''Impostiamo il nome di un host inesistente, quindi non valido:''</font>		<FONT Color=gray>' ''Impostiamo il nome di un host inesistente, quindi non valido:''</font>
	idn = "www.yahoo.ex"		idn = "www.yahoo.ex"

	p = gethostbyname(idn)		p = gethostbyname(idn)
	If p = 0 Then		If p = 0 Then
	Print "ping: host sconosciuto", Quote(idn)		Print "ping: host sconosciuto", Quote(idn)
	Else		Else
	host = p		host = p
	Print "Ping: host "; Quote(idn); " valido\n"		Print "Ping: host "; Quote(idn); " valido\n"
	Print "Nome ufficiale dell'host:", String@(host.h_name)		Print "Nome ufficiale dell'host:", String@(host.h_name)
	Print "Nome alias:", String@(Pointer@(host.h_aliases))		Print "Nome alias:", String@(Pointer@(host.h_aliases))
	Endif		Endif

	~~'''~~End~~'''~~		End