当前位置：工控论坛 > > 产品 > 工业互联 > 工业以太网

求助：如何开发以太网通讯应用程序？ 点击：944 | 回复：6



guo2005

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 0回
  • 年度积分：0
  • 历史总积分：3
  • 注册：2006年9月22日
发表于：2006-09-24 15:34:00
楼主
 近期查阅了一些工业以太网资料，但不是很有头绪，不知道应用重点在哪？该如何开发应用程序呢？请高手赐教，不胜感谢。
分享到：
收藏 邀请回答 回复楼主 举报



寒阳冰泉～阳纯泉

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 5回
  • 年度积分：0
  • 历史总积分：14
  • 注册：2005年1月24日
发表于：2006-09-27 13:02:00
1楼
不管你指的是底层的单片机部分还是PC上的界面程序，总之用tcp/ip协议便是，如果是PC上的界面程序，用Socket控件，你可以去查下Windows Socket网络编程的相关资料。
回复 引用 举报

rwhuang

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 137回
  • 年度积分：0
  • 历史总积分：175
  • 注册：2005年6月10日
发表于：2006-09-30 11:37:00
2楼
服务器程序使用的控件如下： 
　　（1）Command1：退出按钮； 
　　（2）textsend：发送数据文本框； 
　　（3）Winsockserver： 服务器Winsock； 
　　（4）textget ：接收数据文本框。 
　　服务器程序的界面如图所示。 
　　服务器程序的源代码如下： 
　Private Sub Command1_Click() 
　　End 
　　End Sub 
　　Private Sub Form_Load() 
　　 textsend.Visible = False 
　　 textget.Visible = False 
　　 Winsockserver.LocalPort = 1001 
　　 Winsockserver.Listen 
　　End Sub 

　　Private Sub textsend_Change() 
　　Winsockserver.SendData textsend.Text 
　　End Sub 
　　Private Sub Winsockserver_Close() 
　　Winsockserver.Close 
　　End 
　　End Sub 
　　 
　　Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long) 
　　textsend.Visible = True 
　　textget.Visible = True 
　　If Winsockserver.State <> sckClosed Then Winsockserver.Close 
　　Winsockserver.Accept requestID 
　　End Sub 
　　 
　　Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) 
　　Dim tmpstr As String 

　　Winsockserver.GetData tmpstr 
　　textget.Text = tmpstr 
　　End Sub 


　客户机程序使用的控件如下： 
　　（1）Command1：退出按钮； 
　　（2）Command2：连接按钮； 
　　（3）Winsockclient：客户Winsock； 
　　（4）Text1：主机名文本框； 
　　（5）Textsend：发送数据文本框； 
　　（6）Textget：接收数据文本框； 　　
　　客户机程序的源代码如下： 
　　Private Sub Command1_Click() 
　　End 
　　End Sub 
　　Private Sub Command2_Click() 
　　Winsockclient.Connect 
　　End Sub 
　　Private Sub Form_Load() 
　　textsend.Visible = False 
　 textget.Visible = False 
　　 Winsockclient.RemotePort = 1001 
　　Winsockclient.RemoteHost = "sccdsz" 
　　End Sub 
　　Private Sub Text1_Change() 
　　Winsockclient.RemoteHost = Text1.Text 
　　End Sub 
　　Private Sub textsend_Change() 
　　Winsockclient.SendData textsend.Text 
　　End Sub 
　　Private Sub Winsockclient_Close() 
　　 Winsockclient.Close 
　　 End 
　　End Sub 
　　Private Sub winsockclient_Connect() 
　　 textsend.Visible = True 
　　 textget.Visible = True 
　　 Command2.Visible = False 
　　End Sub 
　　Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long) 
　　Dim tmpstr As String 
　　Winsockclient.GetData tmpstr 
　　textget.Text = tmpstr 
　　End Sub

回复 引用 举报

leodeng

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 7回
  • 年度积分：0
  • 历史总积分：9
  • 注册：2006年9月30日
发表于：2006-09-30 17:59:00
3楼
IP2022/IP3023是美国UBICOM推出的一颗功能强大的网络通信处理器，处理器速度可达120/250MHZ.
  本公司提供最专业的各种IP2K/IP3K解决方案及开发工具,全程给您支持与服务.
  了解更多请进http://www.szgv-tech.com

邓先生
深圳市集为科技有限公司
电话：0755 8329 0805
手机：13924595392
QQ： 280415658
邮箱：kevin@szgv-tech.com
回复 引用 举报

半空烟雨

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 16回
  • 年度积分：0
  • 历史总积分：27
  • 注册：2005年11月02日
发表于：2006-10-05 12:24:00
4楼
你用的是哪种开发工具阿？

回复 引用 举报

半空烟雨

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 16回
  • 年度积分：0
  • 历史总积分：27
  • 注册：2005年11月02日
发表于：2006-10-05 12:24:00
5楼
你用的是哪种开发工具阿？

回复 引用 举报

leodeng

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 7回
  • 年度积分：0
  • 历史总积分：9
  • 注册：2006年9月30日
发表于：2006-10-30 14:06:00
6楼
[color=#FF0000]IP2022/IP3023是美国UBICOM推出的一颗功能强大的网络通信处理器，处理器速度可达120/250MHZ.
  本公司提供最专业的各种IP2K/IP3K解决方案及开发工具,全程给您支持与服务.
  了解更多请进http://www.szgv-tech.com

邓先生
深圳市集为科技有限公司
电话：0755 8329 0805
手机：13924595392
QQ： 280415658
邮箱：kevin@szgv-tech.com[/color]
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师