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

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
_ 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