Berwyn

New Member
Mọi người ơi trong photoshop có cách nào chuyển từ ảnh màu sang ảnh nhị phân không nhỉ. Pro nào biết chỉ em với
 
Có thể làm như sau để image thành binary file:



Module Module1



Sub Main()

Dim img = Image.FromFile("c:\dev\testimage.jpg")

Dim ms As New MemoryStream

img.Save(ms, img.RawFormat)

Dim data = ms.ToArray()

ms.Close()

Dim connStr = "Data Source=servername;Initial Catalog=dbname;Integrated Security=True"

Dim cmdStr = "insert into tmptbl (img) values (@img)"

Dim conn As New SqlConnection(connStr)

Dim cmd As New SqlCommand(cmdStr, conn)

cmd.Parameters.AddWithValue("@img", data)

conn.Open()

cmd.ExecuteNonQuery()

cmdStr = "select img from tmptbl"

cmd.CommandText = cmdStr

cmd.Parameters.Clear()

Dim img2data = CType(cmd.ExecuteScalar(), Byte())

conn.Close()

Dim fs = New FileStream("c:\dev\testimage2.jpg", FileMode.Create, FileAccess.Write)

fs.Write(img2data, 0, img2data.Length)

fs.Flush()

fs.Close()

End Sub



End Module





c:\dev\testimage.jpg là tên cái image bạn muốn chuyển sang binary.
 

Các chủ đề có liên quan khác

Top