🚀 go-pugleaf

Il giorno Tue, 16 Jun 2009 02:54:35 -0700 (PDT), Maxx <massirg@hotmail.com> ha scritto:

>Salve a tutti,
>ho la necessit=E0 di scaricare dei dati da una pagina internet, ho
>provato ad usare il controllo Inet, all'avvio del mio form,
>aggiungendo il componente Microsoft Internet Controls, ma all'avvio
>genera l'errore "Necessario Oggetto",
>dove sbaglio?

Non so come funziona il controllo Inet, ma l'errore sembra legato ad un problema
nell'istanziare l'oggetto.
Sei sicuro che l'oggetto sia accessibile dal form? Sicuro che Inet sia nel componente che
dici tu?
Puoi provare anche ad usare createobject, ma devi sapere come � registrato Inet nel
registry.
Una alternativa � xmlhttp. Puoi scaricare qualsiasi oggetto, anche pdf (binari)
esempio:

DownloadWithXMLHTTP ("http://digilander.libero.it/Cenati/batchbrowser.htm","c:\bb.htm")

Sub DownloadWithXMLHTTP (sSource,sDest)
	'Download a file using activeX Object XMLHTTP
	'and save to sDest using ADO Stream
	set oHTTP = CreateObject("Microsoft.XMLHTTP")
	oHTTP.open "GET", sSource, False
	oHTTP.send
	set oStream = createobject("adodb.stream")
	Const adTypeBinary = 1
	Const adSaveCreateNotExist = 1
	Const adSaveCreateOverWrite = 2
	oStream.type = adTypeBinary
	oStream.open
	oStream.write oHTTP.responseBody
	oStream.savetofile sDest, adSaveCreateOverWrite
	set oStream = nothing
	set oHTTP = nothing
end sub

-- 
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--