Newsgroup: it.comp.appl.access
Titolo: aggiornare fe dal web con urldownloadtofile e progressbar

Ciao Ragazzi,
ad oggi aggiornavo il FE da una pagina web, ora pensavo di fare una cosa 
piu' carina e fare tipo un LiveUpdate
la cosa piu' semplice credevo fosse usare la chiamata "UrlDownloadToFile"
e devo dire che tranquillamente scarica il file dall' host remoto..
il problema e' un altro.. come faccio ad avere una chiamata di callback?
cioe' mi spiego meglio volevo inserire una barra di progressione, in modo 
che ci si potesse rendere conto di quello che stava succedendo e non solo 
vedere un "attendere prego" e non sai.. che ca... succede..
x favore qualcuno ha fatto qualcosa del genere o ha usato altro ?
o magari usare urldownload... e' il modo piu' barbaro x fare questa cosa e 
si consiglia di farlo in altro mdo?
Thx a tutti.
P.S.
Un Saluto a PablitoMf e a MA, ho visto oggi il vostro saltanto a sx e a dx 
tra i siti cercando la soluzione, quindi mi sento in  dovere almeno di 
salutarVi ,visto che siete napoletani come me e vi ho letto tante volte nel 
newsgroup.

 Thx a tutti.

-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao è proprio di Pablitomf un metodo per comunicare con una pagina web
su 
accessgroup.it
Puoi adattarlo alla tua necessità
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

> letto tante volte nel newsgroup.
Ah Pablě, ti ha commosso e lasciato senza parole??


 > newsgroup.
Bene, prima di tutto benvenuto... poi grazie per i saluti che ricambio...
da MA non te li aspettare, è nu' scustumat'! :D (Scherzo, è un mio caro
amico, pertanto non potrebbe mai esserlo... sono sicuro che si accoda ai
saluti anche lui).
Passiamo alla tua questione... il giochino effettivamente è abbastanza
utile... basta iniziare in primissima istanza a non "recuperare" il tuo FD
da URL ma da FTP con un bel LOGIN e PWD...
Poi io faccio così : 
Il file da scaricare è ad esempio 1,723 Mb? Bene, io sul server metto un
bel file txt contenente il testo 1723. (Io il file txt lo denomino con il
nome/num della relese progressiva on-line... Tipo 56.txt come lo è il
56.exe del FE)
Poi nella prima Form, in apertura faccio questo controllo : 
Dim J As Long
DoEvents
'   Recupera il File on-line
J = URLDownloadToFile(0, "
http://tuo_percorso/tuo_file.txt
",
"C:\tuo_percorso_dwnload\tuo_file.txt", 0, 0)
DoEvents
If J = 0 Then
   MsgBox "Vi sono nuovi aggiornamenti on-line"
   DoCmd.OpenForm "Mia_FORM_DOWNLOAD"
Exit Sub
End If
End If
...
La mia Form_DOWNLOAD  contiene una progressbar creata senza ocx... 2
label.. 1 come sfondo l'altra sovrapposta come progressione.
su questa Form eseguo su timer :
'FERMO IL TIMER
Me.Timerinterval = 0
'LEGGE GRANDEZZA FILE DA DOWNLOADARE (DA FILE TESTO)
Dim fso As Object
Dim file As Object
Set fso = CreateObject("scripting.filesystemobject")
Set file = fso.opentextfile("C:\tuo_percorso_dwnload\tuo_file.txt")
Me.lbl_filesize = file.readline
filesize = Me.lbl_filesize
Me.Application.Echo False
  Call TestFTP
Me.Application.Echo True
Sub TestFTP()
Dim objFTP As FTP
  Set objFTP = New FTP
  With objFTP
    .UseProxy = True
    .FtpURL = "ftp://UserFTP:Tuo_User@Tuo_server_FTP/tuo_file.exe"
    .DestinationFile = "C:\tuo_percorso_dwnload\tuo_file.exe"
    'If .FileExists Then .OverwriteTarget = True
    .PromptWithCommonDialog = False
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost
    .WriteFTPDataToFile
  End With
ExitHere:
  On Error Resume Next
  Set objFTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly,
err.Source
  Resume ExitHere
End Sub
il calcolo della progressione lo faccio nel codice che definisce il
ConnectToFTPHost (Codice per il trasferimento FTP)
Chissà se sono stato chiaro. :-D
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno


 56.exe del FE)
.......
bene inutile riportare tutto il quote..... prima di tutto thx
comunque... mamm' ro carmine.. che casino..
adesso ho la testa che mi scoppia.. ma domani.. anzi domani no che' e' 
festa.. direi  lunedi mattina mi metto all'opera e vedremo di applicare il 
tutto..
thx ancora..