Delphi UDp控件

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.Add;

            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地址和端口号；在具体应用中是哪种情况，要根据测试结果而定。

我自己折腾半天，总是报错，原来是没有添加udp控件，这两个控件在Indy Server标签下，郁闷啊。折腾一天，原来这原因。

我自己