Sub schreib
If writing=True Then Return
writing=True
Label1.Text="Saving"
' I see this
CallSubDelayed (Me,updatescreen(1))
' I do not see the "1", It remains "Saving" for about a minute, then the main screen appears. The code should save a picture, the picture is not there.
Basis.deletepic (Main.photonumber)
' Msgbox ("vor readphoto","")
' Label1.Text="2"
CallSubDelayed (Me,updatescreen(2))
Basis.readphoto (Main.photonumber & ".dat")
Dim s As String
s=Main.hostname & "_downloaded.php?nr=" & Main.photonumber & "&p=" & Settings.pnr
DoEvents
Dim jobx As HttpJob
jobx.Initialize ("x",Me)
Log (s)
' Msgbox (s,"")
' Label1.Text=s
jobx.Download (s)
CallSubDelayed (Me,updatescreen(3))
End Sub
Sub updatescreen (s As String)
' ToastMessageShow (s,True)
Label1.Text=s
DoEvents