German TXT Datei über FTP öffnen

[HarryPottier]

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)

 

[DonManfred]

txt Datei runterladen, auf sdcard speichern, gespeicherte datei einladen.
Das musst Du schon selber machen.

 

[HarryPottier]

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]

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

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]

Wie das Beispiel zeigt

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

existiert ja ein direkter Weg über FTP

Falsch! Die URL hat NICHTS mit FTP zu tun. Das ist eine Webseiten-URL. d.h. auf 192.168.178.53 läuft - mindestens - ein Webserver.

 

[HarryPottier]

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.

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]

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

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