das hier ist als "anonym" aber ohne smb.isExist, und funktioniert auch ohne Probleme.
Problem ist smb.isExist..
wobei der hinter dem @ stehende Text jedesmal anders ist. Kannst du damit was anfangen?java.io.BufferedReader@474bfa=
@kaplanerkan
Das Kopieren klappt zwar, aber die Datei auf dem Android-Gerät zeigt nur den Inhalt: wobei der hinter dem @ stehende Text jedesmal anders ist. Kannst du damit was anfangen?
Die Datei ist eine einfache Textdatei, deren Inhalt UTF8-kodiert ist. Bei einer manuellen Übertragung kann mein Programm die problemlos lesen.
Sub SQLFillTablePDABelegung
'hier ist ein call , um xml-datei zu kopieren
Dim in As TextReader
in.Initialize (File.OpenInput (DBFilePathInternBackup, "pda_belegung.xml"))
'HIER meckerte immer, und kam immer Fehlermeldung...
pdaBelegungParser.Parse2(in, "pdaBelegungParser")
in.Close
End Sub
Sub SQLFillTablePDABelegung
'parser speisekarte.xml und schreibe in datenbank
Dim in As TextReader
in.Initialize (File.OpenInput (DBFilePathInternBackup, "pda_belegung.xml"))
Wait(3) ' Lasse hier 3Sek. warten. Dann mecker er nicht mehr
' und die kopierte Datei ist OK.
pdaBelegungParser.Parse2(in, "pdaBelegungParser")
in.Close
End Sub
Sub Wait(Sekunden As Int)
Dim Ti As Long
Ti = DateTime.Now + (Sekunden * 1000)
Do While DateTime.Now < Ti
DoEvents
Loop
End Sub
ProgressDialogShow("bitte etwas Geduld, die Setzliste wird übertragen und eingelesen...")
smb.copyToLocal("smb://" & VMip & "/" & VMpfad & "/Setzliste4a.txt", ListDir & "/Setzliste4A.tmp")
Wait(10)
ProgressDialogHide
'
If File.Exists(ListDir, "Setzliste4A.tmp") = True Then
ListVar = File.readlist(ListDir,"Setzliste4A.tmp") 'Datei einlesen
If ListVar.Size <= 1 Then 'Datei nicht in Ordnung
File.Delete (ListDir, "Setzliste4A.tmp")
Msgbox("Die übertragene Datei ist nicht OK","Problem [301]")
Return
Else 'es ist alles OK mit der geholten Datei
File.Copy(ListDir, "Setzliste4A.tmp",ListDir, "Setzliste4A.txt")
File.Delete (ListDir, "Setzliste4A.tmp")
End If
Else
Msgbox("Datei wurde nicht übertragen!","")
End If