本机的IP地址我已经设定为192.168.0.1,而显示出来的总是127.0.0.1
解决方案 »
- 有没有能用在dellphi2010中的Ehdbgrid
- 面向对象编程,我咋就不理解呢?体会oop思想遇到的问题
- 灌水,诸位给我小外甥想个好名字,姓曾,名字里要带火和金。
- 请问怎样在里面写入回车、换行???
- 如何屏蔽和恢复dbgrid1的ondblclick事件
- 关于锁定系统功能键
- 有没有办法只调试delphi中的一个窗口?像在vc中一样。
- 我有一个问题想请教,是关于邮件发送的。
- 如何打开一个.DBF文件。
- 如何编程将一程序中的一edit中的text拖曳到另一个程序的edit的text中去?
- 请问各位大虾如果要向需要显示的窗体中传递参数,有几种方法?各方法有何不同?(急)
- 我用dbexpress连接数据库MSSQL提示。。。
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;