+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb.Net FTP dosya indirme. (/konu-vb-net-ftp-dosya-indirme.html)
Vb.Net FTP dosya indirme. - Mettleshade - 30/10/2016
Yaptım. Yetkili birisi konuyu silerse güzel olur
kusuruma bakmayın
Cvp: Vb.Net FTP dosya indirme. - ozanakkaya - 30/10/2016
Merhaba. Sorunuzu çözmüş olabilirsiniz ancak mesajınızın tamamını değiştiremezsiniz.
Mesajınızı değiştirmek yerine, bulduğunuz çözümü yeni mesaj olarak yazsanız, benzeri sorun yaşayanlar okuyup çözüm olarak kullansalardı daha iyi olmaz mıydı?
Site Kuralları.
15-) Konu eklendikten sonra, konu başlığının ve/veya mesajınızın tamamını “çözüldü”, “gerek kalmadı”, “iptal” vb. şekilde değiştirmek yasaktır. Konu başlığındaki ve/veya mesajdaki imla hatalarını düzeltebilirsiniz ancak konu başlığının ve/veya mesaj içeriğinin tamamını değiştiremezsiniz.
Cvp: Vb.Net FTP dosya indirme. - alpeki99 - 30/10/2016
İhtiyacı olan üyelerimiz için şu şekilde çözüm üretebilirler:
Bir tane form üzerine buton ve progressbar ekleyin. İsimleri btnIndir ve prgIndirmeSureci olacak. Butonun click olayına aşağıdaki kodu ekleyin:
Dim client As WebClient = New WebClient
AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
client.DownloadFileAsync(New Uri("http://www.adres.com/IndirilecekDosya.rar"), Application.StartupPath + "\\DosyaninYeniAdi.rar")
btnIndir.Text = "İndirme devam ediyor..."
btnIndir.Enabled = FalseBurada kullandığımız WebClient kütüphanesi için Import etmemiz gereken kütüphane ise System.Net olacak. Dosyanın adresini ve indirilecek yeri kendinize göre revize edersiniz.
Burada iki tane olay tanımlandı:
client_ProgressChanged ile client_DownloadCompleted ise şu şekilde olacak:
Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
Dim percentage As Double = bytesIn / totalBytes * 100
prgIndirmeSureci.Value = Int32.Parse(Math.Truncate(percentage).ToString())
End SubPrivate Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
MessageBox.Show("İndirme işlemi tamamlandı")
btnIndir.Text = "İndir"
btnIndir.Enabled = True
End Subclient_ProgressChanged ile dosya indirirken indirme oranına göre progressbar değerini arttırıyoruz. client_DownloadCompleted ile ise indirme işlemi tamamlanınca indirme tamamlandı diye mesaj verecek.