So, I want to get network adapters and info about it.
Class worked fine till W$7 SP1 - it won't detect network card name as normal W$7 did, but uses some locale string, like 'Połączenie sieciowe Intel(R) 82566DC Gigabit' (previosly was 'Intel(R) 82566DC Gigabit Ethernet' or something similar). My code returns 'Po' in description filed, so problem is in reading PIP_ADAPTER_INFO.Description (I think):

zusammenfalten · markieren

Delphi-Quellcode:

AdapterName: array [0 .. MAX_ADAPTER_NAME_LENGTH + 3] of AnsiChar;
Description: array [0 .. MAX_ADAPTER_DESCRIPTION_LENGTH + 3] of AnsiChar;

PAdapter = ^TAdapter;
TAdapter = record
  Name: string;
  Description: string;
A: PAdapter;

A^.Name := Trim(string(AdapterInfo^.AdapterName));
A^.Description := Trim(string(AdapterInfo^.Description));

How to get valid values

Well, are you looking for an "adapter name" or a "device name"? As far as I know, the adapter names have always been localized. You can name them whatever you want.

Device description form device manager (should be real device name), not name from network connections (like on your screen)

My connection name is 'Połączenie lokalne', network device name is 'Połączenie sieciowe Intel(R) 82566DC Gigabit' and I want to this name. On previous W$ installation was correct name.

So, 'ł' = 179 and 'ą' = 185, both included in basic ANSI characters set.

Result from DXE6 units is the same

BTW1: I don't uderstand what you mean with GetAdaptersAddresses?
BTW2: Is TMIB_IFROW available in DXE6, because I don't found?

Just getting that is rather easy. I just used Spring4D for the IP_ADAPTER_INFO struct and the GetAdaptersInfo method: Spring.Utils.WinApi.pas.

zusammenfalten · markieren

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, Winapi.Windows, Spring.Utils.WinApi;

var
   adapterInfo: PIP_ADAPTER_INFO;
   bufferLength: Cardinal;
begin

   adapterInfo := New(PIP_ADAPTER_INFO);
   bufferLength := SizeOf(IP_ADAPTER_INFO);

   // SizeOf(IP_ADAPTER_INFO) is about 600-700 Byte. However, we might have
   // several adapters and so the buffer being too small for several adapters
   // is totally valid.
   if GetAdaptersInfo(adapterInfo, bufferLength) = ERROR_BUFFER_OVERFLOW then
      // When ERROR_BUFFER_OVERFLOW is returned, bufferLength was set to the needed size
      if not GetAdaptersInfo(adapterInfo, bufferLength) = ERROR_SUCCESS then
         raise Exception.Create('derp');

   While( Assigned(adapterInfo) ) do begin
      WriteLn('Description: '+adapterInfo.Description);
      adapterInfo := adapterInfo.Next;
   end;

  readln;
end.

For me, that returns

markieren

Code:

Description: Realtek PCIe GBE Family Controller
Description: VMware Virtual Ethernet Adapter for VMnet1
Description: VMware Virtual Ethernet Adapter for VMnet8

Zitat:

if not GetAdaptersInfo(adapterInfo, bufferLength) = ERROR_SUCCESS then

Fehlen da nicht Klammern?
if not (GetAdaptersInfo(adapterInfo, bufferLength) = ERROR_SUCCESS) then

Ja

ł and ą may be in ANSI not be represented
and then it comes down to how the corresponding code responds to these "invalid" characters => replace or cancel.


Does it work if you use the current API for this?

Zitat:

The GetAdaptersInfo function retrieves adapter information for the local computer.

On Windows XP and later: Use the GetAdaptersAddresses function instead of GetAdaptersInfo.