天
天舞枫
Unregistered / Unconfirmed
GUEST, unregistred user!
最近正在制作一个拨号程序,当然使用现成的拨号控件dialup.pas
现在发现这样的一个问题,程序正常拨号后在winxp操作系统中能够正常的读取流量
但是在2003系统中不能正常的读取流量
程序代码:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not DialUp1.GetPerfStats then
begin
Beep;
Self.RzStatusPane1.Caption := '发送ERROR';
Self.RzStatusPane2.Caption := '接收ERROR';
end else
begin
Self.RzStatusPane1.Caption := '发送:' + IntToStr(DialUp1.BytesXmit) + ' 字节';
Self.RzStatusPane2.Caption := '接收:' + IntToStr(DialUp1.BytesRecv) + ' 字节';
CoolTrayIcon1.Hint := '发送:' + IntToStr(DialUp1.BytesXmit) + ' 字节' + #13 + '接收:' + IntToStr(DialUp1.BytesRecv) + ' 字节';
end;
end;
现在的问题是在win2003中,[red]DialUp1.GetPerfStats [/red]根本不成立!
看了一下dialup.pas控件感觉是操作系统识别的问题,控件对于win2003操作系统不能正常识别!
但是我的能力还不足以修改好这个问题,现在寻求大家的帮忙能否帮我修改一下控件
只要能够在win2003中能够正常读取流浪就给分,希望大家帮忙
控件这里不能提供上传,放到我的空间中了,希望大家帮忙!
http://blog.bloodbird.com/dialup.zip
谢谢大家帮忙了
现在发现这样的一个问题,程序正常拨号后在winxp操作系统中能够正常的读取流量
但是在2003系统中不能正常的读取流量
程序代码:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not DialUp1.GetPerfStats then
begin
Beep;
Self.RzStatusPane1.Caption := '发送ERROR';
Self.RzStatusPane2.Caption := '接收ERROR';
end else
begin
Self.RzStatusPane1.Caption := '发送:' + IntToStr(DialUp1.BytesXmit) + ' 字节';
Self.RzStatusPane2.Caption := '接收:' + IntToStr(DialUp1.BytesRecv) + ' 字节';
CoolTrayIcon1.Hint := '发送:' + IntToStr(DialUp1.BytesXmit) + ' 字节' + #13 + '接收:' + IntToStr(DialUp1.BytesRecv) + ' 字节';
end;
end;
现在的问题是在win2003中,[red]DialUp1.GetPerfStats [/red]根本不成立!
看了一下dialup.pas控件感觉是操作系统识别的问题,控件对于win2003操作系统不能正常识别!
但是我的能力还不足以修改好这个问题,现在寻求大家的帮忙能否帮我修改一下控件
只要能够在win2003中能够正常读取流浪就给分,希望大家帮忙
控件这里不能提供上传,放到我的空间中了,希望大家帮忙!
http://blog.bloodbird.com/dialup.zip
谢谢大家帮忙了