Salve a tutti! Non riesco a comprendere bene la relazione che esiste tra il servizio "download" della libreria HTTPUtils e la "sua" sub-routine "Jobdone".
Mi spiego meglio. In queste righe elementari di codice:
'==================================================================
Global Sub
Dim s_file As String = "
http://www.miosito.it/httpdocs/cartella/Prova.txt"
End Sub
Sub Activity_Create (FirstTime As Boolean)
Dim job1, job2, job3 Come HttpJob
job1.Initialize ("Job1" Me)
job1.Download (s_file)
if File.Exists (File.DirRootExternal, "Prova1.txt") = True Then
Msgbox ("", "Tutto OK!")
else
Msgbox ("", "Nulla OK!")
End If
End Sub
Sub jobdone (job as HttpJob)
if Job.Success = True Then
Select Job.JobName
Case "Job1"
s_stringa Dim As string
s_stringa = Job.GetString
File.WriteString (File.DirRootExternal, "Prova1.txt", s_stringa)
if File.Exists (File.DirRootExternal, "Prova1.txt") = True Then Msgbox ("", "Download completato")
End Select
End If
Job.Release
End Sub
'==================================================================
vorrei semplicemente: (a) file di scaricare il "prova.txt", (b) Memorizzarlo in File.DirRootExternal con il nome "Prova1.txt" e (c) essere certo che l'operazione sia andata a buon fine. Il problema però è il che verifico che la sequenza di esecuzione non è (a) - (b) - (c) come immaginavo, bensì (a) - (c) - (b) per cui ricevo il messaggio "Nulla OK!", nonostante il che poi l'operazione di download e di scrittura del file avvenga regolarmente e legga il messaggio "Download completato".
Cosa mi sfugge? Dove sbaglio? E' possibile interrompere l'esecuzione del codice finchè il servizio di download non si sia concluso?
Vi ringrazio in anticipo per i vostri suggerimenti...
Stefano