Не работает конвертация в WSAAddressToStringW

[calypso]

Разобрался наконец с этой заразой. Мне почему то стукнуло в голову, что flags это выходной параметр. А оказывается наоборот, входной для GetAdaptersAddresses
И надо было сделать всего лишь навсего:

ULONG flags = GAA_FLAG_INCLUDE_GATEWAYS;
ULONG family = AF_INET;
GetAdaptersAddresses(family, flags, NULL, pAddresses, &outBufLen);
...
if (pCurrAddresses->FirstGatewayAddress!= NULL)
{
WSAAddressToStringW(pCurrAddresses->FirstGatewayAddress->Address.lpSockaddr,
	pCurrAddresses->FirstGatewayAddress->Address.iSockaddrLength,
			   NULL, buf, &length);
	 oshibka=WSAGetLastError();
   if (oshibka!=0) ShowMessage("Ошибка при вызове WSA "+IntToStr(oshibka));
	myGATEWAY=String(PChar(buf));
Memo1->Lines->Add("Адрес шлюза: "+myGATEWAY);

И всё работает.
Классический пример, когда проще и быстрее самому с нуля написать код, чем сидеть разбираться в чужом кривом исходнике...