Ich verzweifle noch mit der Dokumentation zu B4A... Heute morgen dachte ich es wäre nur ein Klacks eine Datei von meinem Server zu holen und gleich im SSD-Speicher abzulegen.
Die Tutorials sind so widersprüchlich und oft veraltet oder beginnen gleich wieder damit, dass eine Library modifiziert wurde für das Beispiel. Daher meine Bitte und Frage: Wie geht das mit den ganz normalen Bordwerkzeugen von B4A?
Ich benutze die OKHttpUtil2-Bibliothek
das kann ich schon und hat funktioniert:
Bilder vom Server holen und gleich einem View zuweisen
Daten vom Server holen und einem Stream zuweisen
was mir nicht gelingen will, ist den hereinkommenden Stream jetzt irgendwie in eine Datei umzuleiten.
Die Tutorials sind so widersprüchlich und oft veraltet oder beginnen gleich wieder damit, dass eine Library modifiziert wurde für das Beispiel. Daher meine Bitte und Frage: Wie geht das mit den ganz normalen Bordwerkzeugen von B4A?
Ich benutze die OKHttpUtil2-Bibliothek
das kann ich schon und hat funktioniert:
Bilder vom Server holen und gleich einem View zuweisen
Daten vom Server holen und einem Stream zuweisen
B4X:
Sub Globals
....
Private MyJob As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
...
MyJob.Initialize("MyJob", Me)
Sub Button1_Click
MyJob.Download("http://Myserver.de/temp/Wikinger.jpg")
MyJob.JobName="wiki"
End Sub
Sub Button2_Click
MyJob.Download("http://MyServer.de/temp/Oma.jpg")
MyJob.JobName="oma"
End Sub
Sub Jobdone(Job As HttpJob)
Log("Jobname=" & Job.JobName)
If Job.Success=True Then
If Job.JobName="wiki" Then
Activity.SetBackgroundImage(Job.GetBitmap)
Else If Job.JobName="oma" Then
Log("Input Stream from internet")
Private buffer() As InputStream
buffer=Job.GetInputStream()
Private dahin As OutputStream
dahin=File.OpenOutput(File.DirInternal,"test.jpg",False)
End If
Else
Log("Error beim Download " & Job.ErrorMessage)
End If
Job.Release
End Subwas mir nicht gelingen will, ist den hereinkommenden Stream jetzt irgendwie in eine Datei umzuleiten.
Last edited: