通过ip和子网掩码得到广播地址的函数 ( 积分: 0 )

function Tsrvform.GetBroadCastAddress(ip, mask: string): string;
var
a,b,c,d,eWORD;
sinaddr:in_addr;
begin
a:=inet_Addr(pchar(ip));
b:=inet_Addr(pchar(mask));
c:=a and b;
d:=not b;
e:=c or d;
sinaddr.S_addr:=e;
result:=strpas(inet_ntoa(sinaddr));
end;