1. 怎麼做一個可以錄入圖片的資料庫
圖片是可以放到資料庫裡面的,以ACCESS為例子,你要使用OLE數據類型,
然後把圖片轉化為長二進制數據存入,讀取的時候可以生成系統隱藏的圖
片然後在圖片控制項中顯示
我的回答肯定沒錯,因為這個東西我做過,如果還不明白可以到我的空間
里留言,然後留下聯系方式,我會把代碼給你,我使用的是VB,用VB把圖片
放到ACCESS中,然後再讀取出來,實際上是個很簡單的小程序
最近無事還是貼上來吧
Dim cc() As Byte
Dim i
Dim t
Private Sub Command1_Click()
CommonDialog1.Filter = "JPG圖片(*.BMP)|*.BMP"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
strname = CommonDialog1.FileName
Open strname For Binary As #1
ReDim cc(LOF(1) - 1)
t = cc(LOF(1) - 1) '在讀取二進制時，如果是用文件操作那麼涉及到到底從文件中取多少位元組的問題，所以位元組數組要指定大小
Get #1, , cc
Close
Else
MsgBox "沒有選中圖片"
End If
End Sub
Private Sub Command2_Click()
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("id") = i
Adodc1.Recordset.Fields("qq") = cc
i = i + 1
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Adodc1.Refresh
Dim P() As Byte
Adodc1.RecordSource = "select qq from 表一 where id='" & Text1.Text & "'"
P = Adodc1.Recordset.Fields("qq") '當把一組二進制數據賦值給一個二進制數組時就不用指定數組的大小了，因為是全部賦值
Open App.Path & "\oo.bmp" For Binary As #1
Put #1, , P
Close
End Sub
Private Sub Command4_Click()
Open App.Path & "\oo.bmp" For Binary As #1
Put #1, , cc
Close
End Sub
Private Sub Form_Load()
i = 1
End Sub
我是 Control_World
請設置我為最佳答案吧
2. bmp池是什麼意思
bmp池是指一個存儲點陣圖文件的資源池，其中包含了多個bmp格式的圖片文件。這些圖片可以被程序動態地調用，以實現圖片資源的共享和重復使用。bmp池通常是一種可編程的技術手段，它可以被用於多種應用場景，例如游戲開發、圖形界面設計等。
bmp池具有很多優點。首先，它可以有效地減小程序的體積，因為它使得多個應用程序可以共享同樣的圖片資源，從而減少了重復數據的存儲空間；其次，bmp池可以提升程序的運行效率，因為它可以避免頻繁地從磁碟讀取圖片文件，而是直接從內存中獲取需要的圖片資源；最後，bmp池可以簡化程序的維護和升級，因為修改池中的一張圖片可以同時影響到整個程序的視覺效果。
bmp池的實現分為兩個步驟。第一步是將所有需要共享的bmp格式圖片轉化為相應的二進制數據，並將這些數據存儲在程序的內存中；第二步是通過代碼動態地調用所需的圖片資源，將其解碼並顯示在屏幕上。在實現bmp池時，需要考慮到圖片的大小、格式、數量等因素，並採用合適的演算法和數據結構來保證其高效性和穩定性。