为什么这个函数不好用!(100分)

  • 主题发起人 主题发起人 zhyanfeng
  • 开始时间 开始时间
Z

zhyanfeng

Unregistered / Unconfirmed
GUEST, unregistred user!
我从程序员杂志合订本看到这样一个函数,判断计算机是否连上internet inetisoffline
为什么我用拔号上网不能正常判断?


源码如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;
function InetIsOffline(flag:integer):boolean; stdcall;external 'c:/winnt/system32/URL.DLL';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IF InetIsOffline(0) then
begin
showmessage('aaaaaaaaaaaa');
end
else
begin
showmessage('bbbbbbbbbbbbbb');

end;;
end;

end.
 
没有问题啊!是不是dll路径问题?
 
确实没什么问题
 
URL.DLL的版本问题
 
試一下:
定義函數部分改為:function InetIsOffline(flag:integer):boolean; stdcall;external 'URL.DLL';
即將其路徑出掉。(只能在NT下運行)
 
不行啊,我改为
function InetIsOffline(flag:integer):boolean; stdcall;external 'URL.DLL';
还是一样结果
 “bbbbbbbbbbbbbbbb”
  我的操作系统是windows 2000专业版
 
而且我通过局域网连接也是不行。
 
我也测不出!
 
我是FTTP+局域网也不行.
 
多人接受答案了。
 
后退
顶部