Abbruch eines laufenden FTP Downloads

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von joniator.

    Abbruch eines laufenden FTP Downloads

    Hallo,

    ich habe mich heute zum ersten Mal an VB.net rangetraut. Komme normalerweise eher aus den Scriptsprachen wie Javascript und PHP und tu mich noch etwas schwer.
    Einige kleine Anwendungen habe ich Autoit umgesetzt, was aber schnell an seine Grenzen stößt. Nun versuche ich einige Projekte auf VB.NET umzuziehen.

    Ich schreibe einen Downloader, der anhand von zwei eingegeben Kriterien eine INI-Datei auf dem FTP ausliest, die widerum die echten Downloadinfos enthält.
    Funktioniert wie ne 1 :)
    Sobald ich den Download-Button drücke, ändert der seinen Text in Cancel

    Der Download klappt und auch die Progressbar wird richtig geupdated.

    Nun ist die Anwendung aber so krass mit dem Download beschäftigt, dass ich den "neuen" Cancel button nicht mehr clicken kann.
    Der Download läuft in einem Loop.
    Ich weiß, ich hätte viel mehr in Funktionen auslagern können, aber das kommt danach, wenn endlich mal alles steht :)

    Hier der Code des Downloadbuttons:

    VB.NET-Quellcode

    1. Private Sub buttonDownload_Click(sender As Object, e As EventArgs) Handles buttonDownload.Click
    2. If buttonDownload.Text = "Download" Then
    3. Dim bAbortDownload = False
    4. buttonDownload.Text = "Cancel"
    5. buttonDownload.Update()
    7. Dim ftpHost As String = "ftp://irgendeinserver/"
    8. Dim ftpUser As String = "USER"
    9. Dim ftpPassword As String = "password"
    10. Dim ftpRemoteFile As String = "/" & textFilename.Text
    11. Dim ftpLocalFile As String = textFilename.Text
    12. 'MessageBox.Show(ftpRemoteFile, "bla", MessageBoxButtons.OK)
    14. Try
    15. Dim ftpSizeUrl As String = ftpHost & ftpRemoteFile
    16. Dim ftpSizeReq As FtpWebRequest = System.Net.FtpWebRequest.Create(ftpSizeUrl)
    17. ftpSizeReq.Credentials = New NetworkCredential(ftpUser, ftpPassword)
    18. ftpSizeReq.KeepAlive = False
    20. ftpSizeReq.Method = WebRequestMethods.Ftp.GetFileSize
    21. Dim ftpListResponse As FtpWebResponse = ftpSizeReq.GetResponse
    22. Dim ftpRemoteFileSize As Long = ftpListResponse.ContentLength
    23. barProgress.Maximum = ftpRemoteFileSize
    25. Dim ftpUrl As String = ftpHost & ftpRemoteFile
    26. Dim ftpReq As FtpWebRequest = System.Net.FtpWebRequest.Create(ftpUrl)
    27. ftpReq.Credentials = New NetworkCredential(ftpUser, ftpPassword)
    28. ftpReq.KeepAlive = False
    29. ftpReq.Credentials = New NetworkCredential(ftpUser, ftpPassword)
    30. ftpReq.KeepAlive = False
    32. ftpReq.Method = WebRequestMethods.Ftp.DownloadFile
    33. Using ftpResp As System.Net.FtpWebResponse = CType(ftpReq.GetResponse, FtpWebResponse)
    34. Using ftpRespStream As Stream = ftpResp.GetResponseStream
    35. Using localFileStream As New FileStream(ftpLocalFile, FileMode.Create)
    36. Dim buffer(2047) As Byte
    37. Dim read As Integer = 0
    38. Do
    39. If bAbortDownload = True Then
    40. Exit Do
    41. End If
    42. read = ftpRespStream.Read(buffer, 0, buffer.Length)
    43. localFileStream.Write(buffer, 0, read)
    44. barProgress.Value = localFileStream.Length
    45. barProgress.Update()
    46. Loop Until read = 0
    47. ftpRespStream.Close()
    48. localFileStream.Flush()
    49. localFileStream.Close()
    50. End Using
    51. ftpRespStream.Close()
    52. End Using
    53. ftpResp.Close()
    54. End Using
    55. buttonDownload.Text = "Download"
    56. buttonDownload.Enabled = False
    57. buttonDownload.Update()
    58. Catch ex As Exception
    59. MessageBox.Show("error", "Error", MessageBoxButtons.OK)
    60. End Try
    61. Else
    62. Dim bAbortDownload = True
    63. buttonDownload.Text = "Download"
    64. buttonDownload.Enabled = False
    65. buttonDownload.Update()
    66. End If
    67. Return
    68. End Sub

    Das ganze Download-Geraffel in einen eigenen Thread auslagern.
    Wenn's dir nicht mehr gefällt kannst du den Thread mit Abort abbrechen oder alternativ die Abort-Variable beeinflussen.

    Am besten noch die ganze Struktur in eine eigene Klasse verlagern, die du mehrfach instantiieren kannst.

    Edit: oder s.u.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Erzeuge einen downloader im form mit eventen sieht so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    2. WithEvents d As New Net.WebClient

    Danach ladest du asyncron die datei runter, und wen du es cancelen willst:

    VB.NET-Quellcode

    1. d.CancelAsync()

    Diese methode bringt dir mehrere vorteile, z.b: Du kannst auch den downloadfortschritt verfolgen.
    Google mal "vb.net download async" es gibt tausende tuts dazu :D
    MFG
    Wer Rechtschreibfehler findet darf sie behalten :)

Facebook
Telefonspende