inet_addr,这样都会出错,真奇怪.

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IdWinsock;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
 ipaddress:dword;
  hos:phostent;
begin  ipaddress:=inet_addr(PChar(edit1.text));
  hos:=gethostbyaddr(@ipaddress,sizeof(ipaddress),PF_INET);end;end.
用F8,执行  ipaddress:=inet_addr(PChar(edit1.text));时出错:"projcet project1.exe raised exception class EAccesViolation with message 'Access violation at address 00000000. Read of address 00000000'.Process stopped. Use Step or Run To continue."
我用的是d6+upd2.
这里出错,实在是难以理解.

Answer 1

老兄是不是想根據IP取得計算機名呀uses winsock;procedure TForm1.Button1Click(Sender: TObject);
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
  netaddr:u_long;
begin
  WSAStartup(2, WSAData);
  netaddr:=inet_addr(Pchar('127.0.0.1'));
  HostEnt:=GetHostbyaddr(pchar(@netaddr),30,0);
  caption:=strpas(HostEnt.h_name);
  WSACleanup;
end;

Answer 2

是啊,GetHostbyaddr取计算机名,是向该机发送包得到,还是向路由发包得到?