我用idudpserver获取的aBinding.peerip的值为什么总是127.0.0.1
通过这个控件可以获取到我的ip吗?
通过这个控件可以获取到我的ip吗?
解决方案 »
- delphi idhttp控件读取验证码用于登录问题
- 在delphi中#0 #8 #13都是什么意思呀?比如下面的代码:
- delphi制作的一个cgi类型的webservices如何发布?在线等!
- DataModule单元与一般的窗体单元有何区别?请不吝指教,谢谢!
- delphi有没有回车键触发的动作?
- 如何在程序中实现http方式的文件下载
- 100分!帮忙看看修改可执行文件图标的代码!
- mapinfo,mapx,那有帮助,如何用啊!GIS高手指点指点!
- 在Delphi前台中实现SQL后台数据库的备份与还原
- 请教那位大虾能向我提供delphi的命名规则。e_mail [email protected] 送分20
- 在用sql explorer创建dababase数据表时出现错误,请大家帮助!
- 各位请进!请教一个小问题!!
但是 我的ABinding.peerPort却不是这个值 每次的连结他都有可能不同
为什么?
:(
而且 我两端的default port都设成了一个固定值
但是 我的ABinding.peerPort却不是这个值 每次的连结他都有可能不同
为什么?
var
phoste: PHostEnt;
Buffer: array[0..100] of char;
WSAData: TWSADATA;
begin
result := '';
if WSASTartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer, Sizeof(Buffer));
phoste := GetHostByName(buffer);
if phoste = nil then
begin
exit;
end
else
result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;这是取得本机的ip地址