读取BMP的偶会,数据库俺不在行,问别人吧'Need a picturebox; Name:Pic
Option Explicit
'API
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As LongDim i As Long, j As Long, PixColor As LongPrivate Sub Form_Load()
pic.BorderStyle = 0
pic.ScaleMode = 3 'Pixel
For i = 0 To pic.ScaleWidth
    For j = 0 To pic.ScaleHeight
    '获取位图每个点
    PixColor = GetPixel(pic.hdc, i, j)
    '设置位图每个点
    Call SetPixel(pic.hdc, i, j, PixColor)
    Next j
Next i
End Sub夜已深,还有什么人,像我这样,醒着在编程
-------------------------------
海纳百川,有容乃大;
壁立千仞,无欲则刚。

解决方案 »

  1.   

    想把图片保存到数据库里不用这么麻烦吧!可以直接保存的!
       你可以在数据库中建立一个二进制的字段,然后在程序中建立一个Byte型的变量数组,然后用二进制方式打开BMP文件,写入数组,再将数组写入数据库相应的字段.反之将上面的过程反过来.
    我是在网吧里上网,无法给你源程序.我以前的图片直接保存在了数据库里!
      

  2.   

    从 boyzhang(张郎)的贴子和我的贴子这个问题已解决了.
      

  3.   

    CSDNZOLO(佐罗十三):
        你误解了我的意思了,我当然是知道能把BMP文件直接保存到数据库里面,但是我的目的是要把栅格图片里面的栅格信息读取,然后保存到数据库里面,这就是难点之所在。不过也很感谢你的支持。
      

  4.   

    你用 GetPixel 得到栅格信息,保存到数据库中,同样可以从数据库中读取信息用 SetPixel 设置
    可以用picture控件的savepicture属性.我说的 "从 boyzhang(张郎)的贴子和我的贴子这个问题已解决了."就是这个意思,可能我又误解了你的意思!
      

  5.   

    你们......
    你已经用getpixel读出来了,那就用数据库来写表格!
    横行、竖行,管它怎样,你爱怎么写怎么写,先写二维数组,然后随你的便,不过用pb可能方便些,pb在数据库上非常nb的,你用vb也可以,只不过写数据库是你的事情,格式也是由你决定,我想些数据库应该难不倒你吧