Как определить текущую скорость Ethernet сети (реальную)

[calypso]

Вот как это делает AIDA64:

Т.е. она в реальном времени показывает,сколько сейчас мегабайт\сек передается данных через сетевую карту.
Я пробовал 2 функции: GET_ADAPTERS_INFO и GET_ADAPTER_ADRESSES, первая выводит туфту в значениях DWORD dwInUcastPkts и DWORD dwInNUcastPkts структуры MIB_IFROW:

Вторая апишка использует структуру IP_ADAPTER_ADRESSES, параметры TransmitLinkSpeed и RecieveLinkSpeed недоступны на ОС ниже Висты.

[waleri]

Наверно надо смотреть на dwInOctets и dwOutOctets и замерять время и вычислять насколько изменилось между двумя измерениями.
И кстати, не путайте мегабиты и мегабайты.

[calypso]

Снова актуально. В инете есть исходник где данная штука реализована с помощью WMI и двух классов: NetworkAdapter и NetworkMonitor.
Получается что если я буду этот огород городить на Embarcadero C++ ,то мне придется делать код на основе CoInitializeEx и вся эта бадяга?
Может что попроще и покороче есть?
Ещё хочу сделать счетчик трафика, сколько принято и сколько отправлено.
Как реализовано в AIDA64 так и не понял, мониторил через API Monitor V2 , но ничего так и не смог найти.

[p51x]

Как реализовано в AIDA64 так и не понял

Ну вам же объяснили - замеряет вх и исх несколько раз и делит на время между замерами.

[calypso]

Вряд ли, отображение скорости в реальном времени идет с дискретом меньше 1 секунды. Если всё это как вы предлагаете замутить в цикл, то будет загрузка CPU 100% и жуткие тормоза.
В Windows есть уже готовый инструментарий WMI Performance Counters.
Просто с использованием WMI получается очень сложный и кривой код

[waleri]

Сообщение от calypso

то будет загрузка CPU 100% и жуткие тормоза.

Ничего подобного.

[calypso]

Хорошо, попробуем разделить задачу на 2 части. Сначала нужно подсчитать количество переданных\принятых байт в реальном времени.
Можно ли это сделать чистым API без всякой галиматьи вроде WMI и OLE-объектов?

Если использовать WMI, то без этого кода не обойтись походу:

