unit1.pas

采用delphi自带udp控制做的一个udp server

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Sockets, ExtCtrls, IdBaseComponent,IdSocketHandle,
  IdComponent, IdUDPBase, IdUDPClient, IdUDPServer;

type
  TUDPSEVER = class(TForm)
    send: TButton;
    sendtx: TEdit;
    IdUDPServer: TIdUDPServer;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    rxconst: TLabel;
    procedure sendClick(Sender: TObject);
    procedure IdUDPServerUDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UDPSEVER: TUDPSEVER;
  Server:string;
implementation

{$R *.dfm}

procedure TUDPSEVER.sendClick(Sender: TObject);
begin
  //timer1.Enabled :=true;
    if Length(edit1.Text)>0 then
    begin
    with IdUDPServer do
    begin{
    bindings.Add.IP:='0.0.0.0';
    bindings.Add.Port:= strtoint(edit2.text);
    bindings.Add; }
    defaultport:=strtoint(edit2.text);
    Active := True;
    end;
    end;
end;

procedure TUDPSEVER.IdUDPServerUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  var i:integer;
  var buff:array[0..8192] of byte;//PByteArray;
begin
  i:=Adata.Size ;
  Adata.Read(buff,i);
  rxconst.Caption :=inttostr(strtoint(rxconst.Caption)+1);
  idUDPServer.SendBuffer(edit1.Text,strtoint(sendtx.Text ),buff,i);
end;

end.