1
Programmazione (Gambas 2) / Re: Ricavare ip lan
« il: 30 Aprile 2009, 02:51:32 »
Ci avevo pensato ma io non so quale interfaccia viene usata a priori.
Gambas-it
News:
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Pagine: [1]
2
Programmazione (Gambas 2) / Re: Ricavare ip lan
« il: 29 Aprile 2009, 20:13:13 »
be'... ho fatto così, un po' sporco come metodo...:
DIM MySock AS Socket
DIM lanip AS String = ""
MySock = NEW Socket
MySock.Connect("www.google.it", 80)
PRINT "getting local ip address... please wait"
DO WHILE (MySock.Status <> 7) AND (MySock.Status > 0)
WAIT 0.1
LOOP
IF MySock.Status <> 7 THEN
Message.Error(("Impossibile ricavare indirizzo ip locale"))
lanip = ("invalid.local.ip")
END IF
IF lanip = "" THEN lanip = MySock.LocalHost
MySock.Close()
RETURN lanip
DIM MySock AS Socket
DIM lanip AS String = ""
MySock = NEW Socket
MySock.Connect("www.google.it", 80)
PRINT "getting local ip address... please wait"
DO WHILE (MySock.Status <> 7) AND (MySock.Status > 0)
WAIT 0.1
LOOP
IF MySock.Status <> 7 THEN
Message.Error(("Impossibile ricavare indirizzo ip locale"))
lanip = ("invalid.local.ip")
END IF
IF lanip = "" THEN lanip = MySock.LocalHost
MySock.Close()
RETURN lanip
3
Programmazione (Gambas 2) / Ricavare ip lan
« il: 29 Aprile 2009, 16:45:18 »
Salve a tutti...
sto completando il mio programma in gambas Bashare che attualmente è ostato sul forum di Ubuntu ma che come promesso vorrei portare qui.
Mi manca un'ultima cosa prima di rilasciarlo al "grande pubblico" :)
Ho bisogno di ricavare l'ip in lan della macchina. Ho provato così:
PUBLIC SUB get_local_ip() AS String
DIM h AS DnsClient
h = NEW DnsClient
PRINT "getting local ip address... please wait"
h.Async = FALSE
h.HostName = System.Host
h.GetHostIP
RETURN h.HostIP
END
Ma mi ritorna 127.0.1.1 :(
A me invece servirebbe ovviamente avere 192.168.1.qualcosa
Qualcuno ha qualche idea?
Grazie.
sto completando il mio programma in gambas Bashare che attualmente è ostato sul forum di Ubuntu ma che come promesso vorrei portare qui.
Mi manca un'ultima cosa prima di rilasciarlo al "grande pubblico" :)
Ho bisogno di ricavare l'ip in lan della macchina. Ho provato così:
PUBLIC SUB get_local_ip() AS String
DIM h AS DnsClient
h = NEW DnsClient
PRINT "getting local ip address... please wait"
h.Async = FALSE
h.HostName = System.Host
h.GetHostIP
RETURN h.HostIP
END
Ma mi ritorna 127.0.1.1 :(
A me invece servirebbe ovviamente avere 192.168.1.qualcosa
Qualcuno ha qualche idea?
Grazie.
4
Programmazione (Gambas 2) / Re: Creazione eventi
« il: 20 Febbraio 2009, 17:30:47 »
Nel caso semplice forse sì.
Ma nel mio programma no, se provo a mettere al posto di RAISE evento qualcosa tipo
FMain.Cinquanta()
mi dice che l'oggetto ESEMPIO è nullo...
Ma nel mio programma no, se provo a mettere al posto di RAISE evento qualcosa tipo
FMain.Cinquanta()
mi dice che l'oggetto ESEMPIO è nullo...
5
Programmazione (Gambas 2) / Re: Creazione eventi
« il: 20 Febbraio 2009, 17:01:55 »
tra l'altro ho anche visto dei sorgenti dove si faceva così... boh...
Forse può essere creato un evento solo in corrispondenza di eventi di oggetti appartenenti a classi già nel linguaggio... non so.
comunque ovviamente quella di cesko è simpatica ...
Ho provato pure a richiamare una sub di FMain dalla classe (a sua volta richiamata da Fmain), non sembra che Gambas la pigli bene ...
Forse può essere creato un evento solo in corrispondenza di eventi di oggetti appartenenti a classi già nel linguaggio... non so.
comunque ovviamente quella di cesko è simpatica ...
Ho provato pure a richiamare una sub di FMain dalla classe (a sua volta richiamata da Fmain), non sembra che Gambas la pigli bene ...
6
Programmazione (Gambas 2) / Creazione eventi
« il: 20 Febbraio 2009, 08:34:08 »
Salve, mi sono imbattuto in una difficolatà riguardo la creazione di eventi in una classe.
faccio un esempio
Poi in Fmain..
ma es_cinquanta() non viene mai eseguita.... neppure chiamandola esempio_cinquanta...
Che cosa sbaglio?
faccio un esempio
Codice: [Seleziona]
'Gambas class file
'NOME: ESEMPIO
EXPORT
EVENT cinquanta()
PUBLIC SUB Conta()
DIM i as INTEGER
FOR i=1 TO 100
WAIT 1
if i=50 THEN RAISE cinquanta
NEXT
END
Poi in Fmain..
Codice: [Seleziona]
PUBLIC es AS ESEMPIO
PUBLIC SUB MAIN()
es = NEW ESEMPIO as "es"
es.Conta()
END
PUBLIC SUB es_cinquanta()
PRINT "Sono arrivato a Cinquanta"
ENDma es_cinquanta() non viene mai eseguita.... neppure chiamandola esempio_cinquanta...
Che cosa sbaglio?
7
Domande tecniche (Gambas 2) / Re: Chiamare un programma esterno (caso particolare)
« il: 04 Febbraio 2009, 14:46:34 »
ok... funziona :)
altro problema
programma_esterno.value nn mi restituisce nulla :(
forse è un problema del programma, devo controllare.
altro problema
programma_esterno.value nn mi restituisce nulla :(
forse è un problema del programma, devo controllare.
8
Domande tecniche (Gambas 2) / Re: Chiamare un programma esterno (caso particolare)
« il: 04 Febbraio 2009, 14:36:37 »
Il programma esterno io ce l'ho nella cartella del progetto di gambas.
Quello che non riesco a fare è individuare un path relativo e non assoluto.
Comunque con Application.path o .dir penso che forse ci siamo...
Quello che non riesco a fare è individuare un path relativo e non assoluto.
Comunque con Application.path o .dir penso che forse ci siamo...
9
Domande tecniche (Gambas 2) / Chiamare un programma esterno (caso particolare)
« il: 04 Febbraio 2009, 12:24:29 »
Salve a tutti, sto scrivendo un programma che ha bisogno di chiamare un programma esterno già compilato tramite exec.
Niente di più facile se si parla di un programma già sulla macchina o in /usr/bin...
Il mio problema è che devo chiamare invece un programma che ho compilato io e non si trova in nessuna distro.
Ho provato a metterlo in "dati" e riesco a chiamarlo mettendoci il path assoluto (/home/utente/progetti_gambas/programma/eseguibile).
Ho provato mettendo ./eseguibile ma niente da fare...
Vorrei inoltre fare in modo che venga trovato anche quando poi creerò i pacchetti per le distro....
Come posso fare?
Grazie per le risposte.
Niente di più facile se si parla di un programma già sulla macchina o in /usr/bin...
Il mio problema è che devo chiamare invece un programma che ho compilato io e non si trova in nessuna distro.
Ho provato a metterlo in "dati" e riesco a chiamarlo mettendoci il path assoluto (/home/utente/progetti_gambas/programma/eseguibile).
Ho provato mettendo ./eseguibile ma niente da fare...
Vorrei inoltre fare in modo che venga trovato anche quando poi creerò i pacchetti per le distro....
Come posso fare?
Grazie per le risposte.
10
Programmazione (Gambas 2) / Re: upnp e gambas
« il: 26 Dicembre 2008, 22:17:38 »
In sostanza sto scrivendo un piccolo server http e voglio aggiungerci la configurazione automatica del router tramite il port forwarding.
In quel sito che ho linkato ho trovato del codice vb che potrei adattare, il problema è la licenza. Vorrei evitare di perdere tempo se poi non poso usare quel codice.
In quel sito che ho linkato ho trovato del codice vb che potrei adattare, il problema è la licenza. Vorrei evitare di perdere tempo se poi non poso usare quel codice.
11
Programmazione (Gambas 2) / upnp e gambas
« il: 26 Dicembre 2008, 17:23:59 »
Salve a tutti e buone feste.
Qualcuno ha qualche idea su come implementare il port forwarding in gambas?
Ho trovato qualcosa in VB ma con licenza non libera.
http://www.jaredjacobs.com/upnp/
Qualcuno ha qualche idea su come implementare il port forwarding in gambas?
Ho trovato qualcosa in VB ma con licenza non libera.
http://www.jaredjacobs.com/upnp/
Pagine: [1]