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

Question

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

Answer 1

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

Answer 2

用来取得一些主机的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;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 3

pptr其实就是一个指向TaPInAddr 类型二级指针
pptr^就相当于TaPInAddr由于TaPInAddr 是一个10各元素的PInAddr数组pptr^[I]就相当于TaPInAddr[I]
而PInAddr也是一个指针
那么pptr^[I]^也就取到了一个InAddr类型变量的内容不知道说明白了没有
就是一些指针操作而已