HRESULT hres;

	// Step 1: --------------------------------------------------
	// Initialize COM. ------------------------------------------

	hres =  CoInitializeEx(0, COINIT_MULTITHREADED);
	if (FAILED(hres))
	{
		ShowMessage ("Failed to initialize COM library. Error code = 0x"+String(hres));
//		return 1;                  // Program has failed.
	}

	// Step 2: --------------------------------------------------
	// Set general COM security levels --------------------------
	// Note: If you are using Windows 2000, you need to specify -
	// the default authentication credentials for a user by using
	// a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
	// parameter of CoInitializeSecurity ------------------------

	hres =  CoInitializeSecurity(
		NULL,
		-1,                          // COM authentication
        NULL,                        // Authentication services
		NULL,                        // Reserved
        RPC_C_AUTHN_LEVEL_DEFAULT,   // Default authentication
		RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation
		NULL,                        // Authentication info
		EOAC_NONE,                   // Additional capabilities
        NULL                         // Reserved
		);

	if (FAILED(hres))
	{
		ShowMessage ("Failed to initialize security. Error code = 0x"+String(hres));
		CoUninitialize();
   //		return 1;                    // Program has failed.
	}

    // Step 3: ---------------------------------------------------
	// Obtain the initial locator to WMI -------------------------

	IWbemLocator *pLoc = NULL;

	hres = CoCreateInstance(
        CLSID_WbemLocator,
		0,
		CLSCTX_INPROC_SERVER,
		IID_IWbemLocator, (LPVOID *) &pLoc);

	if (FAILED(hres))
    {
		ShowMessage( "Failed to create IWbemLocator object. Err code = 0x"+String(hres));
		CoUninitialize();
 //		return 1;                 // Program has failed.
	}

    // Step 4: -----------------------------------------------------
	// Connect to WMI through the IWbemLocator::ConnectServer method

	IWbemServices *pSvc = NULL;

	// Connect to the root\cimv2 namespace with
    // the current user and obtain pointer pSvc
	// to make IWbemServices calls.
	hres = pLoc->ConnectServer(
		 BSTR(L"ROOT\\CIMV2"), // Object path of WMI namespace
		 NULL,                    // User name. NULL = current user
		 NULL,                    // User password. NULL = current
		 0,                       // Locale. NULL indicates current
		 NULL,                    // Security flags.
		 0,                       // Authority (e.g. Kerberos)
		 0,                       // Context object
		 &pSvc                    // pointer to IWbemServices proxy
		 );

	if (FAILED(hres))
	{
		ShowMessage("Could not connect. Error code = 0x"+String(hres));
		pLoc->Release();
		CoUninitialize();
//		return 1;                // Program has failed.
    }

	ShowMessage("Connected to ROOT\\CIMV2 WMI namespace");


	// Step 5: --------------------------------------------------
    // Set security levels on the proxy -------------------------

    hres = CoSetProxyBlanket(
	   pSvc,                        // Indicates the proxy to set
	   RPC_C_AUTHN_WINNT,           // RPC_C_AUTHN_xxx
	   RPC_C_AUTHZ_NONE,            // RPC_C_AUTHZ_xxx
       NULL,                        // Server principal name
	   RPC_C_AUTHN_LEVEL_CALL,      // RPC_C_AUTHN_LEVEL_xxx
       RPC_C_IMP_LEVEL_IMPERSONATE, // RPC_C_IMP_LEVEL_xxx
	   NULL,                        // client identity
	   EOAC_NONE                    // proxy capabilities
	);

	if (FAILED(hres))
    {
		ShowMessage("Could not set proxy blanket. Error code = 0x"+String(hres));
		pSvc->Release();
		pLoc->Release();
		CoUninitialize();
  //      return 1;               // Program has failed.
	}

[calypso]

	// Step 6: --------------------------------------------------
	// Use the IWbemServices pointer to make requests of WMI ----

	// For example, get the name of the operating system
	IEnumWbemClassObject* pEnumerator = NULL;
	hres = pSvc->ExecQuery(
		BSTR("WQL"),
		BSTR("SELECT * FROM Win32_OperatingSystem"),
		WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
		NULL,
		&pEnumerator);

	if (FAILED(hres))
    {
		ShowMessage("Query for operating system name failed. Error code = 0x"+String(hres));
		pSvc->Release();
		pLoc->Release();
        CoUninitialize();
 //		return 1;               // Program has failed.
    }

	// Step 7: -------------------------------------------------
	// Get the data from the query in step 6 -------------------

	IWbemClassObject *pclsObj;
	ULONG uReturn = 0;

	while (pEnumerator)
	{
		HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1,
			&pclsObj, &uReturn);

		if(0 == uReturn)
		{
			break;
		}

		VARIANT vtProp;

		// Get the value of the Name property
		hr = pclsObj->Get(L"Name", 0, &vtProp, 0, 0);
		ShowMessage(" OS Name : " +String(vtProp.bstrVal));
		VariantClear(&vtProp);
	}

	// Cleanup
	// ========

	pSvc->Release();
	pLoc->Release();
	pEnumerator->Release();
        pclsObj->Release();       // здесь выдает exception
	CoUninitialize();

CoInitializeEx(0, COINIT_MULTITHREADED); с параметром MULTITHREADED всегда выдает ошибку. Там ещё я так понял нужно будет городить синхронизацию потоков с помощью мьютексов. Это слишком сложный способ

[waleri]

Сообщение от calypso

Можно ли это сделать чистым API без всякой галиматьи вроде WMI и OLE-объектов?

Да, можно. Смотрите dwInOctets и dwOutOctets в MIB_IFROW структуре.

[waleri]

Сообщение от calypso

Там ещё я так понял нужно будет городить синхронизацию потоков с помощью мьютексов.

Нет, не нужно никакой синхронизации.
Кстати, а почему вы решили, что нужен COINIT_MULTITHREADED режим?