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;