解决办法:
(1)opt.h中:
#define MEMP_NUM_NETBUF 10 //原来为2
(2)lwipopts.h中:
#define DEFAULT_UDP_RECVMBOX_SIZE 10//原来为1
在VB中利用UDP协议编写聊天程序 UDP 协议是一种无连接协议,两台计算机之间的数据传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。 由于UDP 协议不需要显式的连接,就需要在两个Winsock控件中间发送数据,关键需要完成以下的三步: 1.将RemoteHost属性设置为另一台计算机的名称。 2.将RemotePort属性设置为第二个控件的LocalPort属性。 3.调用Bind方法,指定使用的LocalPort。 因为两台计算机的地位可以看成“对等的”,这种应用程序也被称为点对点的应用程序。 下面将创建一个聊天应用程序,两个人可以通过它进行实时的交谈。请按照以下步骤制作: 1.创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA,将窗体的标题修改为“Peer A”。 2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。 3.在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。 4.为窗体添加如下的代码。 Private Sub Form_Load() ′控件的名字为udpPeerA With udpPeerA ′重点:必须将 RemoteHost 的值修改为对方计算机的名字。 RemoteHost= ″PeerB″ RemotePort = 1001 ′连接的端口号。 Bind 1002 ′绑定到本地的端口。 End With frmPeerB.Show′显示第二个窗体。 End Sub Private Sub txtSend_Change() ′在键入文本时,立即将其发送出去。 udpPeerA.SendData txtSend.Text End Sub Private Sub udpPeerA_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerA.GetData strData txtOutput.Text = strData End Sub 要创建第二个 UDP 伙伴,请按照以下步骤执行: 1.在工程中添加一个标准窗体,将窗体的名字修改为 frmPeerB,将窗体的标题修改为“Peer B”。 2.在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。 3.在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。 4.在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。 5.在窗体中添加如下代码 Private Sub Form_Load() ′控件的名字为 udpPeerB。 With udpPeerB ′重点:必须将RemoteHost的值改为对方计算机的名字。 RemoteHost= ″PeerA″ RemotePort = 1002 ′要连接的端口。 Bind 1001 ′绑定到本地的端口上。 End With End Sub Private Sub txtSend_Change() ′在键入后立即发送文本。 udpPeerB.SendData txtSend.Text End Sub Private Sub udpPeerB_DataArrival _ (ByVal bytesTotal As Long) Dim strData As String udpPeerB.GetData strData txtOutput.Text = strData End Sub 运行工程,然后在两个窗体的txtSend TextBox中分别键入一些文本。键入的文字将出现在另一个窗体的 txtOutput TextBox中。首先物理层要支持,比如支持10Mbps的以太网最快可以传输1M/S,支持100Mbps的以太网最快能传10M/S其次,物理层支持的速度很大了,你的板子处理能力也要跟上,如果你用Cortex-M3或者ARM7这类单片机的话,是别想提过速度了,能达到270KB都相当好了
如果你的物理层和板子的处理速度都满足要求,那么通过配置lwip可以提高速度的,比如提高缓存包大小,使能IP分片
另外,lwip是为小型嵌入式设计的,目的是传输小数据包(每包数据不大于以太网最大的帧长:1500字节),所以你要用于很大数据量的以太网传输,lwip并不适合.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)