pb對(duì)oracle中圖片進(jìn)行存取初探

1、PB對(duì)acle中圖片進(jìn)行存取初探2006082817:51沒想到用PB對(duì)acle進(jìn)行圖片的存取會(huì)如此麻煩。以前只知道PB這個(gè)開發(fā)工具有很大問題然而這次問題恐怕出在acle身上。原本想用acle提倡的BLOB類型處理圖片幾經(jīng)試驗(yàn)最終還是無果而終。后來不得不用LONGRAW類型代替之。即便如此使用LONGRAW還是出現(xiàn)了不明原因的錯(cuò)誤。以下描述不夠詳盡只給出個(gè)大概的解決方案不過對(duì)于一般的圖片處理已經(jīng)足夠了。希望我能夠進(jìn)一步研究出更好的解決方

2、案來并早日攻破BLOB類型的難關(guān)!使用如下語句在acle中創(chuàng)建一張表person_photo:CREATETABLEperson_photo(idvar2(8)PRIMARYKEYNOTNULLphotoLONGRAW)設(shè)置PB連接好相關(guān)數(shù)據(jù)庫(kù)在PB中建立一個(gè)窗口w_test。上面放置一個(gè)Picture控件命名為p_1。再放置3個(gè)CommButton控件分別命名為cb_addcb_modifycb_。假設(shè)窗口w_test剛剛打開的時(shí)候會(huì)

3、獲得一個(gè)實(shí)例變量Stringis_id。在窗口w_test的open事件中添加如下代碼:Bloblb_picBLOBphotoINTO:lb_picFROMperson_photoWHEREid=:is_idIFSQLCA.SQLCODE=1THENMessageBox(提示初始化照片信息失敗!)ROLLBACKRETURN0ENDIFIFSQLCA.SQLCODE=0THENthis.cb_add.enabled=FALSEENDIF

4、IFSQLCA.SQLCODE=100THENperson_photo(id)INTOperson_photo(idphoto)并把下面這句改為:VALUES(:is_id)VALUES(:is_idEMPTY_BLOB())IFSQLCA.SQLCODE=1THENMessageBox(提示插入失敗!)ROLLBACKRETURN0ENDIFCOMMITUPDATEBLOBperson_photoSETphoto=:tot_bWHER

5、Eid=:is_idIFSQLCA.SQLCODE=1THENMessageBox(提示更新失敗!)ROLLBACKRETURN0ENDIFCOMMITp_1.SetPicture(tot_b)parent.cb_add.enabled=FALSEparent.cb_modify.enabled=TRUEparent.cb_.enabled=TRUEMessageBox(提示添加成功!)在按鈕cb_modify的clicked事件中添加

6、如下代碼:Stringls_filepathls_filenameIntegerli_numli_num=GetFileOpenName(請(qǐng)選擇照片ls_filepathls_filenameBMPBitmapFiles(.BMP).BMP)IFli_num=0THENRETURN0ENDIFintegerli_FileNumloopsilongflenbytes_readnew_posblobbtot_blb_tSetawaitcur