Dim Foot As String = "Live image. Refreshed every minute."
If (old_image <> Main.viewimage) And Main.viewimage.Contains(".jpg") Then
old_image = Main.viewimage
DateTime.DateFormat="yyyyMMdd"
folder_image = DateTime.Date(DateTime.Now)
Main.lastImage = folder_image & "/images/" & old_image
Dim pointy As String = "\\BRIX\www\view\" & DateTime.Date(DateTime.Now) & "\images\" & old_image
Dim T As String = $"
<div class="w3-card-4">
<img width=100% src="data:image/png;base64,${su.EncodeBase64(asJO(Me).RunMethod("imageToBytes",Array(pointy,"png")))}">
<footer class="w3-container w3-theme-l1">
<h5>Live image. Refreshed every 30 secs For the moment.</h5>
</footer>
</div>
"$
current_image.SetHtml(T)
End If
End If
DateTime.DateFormat="yy/MM/dd"
DateTime.TimeFormat="HH:mm:ss"
todaysdate.SetHtml(" Local Time on " & DateTime.Date(DateTime.Now) & " at Police Point, Tasmania, Australia is <b> " & DateTime.Time(DateTime.Now) & "</b>")
ws.Flush 'required here as this is a server event
WeatherCount = WeatherCount + 1
If WeatherCount = 20 Then WeatherCount = 1
End Sub
#if java
import java.awt.image.BufferedImage;
import javax.imageio.ImageIO;
import java.io.*;
public static byte[] imageToBytes(String filename,String ext) throws IOException{
BufferedImage img = null;
img = ImageIO.read(new File(filename));
ByteArrayOutputStream s = new ByteArrayOutputStream();
ImageIO.write(img, ext, s);
byte[] res = s.toByteArray();
s.close();
return res;
}
#end if
Sub asJO(o As JavaObject)As JavaObject
Return o
End Sub