OCX如何获得WEBSERVER的IP?(100分)

  • 主题发起人 主题发起人 jqw
  • 开始时间 开始时间
J

jqw

Unregistered / Unconfirmed
GUEST, unregistred user!
1.在三层结构中,IE中的OCX文件获得Web Server的IP
(注意:在Socketconnection=False时即ocx未连接到web server之前)

2.如何产生.cab文件?
(背景:如何将webserver中的.ini文件连同.html文件download到IE?)
 
兄弟们:
快来帮忙呀!!
 
兄弟们:
快来帮忙呀!!
 
获得IP
uses
WinSock;

function GetIPAddress: string;
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
result:='127.0.0.1';
end
else
result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;
 
首先谢谢!

to CathyEagle:
我是想获得webserver的IP,而非本机的IP

请各位高手再次帮忙!
 
兄弟们:
快来帮忙呀!!
 
兄弟们:
快来帮忙呀!!
 
快来帮忙呀!!
 
快来帮忙呀!!
 
各位高手:
urlmon.pas中有urldownloadtofile等函数可以从ocx(activeform)中
控制当前web页,是否有获取web页的URL的函数,请各位帮忙!!
 
各位高手:
urlmon.pas中有urldownloadtofile等函数可以从ocx(activeform)中
控制当前web页,是否有获取web页的URL的函数,请各位帮忙!!
 
怎么同一个问题提两次？
 
谢谢各位!
to g622:
我给你最高分
麻烦关注http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=367435
 
多人接受答案了。
 
?我什么也没有说啊
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
X
如何取网络中所有SQL SERVER的IP地址？(50分)
回复
7
查看
164
xuming
X
D
關于如何做WebServer(100分)
回复
6
查看
117
delphiprogramer
D
L
无法获得APPSERVER接口方法(200分)
回复
2
查看
232
kofxdm
K
E
窗体上有（FLASH，MEDIA，REALPLAYER）OCX控件，如何根据文件名后缀选择相应的控件与之相连？(100分)
回复
2
查看
197
easytop
E
后退
顶部