German Wie kann ich eine Datei aus dem Web ins DirInternal speichern

[taunusbaer01]

httputils2 Problem

Halo ihr Alle,

ich versuche nun seit zwei Tagen eine Datei 1234.xls von meinen Webserver ins DirInternal zu kopieren. Funktioniert auch zum teil. Leider hat die Datei Fehler und kann auch mit Excel nicht mehr geöffnet werden. Im Forum finde ich vieles aber nix was mir helfen könnte. (meine Kopf raucht schon)

Ich habe es mit httputils2 versucht.

Dim job1 As HttpJob (global definiert)


job1.Initialize("Job1", Me)
job1.Download("http://www.xxxxxxxxxxxxx.de/android/1234.xls")


und dann dieses.

Sub JobDone (Job As HttpJob)

If Job.Success = True Then
out = File.OpenOutput(File.DirInternal, "1234.xls", False)
File.Copy2(job1.GetInputStream, out)
out.Close
ToastMessageShow("1234.xls "&" wurden kopiert", False)'
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If

End Sub


Die Datei 1234.xls wird angelegt aber irgendwie verändert.

Kopiere ich die Datei manuell auf den PC kann ich sie mit Excel nicht starten.
Die Datei hat eine Größe von ca 45KByte.


Ich glaube ich habe da eine Grundlegendes Verständnissproblem und komme nicht weiter.

Wie kann ich am besten eine XLS-File aus dem Web ins DirInternal kopieren???

Schon mal besten Dank an euch. (ich stehe echt auf dem Schlau)

Gruß Uwe

 

[taunusbaer01]

funktioniert

Danke.
auf einmal hat es funktioniert.
keine Ahnung warum.

Dim job1 as Httpjob 'global

Sub mnuMyMenu_Click
job1.Initialize("Job1", Me)
job1.Download("http://www.xxxx.de/android/xyz.xls")
End Sub

Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Dim out As OutputStream
out = File.OpenOutput(File.DirInternal, "xyz.xls", False)
File.Copy2(job1.GetInputStream, out)
out.Close
ToastMessageShow("xyz.xls "&" wurden aktualisiert!", False)'
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
End Sub