Namen der Netzwerk-Verbindungen auslesen

[RWarnecke]

Die API GetAdaptersInfo und/oder GetAdapterAddresses ist alles was Du brauchst.

[Helmi]

Zitat von RWarnecke:

Die API GetAdaptersInfo und/oder GetAdapterAddresses ist alles was Du brauchst.

Dieses Forum ist echt interessant - wenn man GetAdaptersInfo sucht, dann findet man immer wieder einen Verweis auf GetAdaptersInfo - nur leider kein Beispiel

[himitsu]

Reicht dir das verlinkte "Example" nicht?

Und so schwer ist diese kleine API auch nicht zu verstehn.
Man muß nur ein paar wenige Zeilen im MSDN nachlesen und schon kommt man z.B. auf Sowas:

Delphi-Quellcode:

var
  Len:   ULONG;
  AI, M: PIP_ADAPTER_INFO;
  Err:   HRESULT;
begin
  Len := 0;
  GetAdaptersInfo(nil, Len);
  GetMem(M, Len);
  try
    AI := M;
    Err := GetAdaptersInfo(AI, Len);
    if Err <> ERROR_SUCCESS then
      RaiseLastOSError(Err);
    while Assigned(AI) do begin
      ShowMessage(AI.Description + ' : ' + AI.IpAddressList.IpAddress.S);

      AI := AI.Next;
    end;
  finally
    FreeMem(M);
  end;
end;

[RWarnecke]

Hier wäre auch ein Beispiel von mir aus der Delphi-Praxis. Das gleiche Beispiel findest auch nochmal auf www.Code-Orakel.de

[Christian Seehase]

Hier haben wir auch noch ein paar Beispiele zu den Funktionen aus der DP

http://www.delphipraxis.net/9580-sub...-finden-2.html
http://www.delphipraxis.net/818-gate...-auslesen.html

[Helmi]

Danke Danke Danke für die vielen Tips!

Irgendwie hab ich immer falsch gesucht (oder wie auch immer)

Ich hab jetzt mal was zusammengebastelt:

Delphi-Quellcode:

const
  MAX_ADAPTER_DESCRIPTION_LENGTH  = 128; // arb.
  MAX_ADAPTER_NAME_LENGTH         = 256; // arb.
  MAX_ADAPTER_ADDRESS_LENGTH      = 8; // arb.

type
  PIP_ADDRESS_STRING = ^IP_ADDRESS_STRING;
  IP_ADDRESS_STRING = packed record
    acString: array [1..16] of AnsiChar;
  end;

  PIP_MASK_STRING = ^IP_MASK_STRING;
  IP_MASK_STRING = IP_ADDRESS_STRING;

  PIP_ADDR_STRING = ^IP_ADDR_STRING;
  IP_ADDR_STRING = packed record
    Next     : PIP_ADDR_STRING;
    IpAddress: IP_ADDRESS_STRING;
    IpMask   : IP_MASK_STRING;
    Context  : DWORD;
  end;

  time_t = int64;

  PIP_ADAPTER_INFO = ^IP_ADAPTER_INFO;
  IP_ADAPTER_INFO = packed record
    Next                : PIP_ADAPTER_INFO;
    ComboIndex          : DWORD;
    AdapterName         : array [1..MAX_ADAPTER_NAME_LENGTH + 4] of AnsiChar ;
    Description         : array [1..MAX_ADAPTER_DESCRIPTION_LENGTH + 4] of AnsiChar;
    AddressLength       : UINT;
    Address             : array [1..MAX_ADAPTER_ADDRESS_LENGTH] of Byte;
    Index               : DWORD;
    dwType              : UINT;
    DhcpEnabled         : UINT;
    CurrentIpAddress    : PIP_ADDR_STRING;
    IpAddressList       : IP_ADDR_STRING;
    GatewayList         : IP_ADDR_STRING;
    DhcpServer          : IP_ADDR_STRING;
    HaveWins            : Boolean;
    PrimaryWinsServer   : IP_ADDR_STRING;
    SecondaryWinsServer : IP_ADDR_STRING;
    LeaseObtained       : time_t;
    LeaseExpires        : time_t;
  end;

  function GetAdaptersInfo(const pAdapterInfo: PIP_ADAPTER_INFO; const pOutBufLen: PULONG): DWORD; stdcall;
    external 'IPHLPAPI.DLL' name 'GetAdaptersInfo';

//http://msdn.microsoft.com/en-us/library/windows/desktop/aa365917(v=vs.85).aspx
procedure GetConnectionNameList(List: TStrings);
var
  pAdapterList: PIP_ADAPTER_INFO;
  dwLenAdapter: DWORD;
  ErrorCode   : DWORD;

