OK, I compared the images after converting them to binary strings, when the strings compare they are the same, I got that over.
Dim pic As Picture
Dim bs as BinaryStream
Dim f2 as FolderItem
f2 = app.gTheEndoscopyImagesFolder.Child(“myPic 3.png”)
Pic = Picture.Open(f2)
if Pic <> nil then
'// Get the image as string
bs = f2.OpenAsBinaryFile
S0 = bs.Read(bs.Length)
S0 = EncodeBase64(S0, 0)
else
msgbox “myPic 3 is nil”
end if
If Keyboard.AsyncControlKey or IsContextualClick then
f2 = app.gTheEndoscopyImagesFolder.Child(“myPic 3copy.png”)
Pic = Picture.Open(f2)
if Pic <> nil then
'// Get the image as string
bs = f2.OpenAsBinaryFile
S1 = bs.Read(bs.Length)
S1 = EncodeBase64(S1, 0)
else
msgbox “myPic 3copy is nil”
end if
else
f2 = app.gTheEndoscopyImagesFolder.Child(“myPic 4.png”)
Pic = Picture.Open(f2)
if Pic <> nil then
'// Get the image as string
bs = f2.OpenAsBinaryFile
S1 = bs.Read(bs.Length)
S1 = EncodeBase64(S1, 0)
else
msgbox “myPic 4 is nil”
end if
end if
If S0 = S1 Then
'msgbox “Frozen”
Pic = Pic.ProportionalScale( LivePicsImageWellDisplays(0).Width, LivePicsImageWellDisplays(0).Height )
LivePicsImageWellDisplays(0).Image = Pic
else
'msgbox “Streaming”
LivePicsImageWellDisplays(0).Image = SadFace
end if
That works.
I did it with images that I have, I have not tried the video processor’s frozen images as yet, but I am of the opinion that I may not be able to do so since the app is not connecting up any external video device connected via usb, although the option to select that device is available.
USB 2861 Device
Your PC ran into a problem and needs to restart. Were just collecting some error info, and then well restart for you.
If you’d like to know more, you can search online later for this error: SYSTEM SERVICE EXCEPTION (emBDA64.sys)
How can I add an image here?
Thanks.
Lennox