[RISOLTO] Domanda su WebView (salva immagini)

[vuott]

...è come se l'apertura della finestra di dialogo di Gambas interferisse negativamente con il procedimento di scarico del file.   

[vuott]

Per ora sono riuscito a fare questa manovra, ma - seppur efficace - per niente soddisfacente per me programmatore: 

Codice: [Seleziona]

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

[Gianluigi]

Io ottengo errori:
Il primo su questa riga:

Codice: [Seleziona]

' Apre la finestra di dialogo per salvare i file:'
   If Dialog.SaveFile() Then Return

Appare la finestra di dialogo, quindi l'errore vero e proprio (vedi immagini)

 

[vuott]

Io ottengo errori:

Confermo che a me, invece, funziona regolarmente, sia con qt4 sia con qt5.


...problema extra-Gambas ?   

[gianfry56]

Confermo un errore: anche a me Directory not found:

[vuott]

Ho comunque l'impressione che non tutte le immagini possano essere scaricate.
Ad esempio dell'immagine del logo di Gambas, posta in alto a sinistra del forum, mi ritrovo solo un file avente nome ed estensione corrispondente, ma di dimensione pari a zero (niente dati insomma). Questo risultato negativo lo ottengo anche senza far aprire la finestra di dialogo di Gambas.

[gianfry56]

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.

Codice: [Seleziona]

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 

[gianfry56]

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.

Codice: [Seleziona]

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

 

[gianfry56]

Dopo aver fatto alcune correzioni, il progetto WebBrowser mi sembra perfettamente funzionante.
Se volete testarlo allego la mia versione.

 

[vuott]

...ora dunque concentrati sulla pagina, da scrivere, della Wiki su questo argomento.   

[gianfry56]

Si, ma dammi una traccia, non ho capito se l'argomento deve riguardare tutto il progetto WebBrowser oppure solo il contesto del download con WebView ??

[vuott]

...solo il contesto del download con WebView ??

Diciamo il solo "download" con WebView utilizzando le opzioni del menu aperto con il tasto destro.

Poiché non ti si richiede la realizzazione di un intero complesso programma, gli esempi devono essere essenziali, funzionali e funzionanti.