5

我正在寻找一种在 Windows XP 及更高版本上使用 delphi 7 检测 IPV6 地址更改的方法。对于 vista ，我知道有一个 Windows API。我遇到了声称在 XP 上也能做到这一点的代码。这是下面的代码：

uses  WinSock2 ; //

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TSocket;
  wsaD: TWSADATA;
  BytesReturned: u_long;
  PtrA: Pointer;
  Buffer: array[0..20] of INTERFACE_INFO;
  ret: Integer;
begin
  try
    FillChar(wsaD, SizeOf(wsaD), #0);
    FillChar(Buffer, SizeOf(Buffer), #0);
    WSAStartup($0101, wsaD);                      // Start WinSock,You should normally check for errors here

    {Create a WSA Socket}
    // s := WSASocketA(AF_INET6,SOCK_STREAM, IPPROTO_TCP, nil, 0, 0);

    s := Socket(AF_INET6, SOCK_STREAM, IPPROTO_IP);         // Open a socket
    if (s = INVALID_SOCKET) then
      Exit;

    PtrA := @bytesReturned;
    //   Ret :=  WSAIoCtl(s, SIO_ADDRESS_LIST_CHANGE, @Buffer,1024, @Buffer, 1024, PtrA, nil, nil);
    Ret :=  WSAIoCtl(s, SIO_ADDRESS_LIST_QUERY, nil,0, @Buffer, SizeOf(Buffer), PtrA, nil, nil);
    DebugLog('Ret Value = ' + SysErrorMessage(WSAGetLastError),0);
    if ret = 0 then
    begin
      // DebugLog('IP Address changed !',0);
      //Showmessage('Operation succeeded !')
    end
    else
    begin
      //DebugLog('No change found in IP Address',0);
      // showmessage(SysErrorMessage(WSAGetLastError));
    end;

    WSAcleanUp;
  except

  end;
end;

我得到的错误代码为

“提供了一个无效的参数。”

当我将控制代码更改为 SIO_ADDRESS_LIST_QUERY 时，代码工作正常。

有人可以指导我吗？

4

0 回答 0