Lothar Kriegerow
Active Member
Hallo,
ich übertrage ein ZIP-File mittels FTP-Server auf meine HDD an der Fritz!Box.
Die Übertragung funktionierte bei einer Dateigröße von 350MB noch einwandfrei. Jetzt ist das ZIP-File 360MB. Nach der Übertragung hat die Datei die gleiche Größe wie das Original, trotzdem erhalte ich die Meldung das Archiv ist korrupt.
Gibt es eine Größenbeschränkung? Oder muss ich es bei großen Dateien anders angehen?
Hier mal der Code:
Gruß Lothar
ich übertrage ein ZIP-File mittels FTP-Server auf meine HDD an der Fritz!Box.
Die Übertragung funktionierte bei einer Dateigröße von 350MB noch einwandfrei. Jetzt ist das ZIP-File 360MB. Nach der Übertragung hat die Datei die gleiche Größe wie das Original, trotzdem erhalte ich die Meldung das Archiv ist korrupt.
Gibt es eine Größenbeschränkung? Oder muss ich es bei großen Dateien anders angehen?
Hier mal der Code:
B4X:
Sub FTP_UploadCompleted (ServerPath As String, Success As Boolean)
Log(ServerPath & ", Success=" & Success)
If Success = False Then
Log(LastException.Message)
Else
lblStatus.Text=" Download beendet"
ToastMessageShow("Die Datenübertragung wurde erfolgreich abgeschlossen.",False)
FTP.Close
End If
End Sub
Sub BtnSend_Click
lblStatus.Text=""
Dim sf As Object = xui.Msgbox2Async("Wollen Sie wirklich die Datenbank nach WD-MyPassport0830-01/MyDiary/MyDiary.dat hochladen?","Frage?", "Ja", "", "Nein", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
lblStatus.Text=" Sende Daten..."
Sleep(1)
FTP.Initialize("FTP", "lotharxxxx.ddns.net", 21, "XXXX", "XXXXX")
BtnSend.Enabled=False
Sleep(1)
FTP.UploadFile(Starter.Verz ,lblDat.text, True, "WD-MyPassport0830-01/MyDiary/MyD.zip")
End If
End Sub