German Daten von Handy zu Handy

[Wolli013]

Welches ist die einfachste Methode, eine Datensicherung von Handy zu Handy zu übertragen?

NFC?
Bluetooth?
Oder?

Hat jemand eventuell ein Code Beispiel?

 

[Alexander Stolte]

Bluetooth, WLAN oder Wifi Direct

mit WLAN muss das Handy im gleichen WLAN sein wie das 2. Handy, wenn kein WLAN verfügbar dann Bluetooth oder WIFI Direct.

Ich empfehle: https://www.b4x.com/android/forum/threads/filetransfer-send-and-receive-files-with-asyncstreams.30493/#content

das beispiel wird nicht funktionieren einen Fix gibt es hier:

https://www.b4x.com/android/forum/threads/cursorindex-out-of-bounds-exception.74797/

Mit freundlichen Grüßen
Alexander

 

[Wolli013]

Die Funktion (GetPathFromContentResult) habe ich komplett gelöscht, weil ich es so nicht benötige.

 

[Alexander Stolte]

Dann ist es gut, da es dort kompliziert wird, wenn man es richtig machen will, da "GetPathFromContentResult" nicht funktioniert, wenn es keine Bilder oder Videos sind. Man müsste sich dann was eigenes bauen.

 

[Wolli013]

Wie kann ich denn wärend der Laufzeit die StreamFolder ändern?

ich brauche nämlich noch File.DirRootExternal für andere Daten

Private Sub StartAStream (In As InputStream, out As OutputStream)
   Log("StartAStream")
   astream.InitializePrefix(In, True, out, "astream")
   If File.ExternalWritable Then
     'astream.StreamFolder = File.DirDefaultExternal 'Orginal
     astream.StreamFolder = File.DirRootExternal ' Wechseln aber wie, wärend der Laufzeit
   Else
     astream.StreamFolder = File.DirInternalCache
   End If
End Sub

 

[Alexander Stolte]

sind denn die Datentypen die abgelegt werden bei beiden gleich?

 

[Alexander Stolte]

ist es denn mit 2 buttons nicht realisierbar ? ich kenne deine App ja nicht, daher ist es schwer mich da hineinversetzen

 

[Wolli013]

Ich versende 1 x Datenbanken und 1 x Bilder, die Bilder müssen aber in einen Unterordner.

Hier der Code fürs senden, was auch super funktioniert, nur benötige ich zur Laufzeit ein Ordnerwechsel auf dem Empfänger Gerät.

Sub btnChooseFile_Click

If File.Exists(File.DirDefaultExternal, "bilder.db") = True Then
CallSubDelayed3(FileTranser, "SendFile", File.DirDefaultExternal, "bilder.db")
End If
         
Dim Files As List = File.ListFiles(File.DirRootExternal & "/copybilder")
    Dim FileName1 As String
    For i = 0 To Files.Size-1
    FileName1 = Files.Get(i)
    CallSubDelayed3(FileTranser, "SendFile", File.DirRootExternal & "/copybilder", FileName1)
    Next 

End Sub

 

[Alexander Stolte]

So wie ich das verstanden hab, ganz einfach. Du sendest zuerst die Datenbank und dann die bilder. Gucke mal wann diese Funktion aufgerufen wird:

StartAStream

mach eine 2. Funktion z.b.

StartAStream2

gib dort in der Funktion den Unterordner an und somit sollte es Funktionieren.

Mit freundlichen Grüßen
Alexander

 

[Wolli013]

Das haut irgendwie nicht hin, es wird dann sofort die Verbindung unterbrochen wenn ich es nochmal aufrufe.

 

[Alexander Stolte]

Beende vorher den 1. Stream

 

[Wolli013]

Ok werde ich mal testen.

 

[Alexander Stolte]

Und was ich vergessen hatte, der Speicherort wird beim verbinden mit dem 2. Handy erst bestimmt, d.h. musst die Verbindung trennen und Neuaufbauen. Da ich viel schon damit gemacht habe, kenne ich den Ablauf.

 

[Wolli013]

Bekomme es mit 2 Streams nicht hin!
Vielleicht geht es auch gar nicht oder nur zu umständlich.
Ich mache es jetzt nur mit einem, kopiere alles in einen Unterordner auf dem Empfangsgerät und verteile von da aus in die richtigen Ordner.
So geht es auf jeden Fall.

Danke für deine Mithilfe.