<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 a écrit :
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)
* *
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
