Sub Class_Globals
Dim su As StringUtils
End Sub
Public Sub Initialize
End Sub
Public Sub Handle(req As ServletRequest, resp As ServletResponse)
For Each ip As String In Main.images.Keys
resp.Write("<p>").Write(ip).Write("</p>")
Dim img() As Byte = Main.images.Get(ip)
resp.Write("<img width=500 height=300 src='data:image/png;base64,") '<--- this tells the browser to decode the base64 images.
resp.Write(su.EncodeBase64(img))
resp.Write("'/img>")
Next
End Sub