Italian Download immagine senza salvarla

Discussion in 'Italian Forum' started by dibesw, Aug 14, 2008.

  1. dibesw

    dibesw Active Member Licensed User

    Ciao a tutti, da qualche parte ho letto (ma non ne sono sicuro) che esiste la possibilità di eseguire il download di una immagine senza necessariamente salvarla per poi metterla su un comtrollo image. Esiste questa possibilità? Grazie.
     
  2. dibesw

    dibesw Active Member Licensed User

    OK! ho scoperto come si fa.

    la routine seguente esegue senza errori il download del file e lo salva in un LocalFile:
    (ad es. URL=http://www.amalfiweb.it/webcam/img/webcam_00045.jpg)

    Sub DownloadFile (LocalFile,URL)
    ErrorLabel (errurl)
    Response.New1
    Request.New1(URL)
    Response.Value = Request.GetResponse
    Reader.New1(Response.GetStream,true)
    FileOpen(c3,LocalFile,cRandom)
    Writer.New1(c3,false)
    Dim buffer(4096) As byte
    count = Reader.ReadBytes(buffer(),4096)
    Do While count > 0
    Writer.WriteBytes2(buffer(),0,count)
    count = Reader.ReadBytes(buffer(),4096)
    Loop
    FileClose(c3)
    Response.Close
    Return
    errurl:
    msgbox("Errore su load","Load immagine")
    End Sub

    Il problema è che se rieseguo la routine, per fare ad es. un refresh, il sistema mi da errore perchè il file (cioè l'immagine) risulta lockkata.

    la routine seguente risolve questo caso perchè non esegue il salvataggio dell'immagine

    Sub cercacam(URL)
    ErrorLabel (errurl)
    Request.New1(URL)
    Response.New1
    obj.New1(false)
    args.New1(1)
    Response.Value = Request.GetResponse
    args.SetObject(0,Response.GetStream) '
    obj.CreateNew2("System.Drawing.Bitmap" & obj.System_Drawing,args.Value)
    image1.Image = obj.Value
    response.Close
    erore=0
    Return
    errurl:
    erore=1
    End Sub

    le librerie sono HTTP e DOOR.

    Spero sia stato utile a qualcuno.
    Ciao
     
  3. Filippo

    Filippo Expert Licensed User

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