German Download mehrere Dateien mit HttpUtils2

Discussion in 'German Forum' started by tudorf, Oct 19, 2012.

  1. tudorf

    tudorf Active Member Licensed User

    Hallo
    ich versuche mit HttpUtils2 mehrere Dateien runter zu laden und diese mit einem neuen namen zu speichern. Von meinen 4 Beispieldateien werden nur 2 oder 3 runtergeladen. Alle Dateien sind gleich.

    Hat jemand ein Beispiel nach dem ich mich richten kann? FlickrViewer hat mit Erel schon genannt, aber ich komme damit nicht klar. Ich finde die runtergeladenen Dateien nicht auf meinem Handy. Ich weiß nicht wie ich den Dateinamen oder das Verzeichnis ändern soll. Lt. Erel soll ich die Daten mit File.copy2 kopieren. Das setzt FlickrViewer nicht ein.

    Code:
    'Activity module
    Sub Process_Globals

    End Sub

    Sub Globals
       
    Dim list1 As List
       
    Dim akt_pos As Int 
       akt_pos = 
    0

    End Sub

    Sub Activity_Create(FirstTime As Boolean)
       
    Dim job3 As HttpJob

       list1.Initialize
    '   list1.AddAll(Array As String("http://img.geocaching.com/cache/large/5d53aaf9-f92c-4691-9141-130054b72f75.jpg","GC1YRK0-Test1.jpg"))
    '   list1.AddAll(Array As String("http://img.geocaching.com/cache/large/2e335b83-ddbe-4370-b2c9-ba42de733093.jpg","GC3GWDT-Test2.jpg"))
    '   list1.AddAll(Array As String("http://img.geocaching.com/cache/large/9b6a99dc-4cf1-4f41-93fd-47841444f2d9.jpg","GC3BM6H-Test3.jpg"))
    '   list1.AddAll(Array As String("http://img.geocaching.com/cache/large/ef0af76f-6285-4458-88a6-5e4385ab45ce.jpg","GC3BM6H-Test4.jpg"))
       
       list1.AddAll(
    Array As String("http://img.geocaching.com/cache/large/5d53aaf9-f92c-4691-9141-130054b72f75.jpg@GC1YRK0-Test1.jpg"))
       list1.AddAll(
    Array As String("http://img.geocaching.com/cache/large/2e335b83-ddbe-4370-b2c9-ba42de733093.jpg@GC3GWDT-Test2.jpg"))
       list1.AddAll(
    Array As String("http://img.geocaching.com/cache/large/9b6a99dc-4cf1-4f41-93fd-47841444f2d9.jpg@GC3BM6H-Test3.jpg"))
       list1.AddAll(
    Array As String("http://img.geocaching.com/cache/large/ef0af76f-6285-4458-88a6-5e4385ab45ce.jpg@GC3BM6H-Test4.jpg"))

       job3.Initialize(
    "Job3", Me)
    '   job3.Download("http://img.geocaching.com/cache/large/5d53aaf9-f92c-4691-9141-130054b72f75.jpg")

       
    For i = 0 To list1.Size - 1
          
    Dim j As HttpJob
    '      akt_pos = i
          j.Initialize("j", Me) 
          
    Dim str1 As String 
          str1 = list1.get(akt_pos)
          
          
    Dim zw_zeile As String
          
    Dim bis As Int
          bis = str1.IndexOf(
    "@")
          zw_zeile = str1.SubString2(
    0,bis)   
    Msgbox(zw_zeile,"load "&i)      
          j.Download(zw_zeile)
       
    Next

    End Sub

    Sub JobDone (Job As HttpJob)
       
    If Job.Success = True Then
          
    Activity.SetBackgroundImage(Job.GetBitmap)
          
    Dim out As OutputStream
    '      out = File.OpenOutput(File.DirRootExternal&"/Test_Mystery","Test.jpg",False )

          
    Dim str1 As String 
          str1 = list1.get(akt_pos)
          
    Dim zw_zeile As String
          
    Dim von As Int
          von = str1.IndexOf(
    "@")
          zw_zeile = str1.SubString2(von + 
    1 , str1.Length)   
          
    Msgbox(zw_zeile,"Save "&akt_pos)      
          
          out = 
    File.OpenOutput(File.DirRootExternal&"/Test_Mystery",zw_zeile,False )
          
    File.Copy2(Job.GetInputStream, out)
          out.Close
          akt_pos = akt_pos + 
    1
       
    Else
          
    Log("Error: " & Job.ErrorMessage)
          
    ToastMessageShow("Error: " & Job.ErrorMessage, True)
       
    End If
       Job.Release
    End Sub

    Sub Activity_Resume

    End Sub

    Sub Activity_Pause (UserClosed As Boolean)

    End Sub
    Danke Martin
     
    Last edited: Oct 19, 2012
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice