关于一端用VS2005C#，一端用VB6.0作的网络通信的问题！

[蛮牛他爹]

(同发本论坛C#版块和VB“网络编程”版块)


关于一端用VS2005，C#，一端用VB6.0作的网络通信的问题！


最近和朋友在搞一个小程序，就是实现局域网两端通信。朋友做的那端是server端，采用的开发环境是VS2005，C#，具体实现方法我不懂，因为我对C#是外行，但是他给我提供了源代码，稍候发在下面；我这端做的是client端，开发环境是VB6.0，实现方法是采用winsock控件，协议采用的是TCP/IP协议！（后面也有我VB做的源代码！）

现在出现的一个问题是：我的client端能连接上他，但是在通讯的时候，他发给我的信息，在任何情况下，我收不到。我发给他信息，只能收到第一条，以后的就收不到了！也就是说，或者他的程序重启，再连接，我发给他的信息，他能收到；或者我的程序重启，再连接，再发信息给他，他能收到。每次都是重启后第一条信息可以收到，不重启的话，以后的信心都收不到！

两端源代码在后面！

各位大侠，怎么回事啊？怎么解决呢？是我的这端出了问题，还是他那端出了问题？
我自己又用VB做了server端的程序，然后又用我的这个client端的程序连接，一切都正常啊！！郁闷了！我不懂c#!


麻烦各位大侠找下问题所在，虽然我不懂C#，但是我可以把大家的建议发给我朋友看！

谢谢了，辛苦你们了，大热天的！

[蛮牛他爹]

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下是server端的C#的代码（朋友发给我的）：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.Threading;
using System.Net.Sockets;
using System.IO;
namespace Network
{
/// <summary>
/// Form1 的摘要说明。
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
private System.Windows.Forms.Label label1;
private System.Windows.Forms.TextBox textBox1;
private System.Windows.Forms.Label label2;
private System.Windows.Forms.TextBox textBox2;
private System.Windows.Forms.Button button1;
private System.Windows.Forms.Label label3;
private System.Windows.Forms.RichTextBox richTextBox1;
private System.Windows.Forms.Label label4;
private System.Windows.Forms.RichTextBox richTextBox2;

//声明监听线程对象
private Thread MyListenThread;
//声明网络监听对象
private TcpListener MyTcpListener;
private System.Windows.Forms.RichTextBox richTextBox3;
private System.Windows.Forms.Label label5;
/// <summary>
/// 必需的设计器变量。
/// </summary>
private System.ComponentModel.Container components = null;

public Form1()
{
//
// Windows 窗体设计器支持所必需的
//
InitializeComponent();

//
// TODO: 在 InitializeComponent 调用后添加任何构造函数代码
//
}

/// <summary>
/// 清理所有正在使用的资源。
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}

#region Windows 窗体设计器生成的代码
/// <summary>
/// 设计器支持所需的方法 - 不要使用代码编辑器修改
/// 此方法的内容。
/// </summary>

[蛮牛他爹]

private void InitializeComponent()
{
this.label1 = new System.Windows.Forms.Label();
this.textBox1 = new System.Windows.Forms.TextBox();
this.label2 = new System.Windows.Forms.Label();
this.textBox2 = new System.Windows.Forms.TextBox();
this.button1 = new System.Windows.Forms.Button();
this.label3 = new System.Windows.Forms.Label();
this.richTextBox1 = new System.Windows.Forms.RichTextBox();
this.label4 = new System.Windows.Forms.Label();
this.richTextBox2 = new System.Windows.Forms.RichTextBox();
this.richTextBox3 = new System.Windows.Forms.RichTextBox();
this.label5 = new System.Windows.Forms.Label();
this.SuspendLayout();
//
// label1
//
this.label1.Location = new System.Drawing.Point(8, 16);
this.label1.Name = "label1";
this.label1.Size = new System.Drawing.Size(104, 16);
this.label1.TabIndex = 0;
this.label1.Text = "接收主机IP地址：";
//
// textBox1
//
this.textBox1.Location = new System.Drawing.Point(112, 8);
this.textBox1.Name = "textBox1";
this.textBox1.Size = new System.Drawing.Size(96, 21);
this.textBox1.TabIndex = 1;
this.textBox1.Text = "";
//
// label2
//
this.label2.Location = new System.Drawing.Point(216, 16);
this.label2.Name = "label2";
this.label2.Size = new System.Drawing.Size(48, 16);
this.label2.TabIndex = 2;
this.label2.Text = "姓名：";
//
// textBox2//写姓名的文本框
//
this.textBox2.BackColor = System.Drawing.SystemColors.ActiveCaptionText;
this.textBox2.Location = new System.Drawing.Point(264, 8);
this.textBox2.Name = "textBox2";
this.textBox2.Size = new System.Drawing.Size(88, 21);
this.textBox2.TabIndex = 3;
this.textBox2.Text = "";
//
// button1
//
this.button1.Location = new System.Drawing.Point(272, 32);
this.button1.Name = "button1";
this.button1.TabIndex = 4;
this.button1.Text = "发送";
this.button1.Click += new System.EventHandler(this.button1_Click);
//
// label3
//
this.label3.Location = new System.Drawing.Point(8, 40);
this.label3.Name = "label3";
this.label3.Size = new System.Drawing.Size(128, 16);
this.label3.TabIndex = 5;
this.label3.Text = "将要发送的内容：";
//
// richTextBox1将要发送的内容的文本
//
this.richTextBox1.Location = new System.Drawing.Point(8, 56);
this.richTextBox1.Name = "richTextBox1";
this.richTextBox1.Size = new System.Drawing.Size(344, 56);
this.richTextBox1.TabIndex = 6;
this.richTextBox1.Text = "";
//
// label4
//
this.label4.Location = new System.Drawing.Point(176, 120);
this.label4.Name = "label4";
this.label4.Size = new System.Drawing.Size(104, 16);
this.label4.TabIndex = 7;
this.label4.Text = "已经收到的内容：";
//
// richTextBox2已经收到的内容的文本
//
this.richTextBox2.Location = new System.Drawing.Point(176, 136);
this.richTextBox2.Name = "richTextBox2";
this.richTextBox2.Size = new System.Drawing.Size(176, 136);
this.richTextBox2.TabIndex = 8;
this.richTextBox2.Text = "";
//
// richTextBox3已经发送的内容的文本
//
this.richTextBox3.Location = new System.Drawing.Point(8, 136);
this.richTextBox3.Name = "richTextBox3";
this.richTextBox3.Size = new System.Drawing.Size(160, 136);
this.richTextBox3.TabIndex = 10;
this.richTextBox3.Text = "";
//
// label5
//
this.label5.Location = new System.Drawing.Point(8, 120);
this.label5.Name = "label5";
this.label5.Size = new System.Drawing.Size(112, 16);
this.label5.TabIndex = 9;
this.label5.Text = "已经发送的内容：";
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
this.ClientSize = new System.Drawing.Size(360, 278);
this.Controls.Add(this.richTextBox3);
this.Controls.Add(this.label5);
this.Controls.Add(this.richTextBox2);
this.Controls.Add(this.label4);
this.Controls.Add(this.richTextBox1);
this.Controls.Add(this.label3);
this.Controls.Add(this.button1);
this.Controls.Add(this.textBox2);
this.Controls.Add(this.label2);
this.Controls.Add(this.textBox1);
this.Controls.Add(this.label1);
this.MaximizeBox = false;
this.Name = "Form1";
this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
this.Text = "演示点对点的聊天";
this.Load += new System.EventHandler(this.Form1_Load);
this.Closed += new System.EventHandler(this.Form1_Closed);
this.ResumeLayout(false);

}
#endregion

/// <summary>
/// 应用程序的主入口点。
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void StartListen()
{
MyTcpListener=new TcpListener(888);
//开始监听
MyTcpListener.Start();
while(true)
{//获取TcpClient
TcpClient MyTcpClient=MyTcpListener.AcceptTcpClient();
NetworkStream MyStream=MyTcpClient.GetStream();
byte[] MyBytes = new byte[1024];
int MyBytesRead=MyStream.Read(MyBytes,0,MyBytes.Length);
string MyMessage=System.Text.Encoding.Default.GetString (MyBytes,0,MyBytesRead);
this.richTextBox2.Text+=MyMessage;
}
}
private void button1_Click(object sender, System.EventArgs e)
{//发送聊天内容
if (this.textBox1.Text.Length<1||this.textBox2.Text.Length<1||this.richTextBox1.Text.Length<1)
return;
try
{
string MyMessage= this.textBox2.Text+":"+this.richTextBox1.Text+"\n";
//根据目标计算机地址建立连接
TcpClient MyTcpClient = new TcpClient(this.textBox1.Text, 888);
//获得用于网络访问的数据流
NetworkStream MyTcpStream =MyTcpClient.GetStream();
StreamWriter MyStream = new StreamWriter(MyTcpStream);
//将字符串写入流
MyStream.Write(MyMessage);
//将缓冲数据写入基础流
MyStream.Flush();
//关闭网络流
MyStream.Close();
MyTcpClient.Close();
this.richTextBox3.AppendText(this.richTextBox1.Text+"\n");
this.richTextBox1.Clear();
}
catch(Exception Err)
{
MessageBox.Show(Err.Message,"信息提 示",MessageBoxButtons.OK,MessageBoxIcon.Information);
}
}
private void Form1_Load(object sender, System.EventArgs e)
{//开始监听
//创建监听线程
this.MyListenThread= new Thread(new ThreadStart(StartListen));
//启动线程
this.MyListenThread.Start();
}

private void Form1_Closed(object sender, System.EventArgs e)
{//关闭SOCKET
try
{
if (this.MyTcpListener!=null)
{//关闭监听器
this.MyTcpListener.Stop();
}
if (this.MyListenThread!=null)
{ //如果线程还处于运行状态就关闭它
if (this.MyListenThread.ThreadState==ThreadState.Running)
{
this.MyListenThread.Abort();
}
}
}
catch(Exception Err)
{
MessageBox.Show(Err.Message,"信息提示",MessageBoxButtons.OK,MessageBoxIcon.Information);
}
}
}
}

[蛮牛他爹]

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下是我的client端的VB的程序：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝





Private Sub ClientSock_DataArrival(ByVal bytesTotal As Long) '收到对方发过来的数据时，触发该事件
Dim strData As String

ClientSock.GetData strData
Text3.Text = strData '显示收到的数据strData到以text上

End Sub






Private Sub ConnetCmd_Click() '连接到服务端

ClientSock.Connect Text1.Text, CLng(Text2.Text)


End Sub






Private Sub SendCmd_Click() '发送消息到服务端，具体信息是：oh my god！
Dim str As String
If ClientSock.State <> sckConnected Then '如果没有连接上，就不发送
MsgBox "未连接，不能发送信息！"
Exit Sub
End If
ClientSock.SendData "oh my god!"
End Sub








Private Sub Timer1_Timer() 'Timer控件，随时显示连接状态

Select Case ClientSock.State

Case 6
Label5.Caption = "正在连接...."
Case 7
Label5.Caption = "连接成功！"
ConnetCmd.Enabled = False
Label5.ForeColor = &HFF00&
Case 9
Label5.Caption = "连接错误，请检查后重新连接！"
ClientSock.Close
ConnetCmd.Enabled = True
Case Else
Label5.Caption = "发生错误，请检查后重新连接！"
ClientSock.Close
ConnetCmd.Enabled = True
End Select

End Sub

[anne_all]

绝望了，再顶！！！！！！！！1

[river_a]

是他的server 端监听有问题。
他不断的建立新的接收连接（如果有新的连接请求），每次建立连接后，只接收一次数据

[anne_all]

各位好心的大侠帮帮忙，指明错误之处！本人万分感谢！！！

[蛮牛他爹]

谢谢楼上的朋友，我把这个信息反馈给他！（有什么具体解决办法吗？）
感谢！！！

[river_a]

看样子她刚学，照抄的书上的例子，你干脆做个vb 服务器端好了

[蛮牛他爹]

但是她用的开发环境是c#啊，我只是用VB做server端在自己做测试！！！！
另外再请教下：用C#做网络通信，是不是必须两端都要建server，这样通信才会正常！
现在的情况是：我同事用C#做server，我用VB做client，我发消息给她，经过调试，已经正常了！但是她发给我的信息，我没法收到。那是不是我这边还要用VB建个server，她再来连接我，然后用这个连接她来发消息给我，就会正常啊？？？

我用VB做测试的时候，只需要一端建立server，一端建立client，然后连接上，然后互发信息，一切都没有问题！

另外，我原来稍微看了一点delphi的书，看到网络通信时，里面好像说的是，通信两端都必须同时建立server、client，这样互相通信才会正常。
（用的winsock，协议为TCP/IP）
所以我想问问，在用C#做网络通信的时候，是不是也必须双方都建立server和client，这样才会相互通信正常啊？？？

[fyeo]

[Quote=引用 6 楼 river_a 的回复:]
是他的server 端监听有问题。
他不断的建立新的接收连接（如果有新的连接请求），每次建立连接后，只接收一次数据
[/Quote]

同意

[river_a]

[Quote=引用 9 楼 anneall 的回复:]
但是她用的开发环境是c#啊，我只是用VB做server端在自己做测试！！！！
另外再请教下：用C#做网络通信，是不是必须两端都要建server，这样通信才会正常！
现在的情况是：我同事用C#做server，我用VB做client，我发消息给她，经过调试，已经正常了！但是她发给我的信息，我没法收到。那是不是我这边还要用VB建个server，她再来连接我，然后用这个连接她来发消息给我，就会正常啊？？？

我用VB做测试的时候，只需要一端建立…
[/Quote]
不需要两端建server, 只需一个，建立连接后，就像建立了一个海底隧道，像双向通车一样可以双向通信。
他水平不到家，不会发信息，所以你收不到。不信的话，你让他发给自己，看他能收到不？

[蛮牛他爹]

各位大哥，那他那端该怎么实现啊？？？求助一下，因为我也不懂！！！
谢谢了！！！