Per utilizzare il 'Save Image' ho dovuto inserire questa:
Public Sub WebView1_Download(Download As WebDownload)
Download.Path = System.User.Home &/ File.Name(Download.Url)
End
almeno così funziona :)
:ciao:
Si scusa hai ragione, io facevo le prove così:
Dialog.Path = System.User.Home &/ File.Name(Download.Url)
Download.Path = System.User.Home &/ File.Name(Download.Url)
:ok:
Aiutatemi a capire, perché io sto perdendo la pazienza: :-\ queste due funzioni dovrebbero essere equivalenti, però solo la prima salva l'immagine, mentre la seconda (quella che passa per la finestra di dialogo) non esegue il suo lavoro :hard:
eppure il percorso è lo stesso... mi sfugge qualcosa? :rolleyes:
Public Sub WebView1_Download(Download As WebDownload)
Download.Path = System.User.Home &/ File.Name(Download.Url)
End
Public Sub WebView1_Download(Download As WebDownload)
Dialog.Path = System.User.Home &/ File.Name(Download.Url)
If Not Dialog.SaveFile() Then
Download.Path = Dialog.Path
Endif
End
Datemi cortesemente un riscontro :(
Per ora sono riuscito a fare questa manovra, ma - seppur efficace - per niente soddisfacente per me programmatore: :-X
Public Sub WebView1_Download(Download As WebDownload)
Dim nomen, iter As String
nomen = File.Name(Download.Url)
' Attribuisce un percorso "temporaneo" al file immagine da scaricare:'
iter = Temp()
' Scarica il file immagine dalla pagina web nel percorso "temporaneo":'
Download.Path = iter & nomen
' Fa apparire il nome del file nella finestra di dialogo:'
Dialog.Path = nomen
' Apre la finestra di dialogo per salvare i file:'
If Dialog.SaveFile() Then Return
' Sposta il file immagine dalla cartella temporanea, ove è stato scaricato, nella cartella prescelta:'
Move iter & nomen To Dialog.Path
End
Il primo su questa riga:
' Apre la finestra di dialogo per salvare i file:'
If Dialog.SaveFile() Then Return
:(
Ho comunque l'impressione che non tutte le immagini possano essere scaricate.
Confermo, ho anch'io questa impressione.
Dopo vari tentativi sono giunto ad una conclusione: il problema sembra proprio essere l'utilizzo della finestra di dialogo all'INTERNO della funzione di evento del Download, perché se io scelgo il percorso di salvataggio (con Dialog.SelectDirectory) prima di avviare il download e lo memorizzo in una variabile globale, allora la procedura va a buon fine; ovviamente dovrò utilizzare il nome originale del file che vado a salvare.
Public Sub WebView_Download(Download As WebDownload)
Download.Path = gsPercorsoDiSalvataggio &/ File.Name(Download.Url)
End
Evidentemente l'apertura di Dialog dentro l'evento inibisce la procedura di download :-\
Con questa variante posso anche consentire (come fanno normalmente i browser) di non sovrascrivere il file di destinazione se esiste, ma aggiungere un'estensione "(1)", "(2) ecc. ecc.
Public Sub WebView_Download(Download As WebDownload)
Dim i As Integer = 0
Do While True
If Not Exist(gsPathDownload & File.BaseName(Download.Url) & IIf(i = 0, ".", " (" & i & ").") & File.Ext(Download.Url)) Then Exit
Inc i
Loop
Download.Path = gsPathDownload & File.BaseName(Download.Url) & IIf(i = 0, ".", " (" & i & ").") & File.Ext(Download.Url)
End
:ciao: :ciao: