[RESOLVED]Sending Images With Winsock

[outcast24817]

I am making a multi-user drawing program, when a client connects to the server, the server sends him the current picture as a BMP (I don't need any compression, it's a small image, and it's only downloaded once.) After that, the client sends data to the server telling it where to place a new line. The server then repeats that data to all the other connections.

So the only major problem I have is sending the data via Winsock. I can make multiple connections and such, but I cant send the picture. I've searched the forums here, and I've tried most of the suggestions, I have loaded the picture into a byte array with this code:

Private Function SendPic(Index As Integer)
Dim Size As Long
Dim Filenum As Integer
Dim AByte() As Byte
Dim i As Integer
 
'save pic
SavePicture picMain.Picture, "C:\SDraw.bmp"
 
Filenum = FreeFile
Open "C:\SDraw.bmp" For Binary Access Read As Filenum
ReDim AByte(FileLen("C:\SDraw.bmp") - 1)
Get #Filenum, , AByte
Close Filenum
 
Size = UBound(AByte)
WS(Index).SendData "Image:" & Size & ":" & Str(AByte())
WS(Index).SendData AByte
End Function

But I get all sorts of problems with that code, I don't think its even putting the entire file into the array to begin with. I don't even know how to go about receiving the data correctly. Can someone show me an easy way to transfer a file with Winsock, or a way to get this code working?

Thanks.