Comments by Vishal Makwana

Vishal Makwana 12-Apr-13 12:33pm View

as you say i have change bitmap with their width and height so it work well.
thanks you very much.

Vishal Makwana 10-Apr-13 12:58pm View

Dim red_fm_byte As Integer
Dim green_fm_byte As Integer
Dim blue_fm_byte As Integer

Dim mybitmap As Bitmap = Nothing

Try

Dim red_fm_file, green_fm_file, blue_fm_file As FileStream

red_fm_file = New FileStream("C:\Users\Er. Vishal\Desktop\Liss3_Quad_SYS\Liss3_Quad_SYS\9808111D024034L0400F2\n0o0y867.0fm", FileMode.Open, FileAccess.Read)
green_fm_file = New FileStream("C:\Users\Er. Vishal\Desktop\Liss3_Quad_SYS\Liss3_Quad_SYS\9808111D024034L0400F2\n0o0y867.0fn", FileMode.Open, FileAccess.Read)
blue_fm_file = New FileStream("C:\Users\Er. Vishal\Desktop\Liss3_Quad_SYS\Liss3_Quad_SYS\9808111D024034L0400F2\n0o0y867.0fo", FileMode.Open, FileAccess.Read)

Dim red_fm_length As Integer = red_fm_file.Length
Dim green_fm_length As Integer = green_fm_file.Length
Dim blue_fm_length As Integer = blue_fm_file.Length
For i = 0 To 700
For j = 0 To 500
red_fm_byte = red_fm_file.ReadByte()
green_fm_byte = green_fm_file.ReadByte()
blue_fm_byte = blue_fm_file.ReadByte()

'mybitmap.SetPixel(j1, i1, Color.FromArgb( red_fm_byte, green_fm_byte, blue_fm_byte))
mybitmap.SetPixel(j, i, Color.FromArgb(red_fm_byte, green_fm_byte, blue_fm_byte))

Next j
Next i

pic.Image = mybitmap

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

==========================
As in my above code i get an Exception error i.e. "Object reference not set to an instance of an object" at "mybitmap.setpixel"
please help me.
Thanks in Advance.

Vishal Makwana 10-Apr-13 12:53pm View

ok sorry.
& thanks for remind.

Vishal Makwana 10-Apr-13 12:44pm View

yes this is my 99% of solution of my problem.
But it get generate an exception at
mybitmap.setpixel(j,i,color.FromArgb( , , ))

Vishal Makwana 10-Apr-13 12:38pm View

As in my above code i get an Exception error i.e. "Object reference not set to an instance of an object"
at "mybitmap.setpixel" time

please help me.

Thanks in Advance.

Vishal Makwana 10-Apr-13 12:29pm View

Thank you so much.

This code is some what closer to my code.

Vishal Makwana 7-Apr-13 13:50pm View

i have 8mb size of file till now i am able to read the byte from file using

red_fm_file = New FileStream(red_fm, FileMode.Open)

Dim red_fm_length As Integer = red_fm_file.Length
Dim i As Integer

For i = 0 To red_fm_length

red_fm_byte = red_fm_file.ReadByte()
Next i

------------------------------------
next i am use this method to draw a image from byte.
------------------------------------

Public Sub value_to_image()

Dim mybitmap As Bitmap = Nothing
For i = 0 To 2345
For j = 0 To 2741
mybitmap.SetPixel(i, j, Color.FromArgb(red_fm_byte, 150, 250))
Next j
Next i
Image_Veiwer.pic.Image = mybitmap

End Sub

----------------------
but am not able to draw any image using it..
please help me...

Vishal Makwana 1-Apr-13 14:39pm View

Thanks for your reply.
file is data ie. red byte , green, blue byte.
i have to set the byte values in pixel using SetPixel function in GDI Image.
it will generate rectangular image.

Vishal Makwana 1-Apr-13 14:30pm View

no. i tried it but i can't get any values from file.

Vishal Makwana 1-Apr-13 12:30pm View

yes in my case the data is of fixed width.

Vishal Makwana 6-Mar-13 14:23pm View

Maciej Los:-

it doesn't work.
give any other idea for it that i can understand and implement it

Vishal Makwana 5-Mar-13 14:37pm View

simple text file having extension .0fl , but i can open file in notepad.

Vishal Makwana 6-Feb-13 13:20pm View

No Error Message will occur.
but system get not responding..

my coding is here..

----------

ofd1 = New OpenFileDialog

Dim file_name As String = ""
Dim file_name, file_content As String
Dim i As Int32

ofd1.Filter = "All Supported File |*.txt;*.0fm;*0fl;*0fn"
ofd1.Title = "Browse Files"

Try
If ofd1.ShowDialog = Windows.Forms.DialogResult.OK Then

file_name = ofd1.FileName

Dim fs As New FileStream(file_name, FileMode.Open)
Dim byt(fs.Length - 1) As Byte
fs.Read(byt, 0, byt.Length)
fs.Close()

fs = Nothing

For i = 0 To byt.GetUpperBound(0)
file_name = file_name & Chr(byt(i))
Next

richtext.Text = file_name

End If
Catch ex As Exception

MessageBox.Show("File Not Found" & ex.Message)

End Try

Comments by Vishal Makwana (Top 13 by date)