Tema: Re: Delphi: kaip gauti?
Autorius: saimhe
Data: 2011-05-25 10:07:01
> (tinklo kortos pavadinimu, tarkim kaip ipcofing'e description) ir mac.
> Kaip ant delphi padaryti tokį variantą? Išbandėm n variantų

  Ant plikos C veikia šitas:

///////////////////////////////////////////////////////////
 PIP_ADAPTER_INFO pAdapterInfo = NULL, pAdapInfo;
 ULONG OutBufLen = 0;

 if( GetAdaptersInfo(NULL, &OutBufLen) == ERROR_BUFFER_OVERFLOW )
 {
  pAdapterInfo = LocalAlloc(LMEM_FIXED, OutBufLen);

  if( GetAdaptersInfo(pAdapterInfo, &OutBufLen) != ERROR_SUCCESS )
  {
   LocalFree(pAdapterInfo);
   pAdapterInfo = NULL;
  }
 }
 if (!pAdapterInfo)
 {
  printf("GetAdaptersInfo: %08lX\n", GetLastError());
  return 1;
 }

 for (pAdapInfo = pAdapterInfo; pAdapInfo; pAdapInfo = pAdapInfo->Next)
 {
  int i;

  for (i=0; i < (int)pAdapInfo->AddressLength; i++)
   sprintf(&szBuffer[i*3], "%02X-", pAdapInfo->Address[i]);
  szBuffer[i*3 - 1] = '\0';

  puts(szBuffer);
  printf("\t%s\n", pAdapInfo->AdapterName);
  printf("\t%s\n", pAdapInfo->Description);
  printf("\t%lu\n", pAdapInfo->Index);
  printf("\t%lu\n", pAdapInfo->Type);
 }
 LocalFree(pAdapterInfo);
///////////////////////////////////////////////////////////

   Ką tik patikrinau (XP Pro SP2):

00-FF-9C-8E-42-6A
        {9C8E426A-8DB9-4577-8751-E6D4B1ED6690}
        TAP-Win32 Adapter V9 - Packet Scheduler Miniport
        327686
        6
02-00-4C-4F-4F-50
        {BDEC9A11-D79C-49B4-8E7E-C7210C221744}
        Microsoft Loopback Adapter - Virtual Machine Network Services Driver
        327684
        6
00-50-BF-58-E1-C8
        {DF303E74-BFB7-4515-BF6E-110B84C17CA0}
        Realtek RTL8139 Family PCI Fast Ethernet NIC - Packet Scheduler Miniport
        327685
        6
00-15-AF-7C-74-25
        {F7EEA31C-8863-4540-B578-AA2589326A23}
        Atheros AR5006X Wireless Network Adapter - Packet Scheduler Miniport
        327687
        6
00-50-56-C0-00-01
        {521DE4CE-CA14-48ED-AE19-66947CC2E37F}
        VMware Virtual Ethernet Adapter for VMnet1
        3
        6
00-50-56-C0-00-08
        {0F4B6207-7C0C-47E6-BFC2-5A00F6E44BC2}
        VMware Virtual Ethernet Adapter for VMnet8
        2
        6

   Taigi nusiportinsi ir veiks.

-- 
  saimhe