|
pls help me. i wonder why my server cannot send a message to my client and my client cannot read from server. anyone pls help me to debug or give me tip to do it by showing wats the command to write.My deadline for this project is comong soon. Pls help me. thanks a lot.
here is my source code
server:
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As TcpClient
Private Listener As Socket
Private RemotePort As Integer = 1337
Private RemoteHost As String = "localhost"
Dim add As IPAddress = IPAddress.Parse("220.255.41.189")
Public Shared Connected As New ManualResetEvent(False)
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub blisten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blisten.Click
Listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Listener.Blocking = False
Listener.Bind(New IPEndPoint(add, RemotePort))
Listener.Listen(1)
ListBox1.Items.Add("Waiting for connection...")
Listener.BeginAccept(New AsyncCallback(AddressOf AcceptConnection), Listener)
End Sub
Public Sub AcceptConnection(ByVal ar As IAsyncResult)
ListBox1.Items.Add("Connection established.")
Connected.Set()
Dim serverSock As Socket = CType(ar.AsyncState, Socket)
Dim clientSock As Socket = serverSock.EndAccept(ar)
Dim buffer(1024) As Byte
While True
If (clientSock.Poll(100, SelectMode.SelectRead)) Then
Dim count As Integer = clientSock.Receive(buffer)
ListBox1.Items.Add(System.Text.Encoding.ASCII.GetString(buffer, 0, count))
End If
End While
End Sub
Private Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click
Dim Stream As NetworkStream = Client.GetStream()
Dim dataSend As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
'Send Message
Stream.Write(dataSend, 0, dataSend.Length)
Stream.Flush()
End Sub
End Class
my client source code:
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As TcpClient
Private Listener As Socket
Private RemotePort As Integer = 1337
Private RemoteHost As String = "localhost"
Dim add As IPAddress = IPAddress.Parse("220.255.41.189")
Public Shared Connected As New ManualResetEvent(False)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub bconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bconnect.Click
Try
Client = New TcpClient
Client.Connect(add, RemotePort)
Catch ex As Exception
ListBox1.Items.Add("No route to host.")
End Try
End Sub
Private Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click
Dim Stream As NetworkStream = Client.GetStream()
Dim dataSend As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
'Send Message
Stream.Write(dataSend, 0, dataSend.Length)
Stream.Flush()
End Sub
Public Sub AcceptConnection(ByVal ar As IAsyncResult)
ListBox1.Items.Add("Connection established.")
Connected.Set()
Dim serverSock As Socket = CType(ar.AsyncState, Socket)
Dim clientSock As Socket = serverSock.EndAccept(ar)
Dim buffer(1024) As Byte
While True
If (clientSock.Poll(100, SelectMode.SelectRead)) Then
Dim count As Integer = clientSock.Receive(buffer)
ListBox1.Items.Add(System.Text.Encoding.ASCII.GetString(buffer, 0, count))
End If
End While
End Sub
|
|
|
|
|
For sending messages and files over network you can see many articles and you can get refrences that is fully managed .so you can use in your project.if you are in neck.
eample :unolibs.Net.dll its vey useful.search here in articls or googling it
Ishak
|
|
|
|
|
Hallo together,
I want to write a VB6 application using TAPI interface.
It should show the list of TAPI providers on the PC and e.g. receive TAPI call events from a specific TSP.
Therefore I need the TAPI SDK (controls, drivers, samples, etc.) for Windows 2000 as mentioned on this site. But it is not available anymore on the Microsoft site.
Would be anyone so kind and would send me this sdk by email to falk.hertel@t-online.de?
I hope that I will be able to code this app then!...
Thank you so much.
Best wishes, Falk
|
|
|
|
|
The TAPI SDK is part of the Platform SDK. Noone on this earth is going to email that to you 'cause it can weigh in at over 400MB.
You can start the web install for the Platform SDK from here[^]. Keep in mind that this SDK targets C++, not VB, so most of the examples will, obviously, be in C++.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hallo Dave,
thanks for your answer and the given link. But this one I know. You can only get the new Platform SDK. There is a service to buy older versions but you have to have an credit card. I don't have and need such a crd. In Europe we use EC-cards much more.
The Americans cannot imagine that this is the fact. They don't support direct banc transfer as well. Don't understand that!...
So I need the help of others - like you.
I found out that it actually seems not to be possible to get a separate TAPI package but only the big Platform SDK - as you mentioned.
So are you able to send me this CD? I will pay for your kindness in advance onto your banc account of course!! Tell me the costs.
See, any platform SDK from last year or older is okay. VB6 still was supported that time and therefore VB6 examples etc. will be included.
Which version do you have?
Thank you very much for your help, Dave.
Best wishes, Falk
|
|
|
|
|
softterrier@web.de wrote:
There is a service to buy older versions but you have to have an credit card. I don't have and need such a crd. In Europe we use EC-cards much more.
The Americans cannot imagine that this is the fact. They don't support direct banc transfer as well. Don't understand that!...
We use Debit card attached to bank accounts, they're not too much different.
softterrier@web.de wrote:
So are you able to send me this CD?
Nope.
I always download the thing so I don't have to CD's and never worry about getting them.
The last version that still supported VB6 was the February 2003 Edition, which you can only get on CD's. You would have a better chance finding someone in the UK that still has the CD's or can get the UK CD's for you.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi
I am new to vb.net can anyone tell me how to populate the all the child nodes present in a parent node of a treeview control into listview when a parent node of a treeview is selected or clicked
thanks in advance
Kalyan
|
|
|
|
|
Doesn't the parent node have a child nodes property you can use ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
No it does'nt have that property
|
|
|
|
|
There's no way to iterate through the child nodes of a particular node ? That would make that control complete crap. It would also mean it can't be done.
The WinForms TreeControl has a TreeNode class, which represents one node in the view. Like the node you're talking about. That node has a property called ChildNodes. That is what you need.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I don't want to add nodes to treeview i want to get all the child nodes added to listview when a parent node of a treeview is clicked
|
|
|
|
|
That's exactly what Christian is suggesting you to do, iterate through the child nodes and add them to the listview. Something like
void AddToList(TreeNode parent)
{
foreach(TreeNode child in parent.Nodes)
{
listView.Items.Add(child.Text);
}
}
Regards
Senthil
_____________________________
My Blog | My Articles | WinMacro
|
|
|
|
|
Just a note, if you wish to parse through ALL child nodes, I suggest that a recursive method should be used to parse all sub-children of the children of the selected parent node. In other words, if you use the above code all you will get in your listview is your 1st generation children of the parent passed in.
Example:
Parent
-child1
-subchild1
-subchild2
-child2
You will only get child1 and child2 to show up.
|
|
|
|
|
Hello all, i'm just really getting started with VB.NET and could use
some help with a project i am doing for class.
I am designing a mock student registration client and i need to use
Two List Boxes, with 4 buttons in between the two boxes to add/remove
add all/remove all for each selection.
It would work something like this. The Left List Box would contain
classes available, and the Right List Box would contain classes the
user has selected. I am wondering if there is a Windows Form addon
or something i can use to add this functionality.
So, to sum up, left box>classes avail. if user clicks class and
presses add, the class needs to move to the right list box which is
classes taken. and vice versa.
Any help would be appreciated.
Thanks
|
|
|
|
|
The list box exposes a property of items selected. Iterate through it, and remove each item from one, and add it to the other.
msdn.microsoft.com is the Microsoft help page. You should look there first, look up listbox, and at the bottom will be a link to listbox properties. That will list everything the listbox does, which is always a good place to start.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Is it possible to build a very specific file & folder search?. For example just like the file finder that windows has built in?. If it is, is there any way that someone can show me examples of what to use, how to use, like, namespaces, classes, etc. Or a website with some real help?. I really need to write my own programs things are getting very specific at work and the programs that we have do not really do what we want. The only way is by writing our own.
|
|
|
|
|
I had to do a file search one day, it may help you.
here it is :
<font color=blue>Dim</font> dlg <font color=blue>As OpenFileDialog</font>
<font color=blue>Dim</font> rep <font color=blue>As String</font>
<font color=blue>Dim</font> aff, a <font color=blue>As String</font>
<font color=blue>Dim</font> liste <font color=blue>As New ArrayList</font>
aff = ""
dlgouvrir = <font color=blue>New OpenFileDialog</font>
dlg.InitialDirectory = "."
dlg.Title = "searching the Tarifs.txt file"
dlg.Filter = "text|*.txt"
dlg.DefaultExt = "txt"
dlg.AddExtension = <font color=blue>True</font>
dlg.CheckFileExists = <font color=blue>True</font>
dlg.Multiselect = <font color=blue>False</font>
dlg.ShowDialog()
rep = dlg.FileName
<font color=green>
<font color=green>
<font color=blue>If Not</font> IsNothing(rep) <font color=blue>Then</font>
liste = ctrl.read(rep)
<font color=blue>Else</font>
liste = <font color=blue>Nothing</font>
<font color=blue>End If</font>
|
|
|
|
|
hello, I want to disable de double click event in treeview.
The reason is that I don't want that when you do double click over a node, automatically unfolds a child node, and I don't want this.
how I can do that when I do double click in a node, don't occurs anything?
Thanks
|
|
|
|
|
Hi.
Have you tried the 'DoubleClick' event on it?
I didn't test it, but maybe you can set something like this :
your_TreeView.TreeView.SelectedNode=your_TreeView.TreeView.SelectedNode.PrevNode
try it, and tell me if it's right or not.
|
|
|
|
|
|
Thanks for your repply, but where I have to put this code, if I want to disable the double click event. I think that I have to put the code in the double click event, but in this event, the property Cancel doesn't exists.
Thanks
|
|
|
|
|
Does any body know how to read a wave file from the vb code and to get the values into an array. I want to do it with out using mmioOpen function. Can I do this using open for binary method. If so how it should be?
Thanks in advance.
|
|
|
|
|
for what purpose do we use Controlcollection datatype?
please..........help
Mian Rashed Inam Khattak
|
|
|
|
|
Hi,
I have created a VB ActiveX DLL inside which I kept a single function. which dll is used by the VB script, inside script I create a object using "CraeteObject", This script run correctly On win32 OS but on 64 bit OS gives the error "Can't create the object" (Similiar).
Please help me to solve this problem.
Anuj
Anuj
|
|
|
|
|
Hai...
I have a written a dll in vc++. Now i want to call this dll in vb.Please let me know.
Thanking you![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
e.veera raghavendra
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
