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池时，需要考虑到图片的大小、格式、数量等因素，并采用合适的算法和数据结构来保证其高效性和稳定性。