这是什么错误，看不懂？

[qukmei]

[Error] d.pas(57): Not enough actual parameters

[netwolfds]

少了参数，GetHostName 有两个参数

[c_hk]

var
Bufffer : Array[0..255] of Char;
...
Host:=GetHostName (@Buffer);

[goomoo]

实参不够数。请察看函数原型。

[qukmei]

我定义的是：
Buffer:Array[1..32] of Char;

[killedkiss]

c_hk(小李抢刀) ：GetHostName函数是干吗用的？？

[蝈蝈太阳]

up

[netwolfds]

int gethostname (

char FAR * name,
int namelen
);
除了pchar外还有integer

[qukmei]

我倒，我的那个怎么改呀？帮

[netwolfds]

你试试，我也不知道行不行

var
s:string;
begin
setlength(s,50);
gethostname(pchar(s),50);
end;

[qukmei]

看不懂呀
你们看就是那句有问题呀，为什么？

unit d;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Winsock;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: 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
Ip:String;
Ipstr:String;
Buffer:Array[1..32] of Char;
i:Integer;
WSData:TWSAData;
Host:PHostEnt;

begin
if WSAstartup(2,WSData)<>0 then
begin
showmessage('WS2_32.DLL初始化失败！');
halt;
end;
try
if GetHostName(@Buffer[1],32)<>0 then
begin
showmessage('没有得到主机名');
halt;
end;
except
showmessage('没有成功返回主机名！');
halt;
end;
Host:=GetHostName (@Buffer[1]); //这句报错！
if Host=nil then
begin
showmessage('ip地址为空！');
halt;
end
else
begin
Edit2.Text:=Host.h_name;
Edit3.Text:=Chr(Host.h_addrtype+64);
for i:=1 to 4 do
begin
Ip:=IntToStr(Ord(Host.h_addr^[i-1]));
showmessage('分段ip地址为：'+Ip);
Ipstr:=Ipstr+Ip;
if i<4 then
Ipstr:=Ipstr+'.'
else
Edit1.Text:=Ipstr;
end;
end;
WSACleanup;

end;

end.

[netwolfds]

你那里是少了一个参数嘛，你前面还有一个，就加了个32。后面的为什么不加

[qukmei]

加上也错！为什么？

[qukmei]

[Error] d.pas(58): Incompatible types: 'Integer' and 'PHostEnt'

加上是这个错，晕的

[netwolfds]

那是你的返回值定义有错，GetHostName的返回值是integer!

[qukmei]

怎么改呀，高手们？

[jakefj]

TGetHostNameProc = function (name: PChar; len: Integer): Integer;

[qukmei]

看不懂，直接点的，只要能改对了这个程序，我是delphi6.0，为什么就是报错！晕

[netwolfds]

把host的定义改为host:integer;
将if host=nil改为if host<>0
你这段程序从哪里来的？按照delphi的帮助返回的host_name存放在buffer中，
这样和你的程序就完全不一样了。
你的第一次调用GetHostName是正确的，第二次就有点莫名其妙了，
可能程序有误

[netwolfds]

如果我估计不错，第二次调用应该是这个函数：gethostbyname
那你原来的程序别的都不用动，只要把第二次调用的函数名改了就可以了

[qukmei]

不错，谢谢你了，我今天下午刚学　delphi6.0
书上写错了，书也有bug？晕
谢谢了，结贴！