The following code:
* dim cmd as SQLCommandMBS*
* cmd = new SQLCommandMBS*
* cmd.Connection = con*
* dim sql as string*
* sql = "SELECT GetAs(energy_supervisor_signature,'PNGf') as es_signature
FROM assessments " _*
* + "WHERE server_id = 14442 "*
* // select images using sql above*
* cmd.setCommandText(sql)*
* cmd.Execute*
* dim i as Integer = -1*
* while cmd.FetchNext*
* dim mb as MemoryBlock =
cmd.Field("es_signature").asBLob.CopyBinaryData*
* if mb.Size > 0 then*
* dim p as Picture = Picture.FromData(mb)*
* self.es_signature = p*
* end if*
* wend*
* Return True*
returns a transparent png when ran in a desktop project, but a black square
when ran in a web project.
This is Xojo version 2014r3.1 using MBS Xojo SQL Plugin version 14.0
(18163)
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
mbsplugins@monkeybreadsoftware.info
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
