得到本机当前网络连接的方法

最新推荐文章于 2021-07-30 10:51:47 发布

Forest_Yan

最新推荐文章于 2021-07-30 10:51:47 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

文章标签：网络 interface function integer buffer binding

本文链接：https://blog.csdn.net/Forest_Yan/article/details/561355

该博客主要展示了IP获取相关函数的实现代码。定义了WSAIoctl、WSASocket等函数，还实现了GetAvailIp、GetCardBindingIp和GetConnectionIp等获取IP的函数，通过调用Winsock库中的相关方法，完成IP地址的获取和处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit ips;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, winsock;

type

function WSAIoctl( hSocket: TSocket; ControlCode:dword;
                   InBuf : Pointer; InBufLen:DWord;
                   OutBuf : Pointer; OutBufLen:DWord;
                   BytesReturned : PDWord;
                   lpOverlapped: POverlapped;
                   lpOverlappedRoutine:pointer) : Integer; stdcall;

function WSASocket(Family, sType, Protocol : Integer;
                   lpProtocolInfo : Pointer;
                   Group : uint;
                   dwFlags : DWORD): TSocket; stdcall;

function WSAIoctl; external 'ws2_32.dll' name 'WSAIoctl';
function WSASocket; external 'ws2_32.dll' name 'WSASocketA';

function GetAvailIp:TStrings;
function GetCardBindingIp : TStrings;

function GetConnectionIp : string;

implementation

{$R *.dfm}

function GetAvailIp:TStrings;
type
   TaPInAddr = array [0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: array [0..63] of char;
    i: Integer;
    GInitData: TWSADATA;
begin
    result := TStringList.Create;
    WSAStartup($101, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    i := 0;
    while pptr^[i] <> nil do
    begin
      result.add(StrPas(inet_ntoa(pptr^[i]^)));
      Inc(i);
    end;
    WSACleanup;
end;

Function getCardBindingIp : TStrings;
const
   SIO_GET_INTERFACE_LIST : dword = 1074033791;
type
_INTERFACE_INFO = record
    iiFlags            : ulong;      //* Type and status of the interface */
    iiAddress          : TSockaddr; //* Interface address */
    iiBroadcastAddress : TSockaddr; //* Broadcast address */
    iiNetmask          : TSockaddr; //* Network mask */
end;
var
    pAddrInet : TSockAddr;
    OutBufLen,
    RecvBytes,
    i         : DWORD;
    Buffer: array [0..63] of char;
    wsError   : Integer;
    WSAData   : TWSAData;
    MySocket : TSocket;
    localAddr : Array[1..10] of _INTERFACE_INFO; //up to 10 NICs
begin
result := TStringList.Create;

wsError := Winsock.WSAStartup(2, WSAData);
If wsError <> 0 then exit;

Gethostname(Buffer, 64);
MySocket := WSASocket(AF_INET, Sock_DGRAM, IPPROTO_UDP, nil,0,0);
If MySocket = INVALID_SOCKET then exit;
OutBufLen := Sizeof(localAddr);
RecvBytes := OutBufLen;
FillChar(LocalAddr,OutBufLen,0);
wsError := WSAIoctl(MySocket,SIO_GET_INTERFACE_LIST,nil,0,@localAddr,OutBufLen,@RecvBytes,nil,nil);
if wsError = SOCKET_ERROR then
begin
    wsError := WSAGetLastError;
    Raise Exception('Socket error:'+IntToStr(wsError));
    exit;
end;
for i := 1 to RecvBytes div Sizeof(_Interface_Info) do
begin
      pAddrInet := localAddr[i].iiAddress;
      result.add(inet_ntoa(pAddrInet.sin_addr));
end;
closesocket(MySocket);
WSACleanup();
end;

function GetConnectionIp : string;
var
avail,binding : TStrings;
i ,j : integer;
begin
result := '';

avail := getAvailIp;
binding := getCardBindingIp;

for i := 0 to avail.Count - 1 do
begin
    for j := 0 to binding.Count - 1 do
      begin
        if avail[i] = binding[j] then
        begin
          result := avail[i];
          exit;
        end;
      end;
end;
end;