如何从SocketHandle中提取IP地址和端口号呢？
- 内容介绍
- 文章标签
- 相关推荐
本文共计499个文字，预计阅读时间需要2分钟。
从套接字句柄中获取关联的sockaddr_in结构，以便从中提取端口和地址，可以使用以下方法：
cfunction GetSocketPort(s : TSocket) : Integer;var Addr : sockaddr_in;begin // 使用getsockname获取套接字句柄的本地地址信息 if getsockname(s, @Addr, sizeof(Addr))=0 then begin // 成功获取，返回端口号 Result :=ntohs(Addr.sin_port); end else begin // 获取失败，返回-1 Result :=-1; end;end;
这段代码中，`GetSocketPort`函数接受一个套接字句柄`TSocket`作为参数，并返回一个整数，表示获取到的端口号。函数内部首先尝试使用`getsockname`函数获取套接字的本地地址信息，并将其存储在`Addr`变量中。如果`getsockname`调用成功，则通过`ntohs`函数将端口号从网络字节序转换为主机字节序，并返回结果。如果调用失败，则返回-1。
如何从套接字句柄中获取关联的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;
本文共计499个文字，预计阅读时间需要2分钟。
从套接字句柄中获取关联的sockaddr_in结构，以便从中提取端口和地址，可以使用以下方法：
cfunction GetSocketPort(s : TSocket) : Integer;var Addr : sockaddr_in;begin // 使用getsockname获取套接字句柄的本地地址信息 if getsockname(s, @Addr, sizeof(Addr))=0 then begin // 成功获取，返回端口号 Result :=ntohs(Addr.sin_port); end else begin // 获取失败，返回-1 Result :=-1; end;end;
这段代码中，`GetSocketPort`函数接受一个套接字句柄`TSocket`作为参数，并返回一个整数，表示获取到的端口号。函数内部首先尝试使用`getsockname`函数获取套接字的本地地址信息，并将其存储在`Addr`变量中。如果`getsockname`调用成功，则通过`ntohs`函数将端口号从网络字节序转换为主机字节序，并返回结果。如果调用失败，则返回-1。
如何从套接字句柄中获取关联的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;