German TXT Datei über FTP öffnen

H

HarryPottier

Member
Licensed User
Ich such eine Möglichkeit mit FTP eine Datei von Server zu laden und dieser in eine ListView oder EditText oder zu öffnen. Ich benötige den String

Mit:
links.Put(ImageView2, "http://192.168.178.53/img/B04.jpg")
Und:
CallSubDelayed2(ImageDownloader, "Download", links)

Funktioniert das sehr gut (mit JPG Bilder)

Jedoch muss ich eine Textdatei öffnen (liegt im gleichen Ordner)
 
H

HarryPottier

Member
Licensed User
Der Umweg über eine sdcard ist für das vorgesehene APP nicht praktikable.

PC und Android APP müssen Zeitgleich auf eine Datei zugreifen können, somit Daten untereinander austauchen.

Deshalb den Weg über das FTP

Wie das Beispiel zeigt

links.Put(ImageView2, "http://192.168.178.53/img/B04.jpg"

existiert ja ein direkter Weg über FTP
 

DonManfred

Expert
Licensed User
Longtime User
HarryPottier said:
PC und Android APP müssen Zeitgleich auf eine Datei zugreifen können, somit Daten untereinander austauchen.
Click to expand...
Dann mussst Du einen Server aufsetzen (B4J z.B.) und von beiden über den Server zugreifen.
Sowas wie paraleler Zugriff einer Datei von windows und von Mobil gibt es nicht.
 

DonManfred

Expert
Licensed User
Longtime User
H

HarryPottier

Member
Licensed User
Richtig, auf 192.168.178.53 lauft ein Webserver von XAMPP
unter c:\xampp\htdocs\ existiert der Ordner "img"

Im "img" Ordner befinden sich mehreren JPG‘s sowie eine Datei "Kasse.txt"

Der Inhalt von "Kasse.txt" möchte ich auslesen, nach Möglichkeit Zeile nach Zeile

Kann mir nicht vorstellen, dass sowas nicht geht, sonst wäre ja B4A unbrauchbar

Hier ein Code-Beispiel
mit dem ich gerade versuche einen nicht so eleganten weg zu gehen.

B4X: 
Sub DownloadTXT
    Dim j As HttpJob
    j.Initialize("", Me)
    
    j.Download("http://192.168.178.53/img/Kasse.txt")
    Wait For (j) JobDone(j As HttpJob)
    
    If j.Success Then
        Dim jp As JSONParser
        jp.Initialize(j.GetString)
        Dim TZ As String
        Dim L As Int
        Dim i As Int
        TZ = j.GetString
        L = TZ.Length
        
        For i = 1 To L Step 10
            Zuordnung(i) = TZ.SubString2(I, I+10)
        Next
        
    End If
    j.Release
End Sub
 

DonManfred

Expert
Licensed User
Longtime User
HarryPottier said:
Der Inhalt von "Kasse.txt" möchte ich auslesen, nach Möglichkeit Zeile nach Zeile
Click to expand...
Datei mir okhttputils runterladen und einen string aus job.getstring gefüllen. Benutzte regex um die Zeilen zu splitten.

Oder speichere die datei nach dem download und lade sie dann mit File.Readlist
 
You must log in or register to reply here.

Similar Threads

German FTP Datenübertragung fehlerhaft.
Replies
8
Views
966
Lothar Kriegerow
H
German Datei von Laufwerk C:\ öffnen
Replies
5
Views
2K
pucki
P
P
German Datei zur Verarbeitung aus dem Internet holen
Replies
9
Views
1K
Alexander Stolte
D
German Datenübertragung über TCP IP oda FTP?
Replies
0
Views
2K
danebn11
D
D
German Datenübertragung über TCP IP oda FTP?
Replies
5
Views
2K
OliverA
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…