delphi7 tcp 服务端持续监控 delphi tcpserver编程

DELPHI中有两个UDP控件：TIdUDPServer和TIdUDPClient控件，可用于传输UDP数据；用法都很简单，主要是一些细微的特性，弄清楚了对正确使用这两种控件有很大的好处；下面分别介绍：

一、              TIdUDPServer：代表一个UDP的服务端，接收UDP客户端发过来的数据；在FORM上放置一个TIdUDPServer控件，命名为UDPSvr，在FormCreate事件中编写如下代码：

 

UDPSvr.Bindings.Add;
    UDPSvr.Bindings[0].IP := ‘192.168.2.117’;
 UDPSvr.Bindings[0].Port := 1812;
 UDPSvr.Active := True;

在UDPSvr控件的OnUDPRead事件中编写如下代码：

var
    Buffer: array[0..1024] of Char;
    iSize: integer;
    sData: string;
begin
      ZeroMemory(@Buffer,sizeof(Buffer));
 
      iSize := AData.Size;
      if iSize > 1024 then
      begin
        iSize := 1024;
      end;
 
      AData.Seek(0,soFromBeginning);
      iSize := AData.Read(Buffer,iSize);
      。。。。。{对接收数据的处理}
end;

这样就完成了一个可以接收数据的UDP应用程序；

其实TIdUDPServer有发送数据的方法：Send和SendBuffer，是继承自TIdUPDBase，所以只要利用TIdUDPServer控件就可完成数据的收发，在FORM上添加一个Tbutton控件，在Click事件中添加如下代码；

var
  Buffer: array[0..1024] of Char;
  sText: string;
  iLen: integer;
begin
  sText := ‘12345678’
  ZeroMemory(@Buffer,sizeof(Buffer));
  StrPCopy(Buffer,sText);
  iLen := Length(sText);
 
UDPSvr.SendBuffer(‘192.168.2.117’,1814,Buffer,iLen);
end

;

 

            这样就可以向另一UDP应用程序发送数据；

 

          一个TIdUDPServer控件可以打开多个端口，如下的代码打开了两个端口：

         

UDPSvr.Bindings[0].IP := GetLocalIP;
            UDPSvr.Bindings[0].Port := 1812;
 
            UDPSvr.Bindings.Add;
            UDPSvr.Bindings[1].IP := GetLocalIP;
            UDPSvr.Bindings[1].Port := 1813;
 
            UDPSvr.Active := True;

      

             当打开多个端口时，发送数据是从哪个端口发送出去呢？根据测试结果是：最近收到数据的那个端口；如果还没有收到过数据，则为Bindings[0].Port；

      

            在接收数据的事件中，有一个TidSocketHandle类型的参数：Abinding；这个参数有两对属性：

            IP 、Port：代表本地IP地址和端口；

            PeerIP、PeerPort：代表远端IP地址和端口；

            其中PeerIP、PeerPort在交复发送数据的UDP应用中是很有用的，因为UDP服务端可以向PeerIP和PeerPort回应数据，而不用再去设置UDP客户端的IP地址和端口号（这种方法应用不当，会产生问题，下面会说到）；

 

二、              TIdUDPClient：代表一个UDP的客户端，专门用于发送UDP数据，不能接收数据，因为没有相应的事件和方法；前面已经说过，利用TIdUDPServer控件就可以完成UDP数据的收发，所以一直怀疑TIdUDPClient控件存在的必要性；除非有一个UDP的客户端只发送数据，而从不接收数据，这样的客户端应该很少；后来我想，可能可以用TIdUDPClient控件来分担TIdUDPServer控件的负载，在一个需要收发大量UDP数据的服务端中，TIdUDPServer控件只接收数据，另外专门用一个TIdUDPClient控件发送数据，也许可以提高应用程序的性能（没有经过验证）；利用TIdUDPClient发送数据有两种方式：

1、  利用TIdUDPClient控件本身的Send和SendBuffer方法，这时需要设置Host和Port属性，在FORM上放置一个TIdUDPClient控件，命名为：UDPClt；分别设置Host和Port属性值为：192.168.2.117和1814；再编写如下代码：

var
  Buffer: array[0..1024] of Char;
  sText: string;
  iLen: integer;
begin
  sText := ‘12345678’;
 
  ZeroMemory(@Buffer,sizeof(Buffer));
  StrPCopy(Buffer,sText);
  iLen := Length(sText);
 
  UDPClt.SendBuffer(Buffer,iLen);
   end;

2、  不需要设置Host和Port属性，而直接利用从TIdUPDBase继承来的Send和SendBuffer方法，也可发送数据，代码如下所示：

 

UDPClt.SendBuffer(‘192.168.2.117’,1814,Buffer,iLen);

 

 TIdUDPClient控件发送数据时是通过哪个端口发出去的呢？根据测试的结果：是随机的；这样就给上面说过的UDP服务端可以向PeerIP和PeerPort回应数据造成了麻烦，也就是说如果UDP服务端收到的数据是通过TIdUDPClient控件发过来的，就不能通过PeerIP和PeerPort回应回去，而应设定客户端的IP地址和端口号；在具体应用中是哪种情况，要根据测试结果而定。