[Delphi] Fce na zjisteni sitove masky k IP v pocitaci

[Helium]

Zna nekdo fci na zjisteni sitove masky k IP v pocitaci ?

[Rainbow]

Toto zoberie prvu adresu, ktoru najde (okrem 127.0.0.1).

uses IPHlpAPI;
procedure TfrmMain.DetectIP;
var IPAddrRow: TMibIPAddrRow;
    TableSize, ErrorCode, NumEntries: DWord;
    I: Integer;
    pBuf: PChar;
begin
  MyIP := 0;
  LoadIpHlp;
  TableSize := 0;
  // first call: get table length
  ErrorCode := GetIpAddrTable(Nil, @TableSize, true);
  if Errorcode <> ERROR_INSUFFICIENT_BUFFER then Exit;

  GetMem(pBuf, TableSize);
  // get table
  ErrorCode := GetIpAddrTable(PTMibIPAddrTable(pBuf), @TableSize, true);
  if ErrorCode = NO_ERROR then
  begin
    NumEntries := PTMibIPAddrTable(pBuf)^.dwNumEntries;
    if NumEntries > 0 then
    begin
      for i := 1 to NumEntries do
      begin
        IPAddrRow := PTMIBIPAddrRow(pBuf+SizeOf(DWord)+(I-1)*SizeOf(TMIBIPAddrRow))^;
        if (IPAddrRow.dwAddr<>0) then
         begin
           MyIP := IPAddrRow.dwAddr;
           MyMask := IPAddrRow.dwMask;
           Bcast := MyIP and MyMask or not MyMask;
           if MyIP<>$100007F then Break; // 127.0.0.1
         end;
      end;
    end;
  end;
  FreeMem(pBuf);
 if MyIP=0 then
   begin
     ShowMessage(MSG_ERROR, 'Unable to detect network settings');
     Exit;
   end;
  StatusBar.Panels[1].Text := 'IP: '+UDPSocket.IPtoDotDot(MyIP);
  StatusBar.Panels[2].Text := 'Mask: '+UDPSocket.IPtoDotDot(MyMask);
  StatusBar.Panels[3].Text := 'Broadcast: '+UDPSocket.IPtoDotDot(Bcast);
  ShowMessage(MSG_SYSTEM, 'Detected '+StatusBar.Panels[1].Text+', '+StatusBar.Panels[2].Text+', '+StatusBar.Panels[3].Text);
end;

[Helium]

Diky,
vyzkousim
// hodlam vylepsovat http://pinger.webz.cz/

[Smitka]

A co to přečíst rovnou z registru?
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\{id_adaptéru}\Parameters\Tcpip\DhcpSubnetMask

[Helium]

A co to přečíst rovnou z registru?
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\{id_adaptéru}\Parameters\Tcpip\DhcpSubnetMask

To mne sice take napadlo (resi to i tu vec kdyz sitovka neni online),
ale jak poznat ktere zaznamy jsou platne,
bezne tam tech ID adapteru je vice na jednu sitovku.

[Smitka]

Nemyslím, že každá síťovka má víc ID (nevím to na 100%). Síťový zařízení by mělo mít jednu konfiguraci.
Já bych asi zkusil se kouknout do klíče:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000x\
ten se bude dobře projíždět cyklem - x sou čísla od 0 do někam.
V každým tom klíči jsou informace o síťovejch zařízeních, sou tam takový věci jako spojení přes paralelní port , ale dá se určit co je LAN - ty by měli mít hodnotu Characteristics = 129
Pak je tam hodnota NetCfgInstanceId, což je ID k tý konfiguraci. Tak bych tam dal buď vývěr adaptéru, nebo bych ještě prohledal pár klíčů na IP.
Třeba ještě:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Tcpip\Parameters\Interfaces\{id_z_NetCfgInstanc eId}
a tam už jsou všechny potřebný hodnoty...
No a nebo by šlo získat podezřelý IDčka z nějaký hodnoty v HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\Tcpip\Linkage