راه حل جهت تبديل تصوير به كد باينري

[mohammad-gh]

سلام
من در يك پروژه نياز مبرم به ذخيره كدهاي باينري تصوير در يك فايل را دارم
البته اينكه چطور تك تك پيكسل ها را بخوانم را بلدم اما نحوه ذخيره انها را به صورت بيت به بيت در يك فايل باينري بلد نيستم
بعد از ذخيره هم حتما راهي براي استخراج آنها بايد باشد
منتنظر راهنمايي شما هستم

[ehsan21]

با کد های زیر می تونی این کار رو انجام بدی



Dim ms As New MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim arrayImage() As Byte = ms.GetBuffer

[MAHDIACTION]

امیدوارم مفید باشه
تست شده است

imports system



Private Sub Btnconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
()Dim by As Byte
Dim oStream As New IO.MemoryStream
(Dim bmp As New Bitmap(PictureBox1.Image
Try
( bmp.Save(oStream, Imaging.ImageFormat.Bmp
by = oStream.ToArray
() bmp.Dispose
()oStream.Close
Catch ex As Exception
End Try


End Sub

[nima898]

شما قصدتون اینه که داخل فایل تصویر دیتا جاسازی کنید؟(بصورت secret)

[mohammad-gh]

سلام وتشكر از دوستان
نه من مي خواهم تصاوير رو به صورت باينري در فايل ذخيره كنم تا نشه از اونها استفاده كرد
از طرف ديگر در اين ومقع حجم ديتا بيس هم زياد نميشود
حتما مي دانيد كه براي ذخيره تصوير به صورت باينري دو روس بيتي و شماره گذاري وجود دارد (كساني كه دانشجوي مهندسي نرم افزار هستند بهتر آشنايي دارند) و من مي خواهم از يكي از اين روشها براي ذخيره تصوير در يك فايل و بعد لود ان استفاده نمايم
باز هم از دوستان متشكرم

[nima898]

به این تاپیک یه سری بزنید

http://barnamenevis.org/forum/showthread.php?t=189061