prendere dati da pagine html

[Ugo]

Un mio Cliente mi chiede un piccolo programma per gestire delle pratiche che gli vengono affidate via internet, volevo sapere se esiste qualcosa per leggere una pagina e prendere alcune informazioni per averle a disposizione nel programma FWH senza doverle ridigitare.

Grazie per i suggerimenti.

[Enrico Maria Giordano]

Code: Select all | Expand

FUNCTION MAIN()

    ? GETURL( "http://www.emagsoftware.it/listino.htm" )
//    ? GETURL( "http://www.emagsoftware.it/logo.gif" )
//    ? GETURL( "http://www.emagsoftware.it/xharbour.jpg" )

    INKEY( 0 )

    RETURN NIL


FUNCTION GETURL( cUrl )

    LOCAL cFile := SUBSTR( cUrl, RAT( "/", cUrl ) + 1 )

    LOCAL oUrl, oCli

    LOCAL lOk := .F.

    BEGIN SEQUENCE
        oUrl = TUrl():New( cUrl )

        IF EMPTY( oUrl ); BREAK; ENDIF

        oCli = TIPClient():New( oUrl )

        IF EMPTY( oCli ); BREAK; ENDIF

        oCli:nConnTimeout = 20000

        IF !oCli:Open( oUrl ); BREAK; ENDIF

        lOk = oCli:ReadToFile( cFile )

        oCli:Close()
    END SEQUENCE

    RETURN lOk

EMG

[Ugo]

Grazie Enrico,
faccio qualche test...

Sicuramente mi farò presto vivo

[Ugo]

... dopo tempo ho ripreso in mano questo progetto, non riesco a compilare, quali liberie devo usare?

[Ugo]

o meglio avevo fatto i test che ho ritrovato ma adesso, lo stesso test, mi fa errore:
Si è verificato un errore in test.Exe. L'applicazione verrà chiusa.

[Enrico Maria Giordano]

Hai provato l'esempio che ti ho dato così com'è?

EMG

[Ugo]

Hai provato l'esempio che ti ho dato così com'è?

Si, mi fai venire i dubbi... Certo!
Cmq ho cercato nei vari newsgroup e altri hanno avuto sto problema, un bel GPF!!!
Le risposte sono: Aggiungi la lib hbTip, o la pcrepos o la tip o la Harbour, ho provato con tutte senza risultati.
In questi casi dove si trovano/cercano le dipendenze?

[Enrico Maria Giordano]

Queste sono le librerie che uso io per un programma console (xHarbour.org):

rtl.lib +
vm.lib +
common.lib +
lang.lib +
gtwin.lib +
rdd.lib +
usrrdd +
dbffpt.lib +
dbfntx.lib +
dbfcdx.lib +
hbsix.lib +
macro.lib +
pcrepos.lib +
hbodbc.lib +
hbzip.lib +
ct.lib +
tip.lib +
import32.lib +
cw32.lib +
odbc32.lib +
wininet.lib

EMG

[Enrico Maria Giordano]

Dimmi anche se vuoi provare il mio EXE.

EMG

[Ugo]

Queste sono le librerie che uso io per un programma console (xHarbour.org):

Enrico,
si può usare con Fivewin?
io lo sto provando con fwh...

[Enrico Maria Giordano]

Certo. Ma le librerie allora sono queste:

fivehx.lib +
fivehc.lib +
rtl.lib +
vm.lib +
common.lib +
gtgui.lib +
lang.lib +
rdd.lib +
usrrdd +
dbffpt.lib +
dbfntx.lib +
dbfcdx.lib +
hbsix.lib +
macro.lib +
pcrepos.lib +
hbzip.lib +
tip.lib +
ct.lib +
odbc32.lib +
import32.lib +
cw32.lib +
wininet.lib

EMG

[Ugo]

Certo. Ma le librerie allora sono queste:
...

Si, stavo facendo le prove mentre hai risposto...
in effetti riordinando le librerie funziona,
Grazie.

[Silvio]

anch'io ho fatto qualcosa tanto tempo fa ....
anzi ho usato qualcosa del genere una funzioncina carina di Edo Freni
Avevo scaricato una quantità di circa 12000 email inun archivio per argomenti .... così per gioco
Questo ha un nome ben preciso che non ricordo e serve per trovare email per la pubblicità ma poi ho visto che si andava sempre nel penale e quindi ho smesso di fare il cretino...

[Silvio]

scusa ma tip .lib dove la devo prendere ?

[Enrico Maria Giordano]

scusa ma tip .lib dove la devo prendere ?

E' una delle librerie standard di xHarbour (non di Harbour).

EMG