Click here to Skip to main content
15,923,557 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: right click Pin
farah mazhar5-Oct-07 20:27
farah mazhar5-Oct-07 20:27 
GeneralRe: right click Pin
Christian Graus5-Oct-07 20:37
protectorChristian Graus5-Oct-07 20:37 
GeneralRe: right click Pin
farah mazhar5-Oct-07 21:10
farah mazhar5-Oct-07 21:10 
GeneralRe: right click Pin
Christian Graus5-Oct-07 21:16
protectorChristian Graus5-Oct-07 21:16 
QuestionCreate Crystal Reports from Sql Server in VB.NET Pin
mhaneefa5-Oct-07 10:18
mhaneefa5-Oct-07 10:18 
QuestionTCP .Begin receive Pin
captainmogo5-Oct-07 7:32
captainmogo5-Oct-07 7:32 
AnswerRe: TCP .Begin receive Pin
Dave Kreskowiak5-Oct-07 8:18
mveDave Kreskowiak5-Oct-07 8:18 
GeneralRe: TCP .Begin receive Pin
captainmogo5-Oct-07 9:13
captainmogo5-Oct-07 9:13 
Here is my code

Sending code

Public Sub Send(ByVal dataToSend As String)
Try
bytesToSend() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(dataToSend)
mysocket.Send(bytesToSend,0,bytesToSend.Length)

Catch se as SocketException
MsgBox(se.ToString)

End Try
End Sub


Receiving

Private Class StateClass
Public clientSocket As Socket
Public clientBuffer() As Byte ------> how do i know the buffer size before hand
End Sub

Public Sub OnAcceptConnection(ByVal result as IAsyncResult)
Dim state as New stateClass
Dim serverSocket As Socket = CType(result.AsyncState, Socket)

Try
state.clientSocket = serverSocet.EndAccept(result)

state.clientSocket.BeginReceive(state.clientBuffer,0,state.clientBuffer.Length,SocketFlags.None, _
New AsyncCallback(AddressOf ReceiveCallback,stateClass)


Catch acceptex as Exception
MsgBox(acceptex.ToString)

EndTry
EndSub

Private ReceiveCallback(ByVal result2 as IAsyncResult)
Try
Dim state As stateClass,CType(result2.AyncState,stateClass)
Dim numberBytesRead As Int32 = state.clientSocket.EndReceive(result2)

If numberBytesRead >0 Then
Dim receivedString As String = ASCII.GetString(state.clientBuffer)
Console.WriteLine(receivedString)
End If

Catch ex As Exception
MsgBox(ex.ToString)

End Try
End Sub
GeneralRe: TCP .Begin receive Pin
Dave Kreskowiak5-Oct-07 10:08
mveDave Kreskowiak5-Oct-07 10:08 
GeneralRe: TCP .Begin receive Pin
captainmogo5-Oct-07 10:23
captainmogo5-Oct-07 10:23 
GeneralRe: TCP .Begin receive Pin
Dave Kreskowiak5-Oct-07 10:36
mveDave Kreskowiak5-Oct-07 10:36 
QuestionRich Text Box Pin
Socheat.Net5-Oct-07 6:42
Socheat.Net5-Oct-07 6:42 
AnswerRe: Rich Text Box Pin
Dave Kreskowiak5-Oct-07 8:13
mveDave Kreskowiak5-Oct-07 8:13 
GeneralRe: Rich Text Box [modified] Pin
Socheat.Net6-Oct-07 4:26
Socheat.Net6-Oct-07 4:26 
QuestionProject Guideline Pin
Sarfaraj Ahmed5-Oct-07 4:25
Sarfaraj Ahmed5-Oct-07 4:25 
AnswerRe: Project Guideline Pin
Dave Kreskowiak5-Oct-07 8:15
mveDave Kreskowiak5-Oct-07 8:15 
GeneralRe: Project Guideline Pin
Sarfaraj Ahmed6-Oct-07 17:38
Sarfaraj Ahmed6-Oct-07 17:38 
GeneralRe: Project Guideline Pin
Dave Kreskowiak7-Oct-07 3:01
mveDave Kreskowiak7-Oct-07 3:01 
GeneralRe: Project Guideline Pin
Sarfaraj Ahmed8-Oct-07 1:55
Sarfaraj Ahmed8-Oct-07 1:55 
GeneralRe: Project Guideline Pin
Dave Kreskowiak8-Oct-07 4:34
mveDave Kreskowiak8-Oct-07 4:34 
GeneralRe: Project Guideline Pin
Sarfaraj Ahmed8-Oct-07 23:08
Sarfaraj Ahmed8-Oct-07 23:08 
GeneralRe: Project Guideline Pin
Dave Kreskowiak9-Oct-07 1:46
mveDave Kreskowiak9-Oct-07 1:46 
QuestionCreating custom property like TextAlign,BorderStyle for runtimeControls Pin
VB 8.05-Oct-07 2:30
VB 8.05-Oct-07 2:30 
AnswerRe: Creating custom property like TextAlign,BorderStyle for runtimeControls Pin
visualhint5-Oct-07 4:16
visualhint5-Oct-07 4:16 
QuestionSend mail using gmail Pin
Soumyadipta5-Oct-07 2:03
Soumyadipta5-Oct-07 2:03 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.