一定要帮我啊!!问题真是奇怪!关于InternetCheckConnection这个函数!(30分)

X

xli711

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用该函数判断一个网址是否有效,代码如下:
if InternetCheckConnection('http://www.163.com/', 1, 0) then
showmessage('ok')
else
showmessage('no');
end;
当填入的网址有效时,程序出错,提示了Kernel32.dll和Wininet.dll这两个系统文件;
当填入的网址无效时,如上面的网址改成'ldsfjlsjjslj'这种乱字符串,能显示出no对话框。
这样看来,该函数应该是“工作”了才对啊,可为什么输入的网址有效时程序却出错呢?!
(可参考我的另一贴,但情况可能更复杂,所以也可以不参考)
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1500755
这问题真烦人!!!请高手一定帮我忙!!!!!!!!!!
 
这个InternetCheckConnection是你自已写的吗?怎么没有内容,只有一个名字怎么知道哪里有问题?
 
这是Windows本身的函数啊,这是它在msdn上的定义:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/internetcheckconnection.asp
请各位帮忙啊!!!
 
我试了一下,没问题啊
implementation
uses
WinInet;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.163.com/', 1, 0) then
showmessage('ok')
else
showmessage('no');
end;

 
对啊,怪就怪在这里!!
以前我的程序也是可以的,但不知怎么现在就不行了,就是重装了个系统。
请问你是什么系统?是不是WIN98?
能不能把这两个系统文件发给我?
Kernel32.dll和Wininet.dll
xlieryu@yahoo.com.cn
 
我也是好的, 没问题
 
我的系统是Win2000 Server, Kernel32.dll,Wininet.dll两个DLL已发送
 
又见高人。
 
多人接受答案了。
 
顶部