Dear All,
I need to use BTNBMP and show the picture (contain in BLOB field MySql).
How do I make it?
Thanks in advance,
function BtnBmpBlob()
local oCn
local oDlg, oBtn, oFont
local cBlobTaj, cBlobNia
oCn := FW_DemoDB()
cBlobTaj := oCn:QueryResult( "SELECT image FROM wwonders WHERE id = 8" )
cBlobNia := oCn:QueryResult( "SELECT image FROM wwonders WHERE id = 9" )
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-20
DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL FONT oFont ;
TITLE "BTNBMP FROM BLOB"
@ 20,20 BTNBMP oBtn PROMPT "TajMahal" ;
RESOURCE cBlobTaj SIZE 150,150 PIXEL OF oDlg 2007 ;
ACTION MsgInfo( "From Blob in MySql" )
@ 20,200 BTNBMP oBtn PROMPT "Niagara" ;
RESOURCE cBlobNia SIZE 150,150 PIXEL OF oDlg 2007 ;
ACTION MsgInfo( "From Blob in MySql" )
@ 200,20 BUTTON "CLOSE" SIZE 100,40 PIXEL OF oDlg
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
oCn:Close()
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: cmsoft and 40 guests