ADSL拨号程序问题？？在线等

Question

呵呵,改成下面的就可以了..
    with  Dialparams^  do
    begin
      dwSize  :=  Sizeof(TRasDialParams);
      StrPCopy(szEntryName,'你的拔号连接名称');
      StrPCopy(szUserName,UserName);
      StrPCopy(szPassword,Password);
      //StrPCopy(szPhoneNumber,Phone);
      if  Domain  <>  '' then
        StrPCopy(szDomain,  Domain);
    end;

Answer 1

我是ADSL用户 我该在那些地方进行修改呢？？

Answer 2

我用的是VPN,ADSL的应该也差不多就改两个地方就可以了,如下.    with Dialparams^ do
    begin
      dwSize := Sizeof(TRasDialParams);
      StrPCopy(szEntryName, 'MyVPN');
      StrPCopy(szUserName, UserName);
      StrPCopy(szPassword, Password);
      //StrPCopy(szPhoneNumber,Phone);
      if Domain <> '' then
        StrPCopy(szDomain, Domain);
    end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ConnectionToInterNet('test', 'test', '', '', true);
end;