Delphi用Socket IP/UDP局域网广播

A类互联网网址： 7位网络号 24位主机号

01111111.11111111.11111111.11111111 --->01111111 = 127

0..127 0..255 0..255 0..255

0.0.0.0 -- 127.255.255.255

B类互联网网址： 14位网络号 16位主机号

10111111.11111111.11111111.11111111 --->10111111 = 191

128..191 0..255 0..255 0..255

128.0.0.0 -- 191.255.255.255

C类互联网网址： 21位网络号 8位主机号

11011111.11111111.11111111.11111111 --->11011111 = 223

192..223 0..255 0..255 0..255

192.0.0.0 -- 223.255.255.255

多播地址： 224.0.0.0 -- 255.255.255.255

const  
  MCASTADDR     = ‘234.5.6.7’;  
  MCASTPORT     = 25000;  
  LOCAL_PORT    = 5555;  
  WM_SOCKET     = WM_USER + 55;  
type  
  TForm1 = class(TForm)  
    Button1: TButton;  
    Edit1: TEdit;  
    ListBox1: TListBox;  
    CheckBox1: TCheckBox;  
    procedure FormCreate(Sender: TObject);      
    procedure Button1Click(Sender: TObject);  
    procedure FormClose(Sender: TObject; var Action: TCloseAction);  
  private  
    { Private declarations }  
    procedure WMSocket(var Msg: TMessage); message WM_SOCKET;  
  public  
    { Public declarations }  
  end;  
var  
  Form1: TForm1;  
implementation  
{$R *.dfm}  
procedure ErrMsg( msg: string );  
begin  
  MessageBox( 0, PChar(msg), ‘Ping Program Error’, MB_ICONERROR );  
end;  
procedure TForm1.WMSocket(var Msg: TMessage);  
var  
  buf:array[0..255]of char;  
  remote:TSockaddr;  
  len:integer;   p:string;  
begin  
  case WSAGetSelectEvent( Msg.LParam ) of  
    FD_READ :  
    begin  
      recvfrom(msg.WParam, buf[0], 255,0, remote, len );  
      getpeername(  msg.WParam, remote, len );  
      p :=  inet_ntoa(remote.sin_addr) + ‘Port: ’ + inttostr(ntohs(remote.sin_port));  
      listbox1.Items.Add(p + buf);  
    end;  
  end;  
end;  
procedure TForm1.FormCreate(Sender: TObject);  
var  
  wsa : TWSAData;  
begin  
  if WSAStartup( $0202, wsa ) <> 0 then  
     ErrMsg( ‘Windows socket is not responed.’);  
  listbox1.Font.Name := ‘Courier New’;  
  listbox1.Font.Size := 9;  
end;  
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);  
begin  
  if WSACleanup <> 0 then  
     ErrMsg( ‘Windows socket can not be closed.’ );  
end;  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  sock : TSocket;  
  local,  
  remote    : TSockAddr;  
  bufsend  : Array[0..31]of char;  
  ret,i      : s32;  
  ttl, opt : s32;  
  bSender :bool;  
  mcast   :ip_mreq;  
begin  
  bSender := CheckBox1.Checked;  
  sock := socket( AF_INET, SOCK_DGRAM, 0 );  
  if sock = INVALID_SOCKET then  
  begin  
    ErrMsg( ‘socket Failed: ’ + IntToStr(WSAGetLastError) );  
    exit;  
  end;  
  local.sin_family := AF_INET;  
  local.sin_port := htons(u16(MCASTPort));  
  local.sin_addr.S_addr := inet_addr(‘192.168.1.12’);  
  //  
  if bind( sock, @local, SizeOf(local) )= SOCKET_ERROR then  
  begin  
    ErrMsg( ‘bind Failed: ’ + IntToStr(WSAGetLastError) );  
    closesocket(sock);  
    exit;  
  end;  
  if WSAAsyncSelect( sock, Handle, WM_SOCKET, FD_READ ) = socket_error then  
  begin  
    ErrMsg( ‘WSAAsyncSelect Failed: ’ + IntToStr(WSAGetLastError) );  
    closesocket(sock);  
    exit;  
  end;  
  remote.sin_family := AF_INET;  
  remote.sin_port := htons( MCASTPort );  
  remote.sin_addr.S_addr := inet_addr(MCASTADDR);  
  mcast.imr_multiaddr.S_addr := remote.sin_addr.S_addr;  
  mcast.imr_interface.S_addr := local.sin_addr.S_addr;  
  if setsockopt( sock, IPPROTO_IP, IP_ADD_MEMBERSHIP, @mcast, sizeof(mcast) )=SOCKET_ERROR then  
  begin  
    ErrMsg( ‘setsockopt Failed: ’ + IntToStr(WSAGetLastError) );  
    closesocket(sock);  
    exit;  
  end;  
  Opt := 8;  
  if setsockopt( sock, IPPROTO_IP, IP_MULTICAST_TTL, @opt, sizeof(opt) )=SOCKET_ERROR then  
  begin  
    ErrMsg( ‘setsockopt Failed: ’ + IntToStr(WSAGetLastError) );  
    closesocket(sock);  
    exit;  
  end;  
  //要发送的UDP数据
  FillChar( bufSend, 32, ‘C’ );  
  if bSender then  for i:=0 to 3 do  
  begin  
    ret :=sendto( sock, bufsend[0], 32, 0, remote, sizeof(remote));  
    if ret =socket_error then  
    begin  
      ErrMsg( ‘sendto Failed: ’ + IntToStr(WSAGetLastError) );  
      //closesocket(sock);  
      break;  
    end;  
  end;  
  //closesocket( sock );  
 // closesocket(sockm);  
end;