将图片转换成十六进制或其它进制

Question

如何将图片(JPG,JPEG,BMP等)转换成十六进制或其它进制并将该进制以字符型式存进数据库以及逆向过程说说思路及API谢谢,加分不是问题

Answer 1

用 binary 方式读取文件到字节数组，然后逐字节用hex()转成十六进制。另外，KiteGirl(小仙妹)有个极速版的代码，虽然复杂，但据说速度惊人。http://topic.csdn.net/t/20050418/11/3945245.html

Answer 2

Option Explicit
Dim b As ADODB.Recordset
Dim c As ADODB.Stream
Dim conn As New ADODB.ConnectionPrivate Sub Command1_Click()    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1.mdb;Persist Security Info=False"
    conn.Execute "create table a (Str longbinary)"
End SubPrivate Sub Command2_Click()
    Set b = New ADODB.Recordset
    Set c = New ADODB.Stream
    c.Mode = adModeReadWrite
    c.Type = adTypeBinary
    c.Open
    c.LoadFromFile "D:\ss.JPG"
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\1.mdb;Persist Security Info=False", adOpenDynamic, adLockOptimistic
    b.AddNew
    b.Fields.Item(0).Value = c.Read()    b.Update
    b.Close
Set b = New ADODB.Recordset
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:1.mdb;Persist Security Info=False", adOpenKeyset, adLockOptimistic
    MsgBox b.RecordCount
    b.MoveLast
    c.Write (b.Fields.Item(0).Value)
    c.SaveToFile "d:\aa.JPG", adSaveCreateOverWrite
    Picture1.Picture = LoadPicture("D:\aa.JPG")
End Sub

Answer 3

把图片用2binary方式存储到数据库里面!!你可以参考参考,