|
@@ -26,7 +26,7 @@ Type
|
|
|
{$packrecords c}
|
|
{$packrecords c}
|
|
|
tifr_ifrn = record
|
|
tifr_ifrn = record
|
|
|
case integer of
|
|
case integer of
|
|
|
- 0 : (ifrn_name: array [0..IF_NAMESIZE-1] of char);
|
|
|
|
|
|
|
+ 0 : (ifrn_name: array [0..IF_NAMESIZE-1] of AnsiChar);
|
|
|
end;
|
|
end;
|
|
|
tifmap = record
|
|
tifmap = record
|
|
|
mem_start : culong;
|
|
mem_start : culong;
|
|
@@ -49,8 +49,8 @@ Type
|
|
|
6 : (ifru_ivalue : cint);
|
|
6 : (ifru_ivalue : cint);
|
|
|
7 : (ifru_mtu : cint);
|
|
7 : (ifru_mtu : cint);
|
|
|
8 : (ifru_map : tifmap);
|
|
8 : (ifru_map : tifmap);
|
|
|
- 9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of char);
|
|
|
|
|
- 10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of char);
|
|
|
|
|
|
|
+ 9 : (ifru_slave : Array[0..IF_NAMESIZE-1] of AnsiChar);
|
|
|
|
|
+ 10 : (ifru_newname : Array[0..IF_NAMESIZE-1] of AnsiChar);
|
|
|
11 : (ifru_data : pointer);
|
|
11 : (ifru_data : pointer);
|
|
|
end;
|
|
end;
|
|
|
TIFConf = record
|
|
TIFConf = record
|
|
@@ -96,7 +96,7 @@ var
|
|
|
ifc : TIfConf;
|
|
ifc : TIfConf;
|
|
|
ifr : TIFRec;
|
|
ifr : TIFRec;
|
|
|
ifp : PIFRec;
|
|
ifp : PIFRec;
|
|
|
- p : PChar;
|
|
|
|
|
|
|
+ p : PAnsiChar;
|
|
|
begin
|
|
begin
|
|
|
Result:=MacAddrTried>0;
|
|
Result:=MacAddrTried>0;
|
|
|
If Result then
|
|
If Result then
|
|
@@ -120,7 +120,7 @@ begin
|
|
|
move(ifp^.ifr_ifrn.ifrn_name,ifr.ifr_ifrn.ifrn_name,IF_NAMESIZE);
|
|
move(ifp^.ifr_ifrn.ifrn_name,ifr.ifr_ifrn.ifrn_name,IF_NAMESIZE);
|
|
|
if (fpioctl(sd, SIOCGIFHWADDR, @ifr) >= 0) then
|
|
if (fpioctl(sd, SIOCGIFHWADDR, @ifr) >= 0) then
|
|
|
begin
|
|
begin
|
|
|
- P:=Pchar(@ifr.ifru_hwaddr.sa_data);
|
|
|
|
|
|
|
+ P:=PAnsiChar(@ifr.ifru_hwaddr.sa_data);
|
|
|
Result:=(p[0]<>#0) or (p[1]<>#0) or (p[2]<>#0)
|
|
Result:=(p[0]<>#0) or (p[1]<>#0) or (p[2]<>#0)
|
|
|
or (p[3]<>#0) or (p[4]<>#0) or (p[5]<>#0);
|
|
or (p[3]<>#0) or (p[4]<>#0) or (p[5]<>#0);
|
|
|
If Result Then
|
|
If Result Then
|
Michaël Van Canneyt