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

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

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

3、獲得一個實例變量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(請選擇照片ls_filepathls_filenameBMPBitmapFiles(.BMP).BMP)IFli_num=0THENRETURN0ENDIFintegerli_FileNumloopsilongflenbytes_readnew_posblobbtot_blb_tSetawaitcur