Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

        sUrl = Subst("http://chart.apis.google.com/chart?chs=165x90&cht=gom&chco=0000ff99,ffffff99,ff000099&chd=t:&1&chl=&2", rDevice!value * 3, rDevice!value & rDevice!label)
        hDownloadImage = NEW HttpClient AS "Download"
        hDownloadImage.URL = sUrl
        hDownloadImage.Async = FALSE
        hDownloadImage.TimeOut = 5
        hDownloadImage.Get()

        IF hDownloadImage.Status < 0 THEN
          IF Main.bMainDebug THEN Main.WriteDebugLog("[Climate] Error downloading image " & sUrl)
        ELSE
          ' success - read the data
          IF Lof(hDownloadImage) THEN READ #hDownloadImage, sDownload, Lof(hDownloadImage)
          File.Save(sTempFile, sDownload)
          TRY pbOutsideTemp.Picture = Picture.Load(sTempFile)
          IF Exist(sTempFile) THEN KILL sTempFile
        END IF