用API函数:例子:
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin {创建 WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin {得到计算机名称}
GetHostName(@s,128);
p:=GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);{得到机器IP地址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin{释放 WinSock}
WSACleanup;
end
uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin {创建 WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin {得到计算机名称}
GetHostName(@s,128);
p:=GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);{得到机器IP地址}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin{释放 WinSock}
WSACleanup;
end
解决方案 »
- 求一个Enlib 3.0组件包
- 各位高手我想问的是如何将Excel表里面设置成为DELPHI报表来使用
- OFFICE中的ACCESS,我有理由说要比DELPHI说好
- 如何设置IDHTTP的连接超时???????????????
- 服务器之间Web通信问题
- 我工资低,还有一个了人在那里炫耀他的工资+奖金多少,郁闷!
- 分数凑个整数.
- 小弟有难了,情兄弟姐妹们帮一下!!DELPHI 如呵取ACCESS库中TEXT类型的数据??????
- 当点击stringgrid中的一行时,怎样让该行字体的颜色变成想要的颜色?
- 建议单独开辟一个Pascal的论坛
- 如何在程序中将Excel文件的数据导入数据库中
- OLE高手请进
var
ComputerName : pchar;
Size : Cardinal;
Re : Boolean;
begin
Result := '';
Size := MAX_COMPUTERNAME_LENGTH+1;
Getmem(ComputerName,Size);
Re := GetComputerName(computerName,Size);
if not RE then exit;
result := strpas(ComputerName);
Freemem(computerName);
end;