Moin!<BR>
Ich will alle meine lokalen IPs 'herausfinden, und die zugehörige Subnetmask.<BR>
Ich habe hier eine schöne Proc. gefunden, womit ich die IP's herausfinde:<BR>
<PRE>
Function GetIPAddress:TStringList;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
Var
phoste : PHostEnt;
Buffer : Array [0..100] of Char;
WSAData : TWSADATA;
pptr : PaPInAddr;
I : Integer;
Begin
result := TStringList.Create;
If WSAStartup($0101,WSAData) <> 0 Then
exit;
GetHostName(Buffer, SizeOf(Buffer));
phoste := GetHostByName(Buffer);
If phoste = NIL Then begin
result.add('127.0.0.1');
end Else Begin
pptr := PaPInAddr(phoste^.h_addr_list);
I := 0;
while (pptr^[I] <> nil) do begin
result.add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
End;
WSACleanup;
End;
</PRE>
Ehrlich gesagt: So ganz verstehe ich das nicht Nur soweit, das ich das für meine Zwecke modifizieren konnte.<BR>
Naja, jetzt brächte ich auch noch die zugehörige Subnetmask. Im C++ Forum sind einige Beispiele (einfach nach 'subnet' suchen).<BR>
Ich kapier nur den kode nicht. Ich kann einfach zu wenig C .<BR>
Naja, dehalb wollte ich fragen: Hat jemand sowas schonmal in Delphi gemacht? Oder hat jemand eine Idee, wo ich ansetzen muß?<BR>
<BR>
Danke,<BR>
MFG,cu,LLAP Ralph Erdt
Ich will alle meine lokalen IPs 'herausfinden, und die zugehörige Subnetmask.<BR>
Ich habe hier eine schöne Proc. gefunden, womit ich die IP's herausfinde:<BR>
<PRE>
Function GetIPAddress:TStringList;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
Var
phoste : PHostEnt;
Buffer : Array [0..100] of Char;
WSAData : TWSADATA;
pptr : PaPInAddr;
I : Integer;
Begin
result := TStringList.Create;
If WSAStartup($0101,WSAData) <> 0 Then
exit;
GetHostName(Buffer, SizeOf(Buffer));
phoste := GetHostByName(Buffer);
If phoste = NIL Then begin
result.add('127.0.0.1');
end Else Begin
pptr := PaPInAddr(phoste^.h_addr_list);
I := 0;
while (pptr^[I] <> nil) do begin
result.add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
End;
WSACleanup;
End;
</PRE>
Ehrlich gesagt: So ganz verstehe ich das nicht Nur soweit, das ich das für meine Zwecke modifizieren konnte.<BR>
Naja, jetzt brächte ich auch noch die zugehörige Subnetmask. Im C++ Forum sind einige Beispiele (einfach nach 'subnet' suchen).<BR>
Ich kapier nur den kode nicht. Ich kann einfach zu wenig C .<BR>
Naja, dehalb wollte ich fragen: Hat jemand sowas schonmal in Delphi gemacht? Oder hat jemand eine Idee, wo ich ansetzen muß?<BR>
<BR>
Danke,<BR>
MFG,cu,LLAP Ralph Erdt