关于adsl拨号的程序 谁有dialup这个控件啊 ( 积分: 50 )

麻烦发一份给小弟
谢谢
xgwzw@tom.com

麻烦发一份给小弟
谢谢
xgwzw@tom.com

delphi窖子里好像有.

我刚写了个ADSL拨号的NTSERVICE，开机自动拨号，其中ras.pas包装RASAPI32.DLL是用了别人的。

to lab01
能给一份给我吗
谢谢

今天我写了一个老是在连接处报错
不知 lab01 大侠怎么处理的
thanks!

其实可以不用控件拨号，用WINDOWS命令rasdial拨号就好了
拨号
winexec('rasdial ADSL 用户名 密码', SW_SHOW); {ADSL是连接名称}
断开用
winexec('rasdial ADSL /disconnect', SW_SHOW);就好了

to protossgffnxk
这样不行啊 最好直接调用dll

dialup不好用

没办法判断拨号状态，不能关闭不是自己创建的连接

rasdial才是正解，不过98没有这个命令

to qdlover
如果有dialup请发一份给小弟
谢谢!

The latest TDialup 2.0 is at: http://bealsoft.cjb.net/
but personally I've not been able to get it yet cos the Czech ftp server
is always unreachable...

The previous TDialup 1.31 is available from Delphi Super Page, e.g. at:
ftp://sunsite.icm.edu.pl/pub/delphi/d30free/dialup.zip

都不能打开网页
麻烦发到我的邮箱
谢谢

上google搜dialup.pas,很多的
http://www.iscb.de/downloads/dialup.zip

连接都是无效的 不知道谁有
xgwzw@tom.com 发一份
谢谢
我的Rasdial 调用时仍然是验证失败啊

http://thecoadletter.com/homepages/dsp/ftp/d30free/dialup.zip


function Tmanage_setup.dial(dial_name:string):boolean;//进行拨号尝试
var filename:string;
filehandle:textfile;
filestring:ansistring;
tempchar:char;
begin
filename:='c:/rasdial.log';
favcon_in.runcommand('cmd','/c rasdial.exe "'+dial_name+'" '+dial_username.text+' '+dial_password.text+' >'+'"'+filename+'"');
//分析rasdial.log文件
assignfile(filehandle,filename);
reset(filehandle);
while not eof(filehandle) do
begin
read(filehandle,tempchar);
filestring:=filestring+tempchar;
end;
closefile(filehandle);
if strpos(pchar(filestring),'命令已完成')<>nil then//拨号成功
dial:=true
else
dial:=false;
end;

procedure Tmanage_setup.close_dial(dial_name:string);//关闭拨号连接
begin
try
Favcon_in.runcommand('cmd','/c rasdial.exe "'+dial_name+'" /DISCONNECT');
except
end;
end;

procedure TFavcon_in.runcommand(filename,para:ansistring);
var WindowHandle:HWND;
var commandline:ansistring;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
commandline:=filename+' '+para;
//showmessage(commandline);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_HIDE ;

if not CreateProcess(nil,
pchar(commandline),
nil,
nil,
false,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then
begin

end
else
begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
//命令执行完后再会继续下去
end;
end;

to qdlover
谢谢你 不过上面的连接还是不能下载
你这样还实是调用命令行的方式

www.qdlover.com/soft/dialup.zip

没有安装包 或dpk pas文件怎么安装这个控件啊

不是有dialup.pas吗

component->install component
unit file name 选择dialup.pas不久可以了吗

在internet页里面就有了

package file name 填什么内容呢