Add declaration
Dim ImageByteArr(0) As Byte ' An array to hold image (bytes)
right before calling
Image2Byte(DrawingForm.BitmapCanvas, ImageByteArr)
' and after that
SaveByteArray(ImageByteArr,...

No. Just more debugging needed.

Here's the same code with four messagebox "dumps" added
Public Sub Image2Byte(ByVal NewImage As Image, ByRef ByteArr() As Byte)
'
Dim ImageStream As...

Yes, the image isn't saved correctly. Did you use adatapost's code (Post #9 in Saving Drawing on PictureBox to SQL Database (http://www.daniweb.com/forums/post911402-9.html)) for saving the image?
...

I made a mistake in previous post. The code should have been
' Loads the image to the picture box control from SQL Server
Dim ImageByteArr(0) As Byte ' An array to hold image (bytes)
Dim patientIC...

I tested your code and it worked fine (Page2 form's code). I had to comment out all the data retrieval for labels to test btnSearch_Click but I don't believe that effects anything.

First, you did...

That's why you use ReDim Preserve to resize array/matrix and to preserve previously entered data.


First dimension has to be fixed. You can only change the second dimension.

Here's another...

ReDim works fine unless you have to resize 2-dimensional array more than once and preserve the previous content. That's a limitation by design.

For example
Dim Matrix(,) As Integer

ReDim...

Yes you can
Dim MyList As New ArrayList()
Dim Arr1() As Integer = {1, 2, 3}
Dim Arr2() As Integer = {4, 5, 6}

MyList.Add(Arr1)
MyList.Add(Arr2)

MsgBox(CType(MyList.Item(1), Integer())(2)) '...

Here's a few things to fix first:

- add Option Strict On and Option Explicit On lines at the beginning of vb-file
- line 19: you refer to draggedlabel but you haven't declared it. Is it a label...

Just for testing I had a main form (Form1) and a separate drawing form (Form2). You can use just one form. In that case you have to copy the drawing routines from (my) Form2 to your main (drawing)...

I did some googling and found out that InkPicture control does not even have Image property :)

InkEdit control has SaveFile method (see Using InkEdit, InkPicture, and Enhancing the Appearance of...

Ok, here's a step-by-step test which control is not set
If InkPicture1 IsNot Nothing Then
If InkPicture1.Image IsNot Nothing Then
InkPicture1.Image.Save(IO.Directory.GetCurrentDirectory() &...

Got it. The very basic principle is not to draw on a (picture box) control. Instead, you have to use some in-memory buffer (i.e. bitmap). You draw to the buffer and then display the buffer in the...

Damn :-O

Ok, I can think of two options. User drawings should be somehow merged to image before saving. They seem to be separate objects right now. I don't have code for that at the moment but...

Basically you're readind serial data from COM-port and that is equally easy (or difficult) task with VB.NET, VB6 and C++ (or C#).

Most of your application will deal with other things. Like UI,...

I don't have a tablet PC to test with, but if things work in the same way as with WinForms, your code should be following
InkPicture1.Image.Save(IO.Directory.GetCurrentDirectory() & "\test_out.jpg",...

If the code works, don't change it (if it ain't broke, don't fix it, you know ;) ) And like I posted before, Adatapost's code is pretty much same as mine.



I used the same form. That's why I...

Here's a complete (example) code for saving a picture box control's image to SQL Server and loading it back
Option Strict On
Option Explicit On

Imports System.Drawing.Imaging ' Image related...

Here's the repainting code. All the user drawings are saved on the arrays. On the picture box's paint event all the saved user drawings are repainted from the arrays
' "Drawing" arrays
Private...

Maybe you shouldn't have quotes around CnStr (assuming it's a variable). Your code should be similar to
Dim CnStr As String
CnStr = "Data Source=MyMachineName\SQLEXPRESS; INITIAL...

Did you get any exact error message?


You need MCI.ocx of course. Is it included in your installation package?


If you didn't distribute the MCI.ocx you used to develop your application,...

If you use adatapost's code:

use the Image property of the picture box
'Write an image data into memory stream
pbBody.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Png)


No,...

Actually I'm not 100% sure. I haven't used the snippet in that kind of scenario, but I suggest you copy/paste the code(s) and try it out.

If I remember right, you were using picture box control...

adatapost > OP cannot find a name of installed database.
The connection string seems ok to me :-/


Sorry, my mistake. It's called Image in SQL Server, not BLOB :)

I suggest using BLOB data type.


convert image to an array of bytes first. See Save binary data to SQL Server with VB.NET...

Hi! Nice to hear that you got answer to your problem. Could you please mark the thread as solved. Thank you!

Didn't test it but if I remember right
oledbcom.CommandText = ("INSERT INTO Customer Company, Address, Telephone values ?,?,?")should be
oledbcom.CommandText = ("INSERT INTO Customer (Company,...

For the latter approach

use

Dim oCmd As SqlCommand
.
.
strSQL = "INSERT INTO <table> (<fields>) VALUES (<values>)"
strSQL = strSQL & "; SELECT @@IDENTITY AS 'Identity' "
oCmd.CommandText =...

Could you please post your code and tell, which DB you're using.

Damn :) I was able to reproduce it. The file contains (or starts) with a zero byte. That's why the first line looks like an empty string (but it isn't).

Try this
Dim myRequest As WebRequest =...

I tested objReader.ReadToEnd with http://127.0.0.1/test.txt and it worked just fine. Of course you have to split the input to get separate lines. Anyway, objReader.ReadToEnd returned the whole...

Actually you're saving incoming data to the memory stream, not in the temporary byte buffer. You should save the content of the memory stream.

Change this single line
If SaveFile("C:\my.gif",...

Ok. I tried in my localhost Dim myRequest As WebRequest = WebRequest.Create("http://127.0.0.1/test.txt") and got no empty lines from text file with four lines of plain text.

I also asked, have you...

Ok. Try to declare form variables global in your main form (Start form) i.e. where you have GotoForm. If you declare them inside the sub their scope will be only that sub and you "lose" the form...

If you want to use the same procedure, pass a parameter to proc to tell which form to show
Public Sub GotoForm(ByVal FormIndex As Integer)
' Change form
Select Case FormIndex
Case 2
...

I tried your code with Dim myRequest As WebRequest = WebRequest.Create("http://www.daniweb.com") and got no empty line as the first line.

Have you tried other URLs? What if you comment out...

Never mind the code. Here's a (generic) function to save byte array to a file (VB.NET 2005 and newer)
Public Function SaveFile(ByVal FileName As String, ByRef Buffer() As Byte, ByVal OverWrite As...

Could you please post your current image saving code. Thanks!

Hi! Nice to hear that you got answer to your problem. Could you please mark the thread as solved. Thank you!


Not related to sockets. Please, start a new thread for a new question.

That's not...

I was assuming VB.2005.


Oops!

Here's the modified client code. You can't send the whole file at once. You have to also send data in "chunks" (like you noticed in one of your messages). This...