Windows简单TCPIP服务

参考链接
https://msdn.microsoft.com/zh-CN/library/hh202858(v=vs.92)  (后面“在您的计算机上启动简单 TCP/IP 服务”)
https://docs.microsoft.com/en-us/previous-versions/windows/it-pro/windows-server-2008-R2-and-2008/cc725973(v=ws.11)


1.  安装开启
 【控制面板】 -->【程序和功能】 --> 【启动或者关闭windows功能】 --> 【简单TCPIP服务(即echo、daytime等)】  
  启用服务 simptcp (Simple TCP/IP Services)

2. 包含的服务
  (1)Echo
     RFC862 端口 7
     回显在该服务器端口上接收到的任何消息中的数据。
     作为网络调试和监视工具可能非常有用。
  (2)Discard
     RFC863 端口 9
     放弃该端口上接收到的所有消息,而不响应或确认。
     在网络设置和配置过程中,可以用作空端口来接收和路由 TCP/IP 测试消息,或者在某些情况下,程序可将其用作为消息放弃函数。
  (3)Character Generator
     RFC864 端口 19
     所发送数据包含一组 95 个可打印的 ASCII 字符。
     作为测试或解决行打印机问题的调试工具非常有用。
  (4)Quote of the Day
     RFC865 端口 17  
     在消息中以一行或多行文本的形式返回报价。
     报价从以下文件中随机提取:%SYSTEMROOT%\System32\Drivers\Etc\Quotes。
     示例报价文件会与简单的 TCP/IP 服务一起安装。如果该文件丢失,则报价服务会失败。
  (5)Daytime
     RFC867 端口 13
     返回包含星期几、月、天、年、当前时间(以 hh:mm:ss 格式表示)和时区信息的消息。
     某些程序可能会将该服务的输出用于调试或监视系统时钟时间中或不同主机上的变化。

 

  • 2
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要进行 Delphi 的 TCP/IP 连续测试,您可以按照以下步骤操作: 1. 创建一个 TCP/IP 客户端和服务器,您可以使用 TServerSocket 和 TClientSocket 组件来实现。 2. 在服务器上创建一个事件,以便在收到客户端消息时触发。例如,您可以创建一个 OnClientRead 事件。 3. 在客户端上创建一个事件,以便在连接到服务器时触发。例如,您可以创建一个 OnConnect 事件。 4. 在客户端上创建一个循环,用于发送多个消息到服务器。您可以使用一个计数器来控制发送消息的数量。 5. 在客户端上,每次发送消息后,等待服务器的回复。您可以使用一个定时器来控制等待时间。 6. 在服务器上,每次收到客户端消息后,向客户端发送一个回复消息。 7. 您可以在客户端上创建一个事件,以便在收到服务器的回复消息时触发。例如,您可以创建一个 OnRead 事件。 8. 在循环结束后,关闭客户端和服务器连接。 以下是一个简单的 Delphi TCP/IP 连续测试的示例代码: ```delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdTCPClient, IdBaseComponent, IdComponent, IdTCPConnection, IdGlobal; type TForm1 = class(TForm) btnTest: TButton; Memo1: TMemo; IdTCPClient1: TIdTCPClient; procedure btnTestClick(Sender: TObject); procedure IdTCPClient1Connected(Sender: TObject); procedure IdTCPClient1Disconnected(Sender: TObject); procedure IdTCPClient1Connected(Sender: TObject); procedure IdTCPClient1Disconnected(Sender: TObject); procedure IdTCPClient1Connected(Sender: TObject); procedure IdTCPClient1Disconnected(Sender: TObject); private { Private declarations } FCounter: Integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnTestClick(Sender: TObject); begin FCounter := 0; IdTCPClient1.Host := 'localhost'; IdTCPClient1.Port := 5000; IdTCPClient1.Connect; end; procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin Memo1.Lines.Add('Connected to server'); end; procedure TForm1.IdTCPClient1Disconnected(Sender: TObject); begin Memo1.Lines.Add('Disconnected from server'); end; procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin Memo1.Lines.Add('Connected to server'); end; procedure TForm1.IdTCPClient1Disconnected(Sender: TObject); begin Memo1.Lines.Add('Disconnected from server'); end; procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin Memo1.Lines.Add('Connected to server'); end; procedure TForm1.IdTCPClient1Disconnected(Sender: TObject); begin Memo1.Lines.Add('Disconnected from server'); end; end. ``` 在这个示例代码中,我们使用了 TIdTCPClient 组件作为客户端,并在按钮单击事件中开始测试。在连接到服务器时,我们使用一个循环向服务器发送 10 个消息,并在每次发送完成后等待回复。在接收到服务器的回复消息时,我们将消息显示在 Memo 控件中。在测试结束时,我们关闭客户端连接。注意,这只是一个简单的示例,您可以根据自己的需求进行更改和调整。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值