Neuer vielversprechender Versuch Datei kopieren, Backgroundworker und Progress

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Neuer vielversprechender Versuch Datei kopieren, Backgroundworker und Progress

    Hi

    Beim kopieren einer Datei mit gerade mal 32 MB erhalten ich folgende Fehlermeldung als Errormeldung:

    Die arithmetische Operation hat einen Überlauf verursacht.

    Will damit eigentlich meine eigenen Sicherungen nochmal extern sichern... Die Dateien sind ca. 60 GB Gross. Daher kommt mir das gerade nicht so recht, wenn das Programm dies abbricht...

    Hier mal der Code der Kopiert:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. ' Quelldatei auswählen
    3. Dim sourcefile As FileInfo
    4. sourcefile = New FileInfo(Label13.Text)
    7. ' Zielverzeichnis auswählen
    8. Dim target As String
    9. target = Label12.Text
    12. ' Kopiervorgang starten
    13. Copy2(sourcefile, Label12.Text)
    14. End Sub


    VB.NET-Quellcode

    1. Private Sub Copy2(ByVal SourceFile As FileInfo, ByVal Target As String)
    2. ' Progressbar anpassen
    3. ProgressBar2.Value = 0
    5. ' Es gilt hier zu beachten, dass der Maximumwert ein Integer ist und
    6. ' daher die Length-Angabe über dem Bereich des Integer hinaus liegen kann.
    7. ' In so einem Fall müsste man den Maximumwert anders definieren
    8. ProgressBar2.Maximum = SourceFile.Length
    10. Try
    11. ' Quelle
    12. Dim fsmsource As FileStream
    13. ' Zieldatei
    14. Dim fsmtarget As FileStream
    16. ' Größe des bei jedem Durchlauf einzulesenden Datenpaketes
    17. Dim buffersize As Int32 = 1024 * 30 ' (30 KByte)
    19. ' Enthält nacher die in buffersize angegeben Menge an
    20. ' eingelesenen Daten
    21. Dim buffer(buffersize) As Byte
    23. ' Ermittelt die tatsächliche eingelesene Menge an Daten
    24. ' im Bytearray readbyte
    25. Dim readbyte As Int32
    27. ' Quelldatei
    28. fsmsource = New FileStream(SourceFile.FullName, FileMode.Open, _
    29. FileAccess.Read, FileShare.Read)
    31. ' Zieldatei
    32. fsmtarget = New FileStream(Target + "\" + SourceFile.Name, _
    33. FileMode.OpenOrCreate, FileAccess.Write)
    35. ' Daten nach und nach einlesen und im Zielstream wieder zurückschreiben
    36. While fsmsource.Position < fsmsource.Length
    37. ' Quelle einlesen
    38. readbyte = fsmsource.Read(buffer, 0, buffersize)
    40. ' In das Ziel schreiben
    41. fsmtarget.Write(buffer, 0, readbyte)
    43. ' Value Eigenschaft der Progressbar anpassen, das Label gibt
    44. ' den prozentualen Fortschritt an
    45. With ProgressBar2
    46. .Value += readbyte
    47. Label20.Text = CStr(CInt(100 * .Value / .Maximum)) + "%"
    48. End With
    50. ' Reporten
    51. Application.DoEvents()
    52. End While
    54. ' Streams schließen
    55. fsmsource.Close()
    56. fsmtarget.Close()
    58. MsgBox("Datei erfolgreich kopiert", MsgBoxStyle.Information)
    60. ProgressBar2.Value = 0
    61. Label20.Text = "0%"
    63. Catch ex As Exception
    64. MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
    65. End Try
    66. End Sub


    Ich vermute mal das hat was mit dieser Zeile zu tun?
    ' Größe des bei jedem Durchlauf einzulesenden Datenpaketes
    Dim buffersize As Int32 = 1024 * 30 ' (30 KByte)

    Was müßte ich daran den ändern, daß ich auch Dateien > 50 GB noch kopieren kann??

    lg lris08

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „lris08“ ()

    Read this:

    VB.NET-Quellcode

    1. ' Es gilt hier zu beachten, dass der Maximumwert ein Integer ist und
    2. ' daher die Length-Angabe über dem Bereich des Integer hinaus liegen kann.
    3. ' In so einem Fall müsste man den Maximumwert anders definieren


    Also, Maximumwert anders definieren! Quersumme nehmen zum Beispiel.

    MFG Solaris

    Kennst du eigentlich überhaupt deine IDE?!?
    Normalerweise unterlegt VS dir die Zeile mit dem Fehler gelb...
    Welche ist es?

    -BTW-
    Wenn Solaris Recht hat, dann liegt der Fehler darin, dass du den Progressbar über seinen Maximalwert hinaus fullen Willst, was AFAIK nicht geht.

    Außerdem haben Controls NAMEN verdient.
    ~prgStatus etc.
    Siehe Link "Von Stil und Code" in meiner Sig.

    FAtheone schrieb:

    Kennst du eigentlich überhaupt deine IDE?!?
    Normalerweise unterlegt VS dir die Zeile mit dem Fehler gelb...
    Welche ist es?

    -BTW-
    Wenn Solaris Recht hat, dann liegt der Fehler darin, dass du den Progressbar über seinen Maximalwert hinaus fullen Willst, was AFAIK nicht geht.

    Außerdem haben Controls NAMEN verdient.
    ~prgStatus etc.
    Siehe Link "Von Stil und Code" in meiner Sig.



    Ich hab mit VB gerade mal jetzt 5 Tage zu tun - und bin echt heil froh dass ich es überhaupt so weit geschaffft hab...

    Jetzt hab ich das auch bisserl verstanden, daß ich da einen zu hohen WErt drinnen hab - hab das auch schon versucht mit der Quersumme - aber das haut no ned ganz hin...

    Singu der ist doch nicht hübsch ;)

    Jaja Iris C&P-Code ne? Wenn man schon Code kopiert sollte man sich wenigstens die Kommentare zu Gemüte führen um bei Fragen nicht ganz so dumm da zu stehen.

    Soll jetzt keine Beleidigung deiner Person sein, eher Kritik an deiner Vorgehensweise.

    MFG Solaris

    Quersumme ?
    Ich denke das ist keine gute Lösung. Ich würde die Dateigröße erst auslesen, und je nach Größe die Progressbar auf Byte/KByte/MByte Größe setzen.
    Wenn du du bei 32 MB in 30 KByteschritten die Progressbar hochzählst ist das leicht übertrieben (unabhängig davon das es nicht geht wegen dem Integerüberlauf)

    Wenn du die Dimension des Maximums der Progressbar veränderst musst du dann halt die readbyte ebenfalls anpassen.
    Das ist meine Signatur und sie wird wunderbar sein!

    Neuer vielversprechender Versucht Kopie, Progress und Background...

    Hallo zusammen,

    nach nur 3 Std. Schlaf und ner ordentlicher Session mit Backgroundworker, Progressbar und Datei kopieren - habe ich nun endlich was zusammen gebracht, was ich auch ganz gut verstehe und fast alles nachvollziehen kann.
    Da ich aber immer noch im gegenzug zu euch totaler Anfänger bin - hab natürlich noch eine Frage an euch.

    Habe den unten genannten Code nicht kompl. selbst geschrieben, aber gesucht und gefunden - ausprobiert im Original und dann stück für Stück an meine Bedürfnisse angepasst.

    Es funktioniert soweit ganz gut.
    Sogar das hochzählen der Bytes wärrend des kopierens funz..

    nur meine ProgressBar selbst mag Ihren Dienst noch nicht leisten...
    Wenn ich sie umstelle auf Marquee und ein Kopiervorgang läuft, läuft das Teil so langsam, daß selbst bei fast 300 MB er gerade mal die hälfte seiner Strecke abläuft.
    Wenn Sie auch Bloks gestellt ist, fängt Sie erst gar nicht an zu laufen...

    ich vermute es liegt an diesen Zeilen:

    VB.NET-Quellcode

    1. Private Sub th_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
    3. Dim fi As New FileInfo(Me.lblSource.Text)
    4. Dim inStream As FileStream = Nothing
    5. Dim outStream As FileStream = Nothing
    6. Dim buffer(2048) As Byte
    7. Dim offset As Integer = 0
    9. Try
    10. inStream = New FileStream(fi.FullName, FileMode.Open)
    11. outStream = New FileStream(Me.lblTarget.Text & "\" & fi.Name, FileMode.Create)
    12. lngSourceFileLength = inStream.Length
    13. Do
    14. If th.CancellationPending = True Then
    15. e.Cancel = True
    16. inStream.Close()
    17. outStream.Close()
    18. Exit Sub
    19. End If
    20. offset = inStream.Read(buffer, 0, buffer.Length)
    21. outStream.Write(buffer, 0, offset)
    22. lngBytesCopied += offset
    24. ' WICHTIG: Hier könen wir einen Progress darstellen
    25. th.ReportProgress(offset / inStream.Length * 100)
    26. Loop Until offset = 0
    28. Catch ex As Exception
    29. MessageBox.Show(ex.Message)
    31. Finally
    32. inStream.Close()
    33. outStream.Close()
    34. End Try
    35. End Sub
    37. Private Sub th_ProgressChanged(ByVal sender As Object, _
    38. ByVal e As ProgressChangedEventArgs)
    40. Try
    41. Me.Progress.Text = lngBytesCopied.ToString & " Bytes From " & lngSourceFileLength.ToString & " Copied"
    42. Me.ProgressBar1.Value = e.ProgressPercentage.ToString
    43. Catch ex As Exception
    44. MessageBox.Show(ex.Message)
    45. End Try
    46. End Sub


    Geneuer gesagt an diesen:

    VB.NET-Quellcode

    1. ' WICHTIG: Hier könen wir einen Progress darstellen <- das stand auch im Original und habs versucht zu änder, ohne Erfolg!
    2. th.ReportProgress(offset / inStream.Length * 100)

    VB.NET-Quellcode

    1. Try
    2. Me.Progress.Text = lngBytesCopied.ToString & " Bytes From " & lngSourceFileLength.ToString & " Copied"
    3. Me.ProgressBar1.Value = e.ProgressPercentage.ToString
    4. Catch ex As Exception
    5. MessageBox.Show(ex.Message)
    6. End Try


    Das hochzählen der Bytes klappt aber...

    vielleicht könntet Ihr mir da noch mal weiterhelfen... wäre echt super nett...

    Danke

    lris08 schrieb:

    Me.ProgressBar1.Value = e.ProgressPercentage.ToString

    Aha ...
    EineZahl = IrgendeineZahl.ToString ?
    Dim i as integer = 1.ToString ?

    pb.value = e.ProgressPercentage !

    Außerdem hilft dir natürlich Marquee nicht viel, denn der ist ja für Fälle gedacht, wo man nicht weiß, wie groß der Fortschritt ist. Deswegen zeigt man einfach "Bewegung" unabhängig vom Fortschritt.

    VB.NET-Quellcode

    1. Try
    2. Debug.Print(1)
    3. Exit Sub
    4. Catch ex As Exception
    6. Finally
    7. Debug.Print(2)
    9. End Try

    output:
    1
    2

    Was sagt uns das? Finally wird IMMER ausgeführt, selbst wenn vorher ein "Exit Sub" steht! Im "CancelationPending" kannst du dir also das schließen sparen, da das schließen ja im Finally steht.

    picoflop schrieb:

    Aha ...
    EineZahl = IrgendeineZahl.ToString ?
    Dim i as integer = 1.ToString ?

    pb.value = e.ProgressPercentage !


    ja das mit .tostring - war wirklich unbeabsichtigt.


    Me.ProgressBar1.Value = e.ProgressPercentage

    Hier glaube ich mein Problem:

    VB.NET-Quellcode

    1. offset = inStream.Read(buffer, 0, buffer.Length)
    2. outStream.Write(buffer, 0, offset)
    3. lngBytesCopied += offset
    5. ' WICHTIG: Hier könen wir einen Progress darstellen
    6. th.ReportProgress(offset / inStream.Length * 100)


    offset / inStream.Length müsste ja 0 ergeben wenn ich das richtig nachvollziehe...
    dan * 100 bleibt 0 - somit macht die Prog.Bar auch nix...


    Nachtrag: Bei th.ReportProgress(100) füllt er sie dann ganz schnell aus...
    aber so kanns ja nicht riuchtig sein

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „lris08“ ()

    Mach deine PB mal wieder "normal" (also nicht Marquee). Setze sie auf 0 Min und 100 Max (Prozent!).
    Außerdem darfst du nicht "offset" zur Berechnung verwenden, denn bei dir ist das jedesmal die Länge des gelesenen Streams. du musst also noch was haben wie:
    GeleseneBytes += offset

    Dann berechnest du die Prozentzahl mit:
    Prozent = (GeleseneBytes) / InFileGroesse) * 100
    Und das meldest du dann via ReportProgress, wo du dann die PB auf diesen Wert setzt.

    EDIT: du hast ja schon lngBytesCopied ... du musst es nur verwenden ;)

    Und jetzt funktionierts fast zu 99% :)

    Danke vorab erstmal...

    Diese Werte verwende ich nun: (bereits abgearbeitete Bytes und Filegröße Bytes)

    VB.NET-Quellcode

    1. Me.lblSource.Text = Form2.Label22.Text & "\" & Form2.Label13.Text
    2. Me.lblTarget.Text = Form2.Label11.Tex


    und schon funktionierts...

    VB.NET-Quellcode

    1. ' WICHTIG: Hier könen wir einen Progress darstellen
    2. 'th.ReportProgress(offset / inStream.Length * 100)
    4. th.ReportProgress((lngBytesCopied / lngSourceFileLength) * 100)




    Das einzige was noch ist, am Anfang wenn das Programm gestartet wird, friert es erst mal kurz ein... und die Label's bleiben weis unterlegt - das gibt sich aber dann und es läuft.

    Ist das normal das es einfriert ?



    Nochmals Danke für eure Geduld - ich weis, hab schon echt blöde Fragen gestellt... sorry...