如何通过SocketHandle在Delphi中获取IP地址及端口信息？
- 内容介绍
- 文章标签
- 相关推荐
本文共计535个文字，预计阅读时间需要3分钟。
要从套接字句柄中获取sockaddr_in结构体，以便获取端口号和地址，可以按照以下步骤进行：
cfunction GetSocketPort(s : TSocket) : Integer;var Addr : sockaddr_in; len : Integer;begin len :=sizeof(Addr); getsockname(s, @Addr, len); Result :=ntohs(Addr.sin_port);end.
这段代码定义了一个函数`GetSocketPort`，它接收一个套接字句柄`s`作为参数，并返回该套接字的端口号。在函数内部，我们首先定义了一个`sockaddr_in`类型的变量`Addr`和一个整型变量`len`。`len`用于指定`Addr`的大小。
然后，我们使用`getsockname`函数获取套接字`s`的本地地址信息，该信息存储在`Addr`变量中。`getsockname`函数的第三个参数是地址结构的长度，这里我们传递了`sizeof(Addr)`。
最后，我们使用`ntohs`函数将网络字节序的端口号转换为主机字节序，并返回这个端口号作为函数的结果。
如何从套接字句柄中获取关联的sockaddr_in,以便从中获取端口和地址？或者还有什么关于如何从SocketHandle获取IP和端口？例如.：
function GetSocketPort ( s : TSocket ) : Integer;
var
Addr : sockaddr_in;
begin
// Get sockaddr_in from a socket
end;
function GetSocketAddress ( s : TSocket ) : String;
var
Addr : sockaddr_in;
begin
// Get sockaddr_in from a socket
end;
function ConnectToHost (Host : pchar; Port : Integer) : TSocket;
var
Addr : sockaddr_in;
begin
Addr.sin_family := AF_INET;
Addr.sin_port := htons(Port);
result := Socket(AF_INET, 1, 6);
Addr.sin_addr.S_addr := INET_ADDR(Host);
if not( (Connect(result, Addr, SizeOf(Addr)) = 0) ) then result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MySocket : TSocket;
begin
MySocket := ConnectToHost ('127.0.0.1', 8080);
if MySocket <> 0 then begin
// GetSocketAddress (MySocket);
// GetSocketPort (MySocket);
end;
end;
您可以将
getsockname功能用于本地端口和地址,将
getpeername用于远程端口,如此
function GetLocalSocketPort ( s : TSocket ) : Integer; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getsockname(s, Addr, Size); Result := ntohs(Addr.sin_port); end; function GetLocalSocketAddress ( s : TSocket ) : String; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getsockname(s, Addr, Size); Result := inet_ntoa(Addr.sin_addr); end; function GetRemoteSocketPort ( s : TSocket ) : Integer; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getpeername(s, Addr, Size); Result := ntohs(Addr.sin_port); end; function GetRemoteSocketAddress ( s : TSocket ) : String; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getpeername(s, Addr, Size); Result := inet_ntoa(Addr.sin_addr); end;
本文共计535个文字，预计阅读时间需要3分钟。
要从套接字句柄中获取sockaddr_in结构体，以便获取端口号和地址，可以按照以下步骤进行：
cfunction GetSocketPort(s : TSocket) : Integer;var Addr : sockaddr_in; len : Integer;begin len :=sizeof(Addr); getsockname(s, @Addr, len); Result :=ntohs(Addr.sin_port);end.
这段代码定义了一个函数`GetSocketPort`，它接收一个套接字句柄`s`作为参数，并返回该套接字的端口号。在函数内部，我们首先定义了一个`sockaddr_in`类型的变量`Addr`和一个整型变量`len`。`len`用于指定`Addr`的大小。
然后，我们使用`getsockname`函数获取套接字`s`的本地地址信息，该信息存储在`Addr`变量中。`getsockname`函数的第三个参数是地址结构的长度，这里我们传递了`sizeof(Addr)`。
最后，我们使用`ntohs`函数将网络字节序的端口号转换为主机字节序，并返回这个端口号作为函数的结果。
如何从套接字句柄中获取关联的sockaddr_in,以便从中获取端口和地址？或者还有什么关于如何从SocketHandle获取IP和端口？例如.：
function GetSocketPort ( s : TSocket ) : Integer;
var
Addr : sockaddr_in;
begin
// Get sockaddr_in from a socket
end;
function GetSocketAddress ( s : TSocket ) : String;
var
Addr : sockaddr_in;
begin
// Get sockaddr_in from a socket
end;
function ConnectToHost (Host : pchar; Port : Integer) : TSocket;
var
Addr : sockaddr_in;
begin
Addr.sin_family := AF_INET;
Addr.sin_port := htons(Port);
result := Socket(AF_INET, 1, 6);
Addr.sin_addr.S_addr := INET_ADDR(Host);
if not( (Connect(result, Addr, SizeOf(Addr)) = 0) ) then result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MySocket : TSocket;
begin
MySocket := ConnectToHost ('127.0.0.1', 8080);
if MySocket <> 0 then begin
// GetSocketAddress (MySocket);
// GetSocketPort (MySocket);
end;
end;
您可以将
getsockname功能用于本地端口和地址,将
getpeername用于远程端口,如此
function GetLocalSocketPort ( s : TSocket ) : Integer; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getsockname(s, Addr, Size); Result := ntohs(Addr.sin_port); end; function GetLocalSocketAddress ( s : TSocket ) : String; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getsockname(s, Addr, Size); Result := inet_ntoa(Addr.sin_addr); end; function GetRemoteSocketPort ( s : TSocket ) : Integer; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getpeername(s, Addr, Size); Result := ntohs(Addr.sin_port); end; function GetRemoteSocketAddress ( s : TSocket ) : String; var Addr : TSockAddrIn; Size: integer; begin Size := sizeof(Addr); getpeername(s, Addr, Size); Result := inet_ntoa(Addr.sin_addr); end;