begin
  List.Clear;

  pAdapterList := nil; // Alles auf 0 ==> Benötigte Buffergrösse ermitteln
  dwLenAdapter := 0;

  ErrorCode := GetAdaptersInfo(pAdapterList, @dwLenAdapter);

  If ErrorCode <> ERROR_BUFFER_OVERFLOW then
    begin
      RaiseLastOSError(ErrorCode);

      exit;
    end;

  pAdapterList := AllocMem(dwLenAdapter);

  try
    ErrorCode := GetAdaptersInfo(pAdapterList, @dwLenAdapter);

    If ErrorCode <> ERROR_SUCCESS then
      begin
        RaiseLastOSError(ErrorCode);

        exit;
      end;


    while Assigned(pAdapterList) do
      begin
        List.Add(Format('AdapterName: %s', [String(pAdapterList.AdapterName)]));
        List.Add(Format('Descpription: %s', [String(pAdapterList.Description)]));
        List.Add(Format('ComboIndex: %d', [pAdapterList.ComboIndex]));
        List.Add(Format('AddressLength: %d', [pAdapterList.AddressLength]));
        List.Add(Format('Address: %d', [UInt64(pAdapterList.Address)]));
        List.Add(Format('Index: %d', [pAdapterList.Index]));
        List.Add(Format('dwType: %d', [pAdapterList.dwType]));
        List.Add(Format('DhcpEnabled: %d', [pAdapterList.DhcpEnabled]));
        List.Add(Format('IpAddressList.IpAddress: %s', [String(pAdapterList.IpAddressList.IpAddress.acString)]));
        List.Add(Format('IpAddressList.IpMask: %s', [String(pAdapterList.IpAddressList.IpMask.acString)]));
        List.Add(Format('IpAddressList.Context: %d', [pAdapterList.IpAddressList.Context]));
        List.Add(Format('GatewayList.IpAddress: %s', [String(pAdapterList.GatewayList.IpAddress.acString)]));
        List.Add(Format('GatewayList.IpMask: %s', [String(pAdapterList.GatewayList.IpMask.acString)]));
        List.Add(Format('GatewayList.Context: %d', [pAdapterList.GatewayList.Context]));
        List.Add(Format('DhcpServer.IpAddress: %s', [String(pAdapterList.DhcpServer.IpAddress.acString)]));
        List.Add(Format('DhcpServer.IpMask: %s', [String(pAdapterList.DhcpServer.IpMask.acString)]));
        List.Add(Format('DhcpServer.Context: %d', [pAdapterList.DhcpServer.Context]));
        List.Add(Format('IpAddressList.HaveWins: %d', [Integer(pAdapterList.HaveWins)]));
        List.Add(Format('PrimaryWinsServer.IpAddress: %s', [String(pAdapterList.PrimaryWinsServer.IpAddress.acString)]));
        List.Add(Format('PrimaryWinsServer.IpMask: %s', [String(pAdapterList.PrimaryWinsServer.IpMask.acString)]));
        List.Add(Format('PrimaryWinsServer.Context: %d', [pAdapterList.PrimaryWinsServer.Context]));
        List.Add(Format('SecondaryWinsServer.IpAddress: %s', [String(pAdapterList.SecondaryWinsServer.IpAddress.acString)]));
        List.Add(Format('SecondaryWinsServer.IpMask: %s', [String(pAdapterList.SecondaryWinsServer.IpMask.acString)]));
        List.Add(Format('SecondaryWinsServer.Context: %d', [pAdapterList.SecondaryWinsServer.Context]));

        List.Add('-------------------------------------------------------');

        pAdapterList := pAdapterList.Next;
      end;
   finally
     FreeMem(pAdapterList);
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  GetConnectionNameList(Memo1.Lines);
end;

Da les ich mir jetzt alles aus was GetAdaptersInfo zu bieten hat.
Nur, und jetzt bitte keine Schläge, in meinem ersten Post oben fragte ich nach dem Namen der Netzwerkverbindung - diese wird mir jetzt über GetAdaptersInfo nicht mehr angeboten. Kann man die über GetAdaptersInfo nicht auslesen? - muss ich dazu WMI benutzen?
Ich würd halt ungern zwei "verschiedene" Funktionen nutzen um eigentlich im gleichen Bereich (also Netzwerk) Daten auszulesen

[Edit]
In der Code-Libary findet man diesen Thread.
Damit könnt ich aus der Registry den Namen auslesen...

[himitsu]

Tipp:
Gibt es in XE schon diese Units?

Delphi-Quellcode:

uses
  Winapi.IpTypes, Winapi.IpHlpApi;

(bzw. IpTypes und IpHlpApi)

Und pssst, Dein FreeMem gibt nichts frei, da dort der Pointer nil ist (weil dieser ja seit dem GetMem verändert "Next" wurde).
(siehe mein Edit ... hatte das auch erst vergessen , aber keine Sorge ... der Code vom CodeOrakel, vergißt dagegen sogar komplett der Freigeben)

Da AdapterName ein ANSI-String ist, besser nach AnsiString und nicht String "casten" (String(pAdapterList.AdapterName) ) ... dann gibt's eventuell auch weniger Compilerhinweise, bezüglich ANSI<>Unicode.

Und IpAddressList = evetuell auch mehrere IPs und nicht nur Eine.