DELPHI 如何实现拨号 ？(20分)

使用拨号控件Dialup,
很简单。

可以到深度历险找几个sample很详细的。

to li zhaoyang:
you zhe yang de kong jian ?

Yes.

where ?

我有一个拨号控件，调用很简单。我可以给你e-mail
RAS := TRAS.Create (form_main)
ras.entryname :=print_add.dialname;
ras.GetDialParams
if RAS.TestRAS then
begin
if RAS.AutoConnect <> 0 then
form_main.connect_info.Caption := '数 据 传 送 ---线 路 连 接 失 败......'
else
begin
while (RAS.ConnectState < RASBase) do
Application.ProcessMessages

if (RAS.ConnectState <> RASCS_Connected) then
begin
form_main.connect_info.Caption := '数 据 传 送 ---占 线 或 线 路 异 常，稍 后....';
Ras.Disconnect;
CurrConnection := ''
end
else
form_main.transdata;
end
end
ras.IntDisConnect;
ras.Free;
end;

用指定拨号连接拨号：WinExec('rundll32.exe rnaui.dll, RanDial 163', SW_SHOWNORMAL);
其中参数‘163’为拨号连接的名称。

已经在报号网络中建立了的拨号连接的名称以及属性都列在注册表:
KHEY_USERS/.DEFAULT/RemoteAccess/Address
用RasEnumEntries也可读出来。

深度历险上有许多个关于RAS API的例子,看一下就明白了

多人接受答案了。