这个指针不懂，到底是什么啊，就你知了。

[jinkeb]

result:=StrPas(inet_ntoa(pptr^[I]^));
看不懂啊。请指教

[jinkeb]

type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
这个忘了。说了

[lxpbuaa]

用来取得一些主机的IP地址。辱：

uses WinSock;

{$R *.dfm}
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;

function GetIP(pptr: PaPInAddr; I: Integer): String;
begin
Result := StrPas(inet_ntoa(pptr^[I]^));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyHost: PHostent;
ptr: TaPInAddr;
WsData: TWsaData;
begin
if (WsaStartup(2,WsData) = 0) then
MyHost := GetHostByName('luo'); //'luo'可以填局域网上的某台主机的名字，辱你自己机子的名字
if MyHost <> nil then
begin
ptr[0] := PInAddr(MyHost^.h_addr_list^);
ShowMessage(GetIP(@ptr, 0));
end;
WSACleanup;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[fuyifan]

pptr其实就是一个指向TaPInAddr 类型二级指针
pptr^就相当于TaPInAddr

由于TaPInAddr 是一个10各元素的PInAddr数组

pptr^[I]就相当于TaPInAddr[I]
而PInAddr也是一个指针
那么pptr^[I]^也就取到了一个InAddr类型变量的内容

不知道说明白了没有
就是一些指针操作而已

[FrameSniper]

学习