<message>
</message>
Excuse me Michael for this late....
Your answers are very good and answer to my need..Many many thanks
for others :
-----------------------
use Sockets;
../..
var
A,N : cardinal; IA : in_addr;ib : in_addr;
begin
a:=StrToHostAddr('10.1.1.34').s_addr; // Get IP in longint
n:=StrToHostAddr('255.255.0.0').s_addr;
ia.s_addr:=a and n;
writeln('Network ->',HostAddrToStr(ia));
ia.s_addr:=a or not n;
writeln('broadcast ->',HostAddrToStr(ia));
Michael Van Canneyt wrote 50 lines
On Thu, 12 Oct 2006, Michael Van Canneyt wrote:
> On Thu, 12 Oct 2006, TOUZEAU DAVID wrote:
>
>
>> <message>
>> </message>
>>
>> Dear
>>
>> The tool is designed to simplify the change network settings quickly.
>>
>> So the goal for the admin is to type:
>>
>> #./tool 192.168.1.2 255.255.255.0 192.168.1.1
>>
>> and the tool will change settings in /etc/network/interfaces by
>>
>> iface eth0 inet static
>> address 192.168.1.2
>> netmask 255.255.255.0
>> network 192.168.xx.0
>> broadcast 192.168.xx.255
>> gateway 192.168.1.1
>>
>>
> Use the sockets unit:
>
> Var
> sa,sn,nw,bc : string;
> A,N : cardinal;
> IA : in_addr; // in sockets unit.
>
>
> a:=StrToHostAddr(sa).s_addr; // Get IP in longint
> n:=StrToHostAddr(sn).s_addr; // Get Netmask in longint.
> nw:=a and N; // Network.
> bc:=A and not N; // broadcast
> ia.s_addr:=a and N; // Calculate network
> nw:=HostAddrToStr(ia); // Convert to string
> ia.s_addr:=a and not N; // Calculate broadcast
>
This should be
ia.s_addr:=a or not N;
My apologies.
* 01.41.39.04.42
* 06.20.56.74.33
* ICQ:160018849
* Skype:dtouzeau
* Site technique destiné aux entreprises:
http://entreprises.kaspersky.fr
* Inscrivez-vous dès maintenant dans l'espace partenaires !
<
http://partners.kaspersky.fr>
(Retrouvez sur ces sites des faqs, tutoriaux, Forums et liens de
téléchargement de la gamme Buiness Optimal)
* *