Comments by videepmishraa (Top 18 by date)

Sorry everyone, I would like to give some more detail. The need for a webbrowser is to get a snapshot of a page. If I use webbrowser.drawToBitmap(params here), after about 75 snapshots, it crashes. Here's my code:
sub GetSize()
Dim scrollWidth As Integer
Dim scrollHeight As Integer
scrollHeight = Me.WebBrowser1.Document.Body.ScrollRectangle.Height
scrollWidth = Me.WebBrowser1.Document.Body.ScrollRectangle.Width
webbrowser1.height = scrollHeight : webbrowser1.width = scrollWidth
dim bm as new bitmap(scrollWidth,scrollHeight)
webbrowser1.drawToBitmap(parameters here dont have the code so forgot, will update in a while)
bm.save(path)
bm.dispose()
End Sub

BUT THE ERROR is when I am accessing the scroll width while multi-threading.
The issue is that vb.net is not able to handle so many images. any to clear the memory?

Sorry everyone, I would like to give some more detail. The need for a webbrowser is to get a snapshot of a page. If I use webbrowser.drawToBitmap(params here), after about 75 snapshots, it crashes. Here's my code:
sub GetSize()
Dim scrollWidth As Integer
Dim scrollHeight As Integer
scrollHeight = Me.WebBrowser1.Document.Body.ScrollRectangle.Height
scrollWidth = Me.WebBrowser1.Document.Body.ScrollRectangle.Width
webbrowser1.height = scrollHeight : webbrowser1.width = scrollWidth
dim bm as new bitmap(scrollWidth,scrollHeight)
webbrowser1.drawToBitmap(parameters here dont have the code so forgot, will update in a while)
bm.save(path)
bm.dispose()
End Sub

BUT THE ERROR is when I am accessing the scroll width while multi-threading.
The issue is that vb.net is not able to handle so many images. any to clear the memory?

So just to ADD -> I WAS DISPOSING THE IMAGE!!!
I removed the Dispose and it now shows the image than a CROSS :D
DAMN...when will I ever understand when to Dispose and when not TO...
Ha ha ha

Now this is VERY WIERD... I am at home working on a 32 bit machine. The code works perfectly well...

Here is the Code:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = My.Resources.Blue_hills1
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim img As Image = PictureBox1.Image
Dim byteArray() As Byte
Dim imgStream As New System.IO.MemoryStream
img.Save(imgStream, Imaging.ImageFormat.Jpeg)
imgStream.Close()
byteArray = imgStream.ToArray
imgStream.Dispose()

Dim f As String = "E:\textOutput.txt"
Dim writer As New IO.StreamWriter(f)
writer.WriteLine("Hello")
writer.WriteLine(Convert.ToBase64String(byteArray))
writer.WriteLine("Hello")
writer.Flush()
writer.Close()
writer.Dispose()
PictureBox1.Image = Nothing
f = Nothing
'Dim fs As New IO.FileStream(f, IO.FileMode.Truncate)
'fs.Write(byteArray, 0, byteArray.Length - 1)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Image = Nothing
Dim reader As New IO.StreamReader("E:\textOutput.txt")
Dim str As String = reader.ReadLine()
Dim newByteArray() As Byte = Convert.FromBase64String(str)
Dim imgConverter As New ImageConverter
Dim newImg As Image = imgConverter.ConvertFrom(newByteArray)
PictureBox1.Image = newImg
End Sub
End Class

it still gives that Cross Image!!!

So what I interpret is:

Dim writer As New System.IO.StreamWriter("D:\Object.txt", True)
dim temp() as byte
temp = convertImageToByte(myImage)
writer.writeLine("Value1")
writer.writeLine("Value2")
writer.writeLine("Value3")
dim str = Convert.ToBase64String(temp)
writer.writeLine(str)


When I read it back
I read using a reader:

Dim reader As New System.IO.StreamReader("D:\Object.txt", False)
dim newString = r.readLine()
dim newByteArray() as byte
newByteArray = Convert.FromBase64String(newString)


Right??

I am about to try this now...

Sorry Man, my mistake...But can you reply to my query? It will be really helpful and I will just update my question in the mean while.

Thanks

So when I use the binaryWriter, how to i read byte data which is in between text?
eg:

name: name1
locationX : 50
locationY : 10
BYTE ARRAY HERE
sizeX: 500
sizeY: 640
zValue: 5

so m a newbie...can you please suggest me how I can save the image data?
I have made an app which captures the screen and want to save the image into a file.
I have other options like adding comments and drawing/higlighting.
So I want to save all the objects and the images in one file just Like Paint/Photoshop etc...

Can you please recommend me somthing

Thanks

Thank You,
I have another question:
How to make a surface which can re-draw it from time to time?

Thanks
-v

The video is a nice demonstration. But that has been done with GDI+ and I am trying to do it with OpenGL.
The reason I am using OpenGL is because when I draw rectangles, I want to change their properties too!!!

Thank You Aarti.

I am attaching a code that I just wrote. I have a picture box in the form named and two radio buttons. I ahve'nt changed their names.

What this does is:
with radio button 1 checked, you can draw any number of rectangles on the picturebox.

with radio button 2 checked, you can move the last drawn rectangle.

This process might be too memory consuming according to me as when I am moving the image, I am drawing the rectangles first and then moving the last rectangle on the mouse move event.
I just realised that I can skip the re-drawing of the rectangles when radio button 1 is checked.

What I want to know is if its much memory consuming? as this is only on page1(form1) and I have multiple forms.

And what if I have to edit the first rectangle? Do I need to make a listbox and do a 1 to 1 Marking of the rectangles to the items on the listbox?
Then draw all the rectangles?

-Videep

--CODE--



[code]
<pre lang="vb">Public Class Form1

Dim painting = False
Dim start As New Point(0, 0)
Dim _end As New Point(0, 0)
Dim r As New Rectangle(0, 0, 100, 100)
Dim rectArray As New List(Of Rectangle)
Dim first = True
Dim rec As Rectangle


Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
painting = True
start = e.Location
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If (painting) Then
Dim g As Graphics = PictureBox1.CreateGraphics

If (RadioButton1.Checked) Then
g.Clear(PictureBox1.BackColor)
For i = 0 To rectArray.Count - 1
rec = rectArray.Item(i)
g.FillRectangle(Brushes.RosyBrown, rec)
Next
r.X = start.X
r.Y = start.Y
r.Width = e.Location.X - start.X
r.Height = e.Location.Y - start.Y
g.FillRectangle(Brushes.RosyBrown, r)
Else
g.Clear(PictureBox1.BackColor)
For i = 0 To rectArray.Count - 2
rec = rectArray.Item(i)
g.FillRectangle(Brushes.RosyBrown, rec)
Next

r.X = e.X
r.Y = e.Y
g.FillRectangle(Brushes.RosyBrown, r)
End If
End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
painting = False
If (RadioButton1.Checked) Then
rectArray.Add(r)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DoubleBuffered = True
End Sub
End Class</pre>


[/code]