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 

3Dastronomyagricultureaudioautosautos.audiautos.audioautos.binariesautos.bmwautos.clubautos.fordautos.hondacrxautos.japanautos.mercedesautos.opelautos.sportautos.volvoautos.vwaviaavia.binariesbankcardsbinariesbooksbuildingcinemacommercecomp.hardwarecomp.softwarecomp.lietuvinimascomp.networksculturedarbas.ieskaudarbas.siulaudesigneconomicselectronicsfaunafauna.aquafauna.binariesfishingflorafotofoto.binariesgamesgames.csgames.onlinegsmgurmanaihumourhumour.binariesinternetlawmicrosoftmotomusicmusic.binariesmusic.instrumentsmusic.LT.binariesnavigacijaphppoliticsprogrammingrpgsportstudyingsveikatatalktesttranslationtransportationtraveltravel.binariestvunixvideovideo.binarieswatersportswwwwww.flashpdaautos.supermama.ltmobiledarbasretro.3Dretro.agricultureretro.astronomyretro.audioretro.autosretro.autos.audiretro.autos.audioretro.autos.binariesretro.autos.bmwretro.autos.clubretro.autos.fordretro.autos.hondacrxretro.autos.japanretro.autos.mercedesretro.autos.opelretro.autos.sportretro.autos.supermamaretro.autos.supermama.ltretro.autos.volvoretro.autos.vwretro.aviaretro.avia.binariesretro.bankcardsretro.beosretro.binariesretro.booksretro.buildingretro.cinemaretro.commerceretro.compretro.comp.hardwareretro.comp.lietuvinimasretro.comp.networksretro.comp.softwareretro.cultureretro.darbasretro.darbas.ieskauretro.darbas.siulauretro.designretro.economicsretro.electronicsretro.e-vejasretro.faunaretro.fauna.aquaretro.fauna.binariesretro.fishingretro.floraretro.fotoretro.foto.binariesretro.gamesretro.games.csretro.games.onlineretro.games.rpgretro.genealogijaretro.gsmretro.gurmanairetro.humourretro.humour.binariesretro.internetretro.YZFretro.YZF.nebukretro.YZF.nebuk.netikintisretro.YZF.nebuk.netikintis.bukretro.YZF.nebuk.netikintis.buk.tikintisretro.lawretro.microsoftretro.mobileretro.motoretro.musicretro.music.binariesretro.music.instrumentsretro.music.LTretro.music.LT.binariesretro.navigacijaretro.newsretro.news.taisyklesretro.newuserretro.pdaretro.phpretro.politicsretro.programmingretro.rpgretro.sportretro.studyingretro.sveikataretro.talkretro.translationretro.transportationretro.travelretro.travel.binariesretro.tvretro.unixretro.videoretro.video.binariesretro.watersportsretro.wwwretro.www.flashdiylt.rkm.news.announcelt.rkm.news.newuser