我想做一个vpn客户端软件,软件能自动创建连接,能拔号,断开就行,功能很简单,请有这方面经验的朋友给点资料指点一下,谢谢了

解决方案 »

  1.   

    去下载一个ras.pas就完成搞定其中的一些ras函数可以参照msdn
      

  2.   

    转个源码给LZ参考:
    DELPHI VPN拨号客户端源码
    http://download.csdn.net/source/2384286
      

  3.   

    谁知道delphi2009下用哪个ras.pas或DialUp.pas能调试通过的
      

  4.   

    谁能给一份TRASENTRY  这个结构中各参数的详细说明,好进行建立VPN设置,还有一个问题就是一直出632错误,查了google说是TRASENTRY结构有问题,就是不知道问题出在哪里,都是从网上找来的代码,只是我是用delphi2009编译的
      

  5.   


    TRasConnA  = record
       dwSize       : Longint;
       hrasconn     : THRasConn;
       szEntryName  : Array[0..RAS_MaxEntryName] of AnsiChar;
       szDeviceType : Array[0..RAS_MaxDeviceType] of AnsiChar;
       szDeviceName : Array[0..RAS_MaxDeviceName] of AnsiChar;
     end;Entries: Array[1..MaxEntries] of TRasConn;if Assigned(FOnActiveConn) then FOnActiveConn(Self, Entries[X].HRasConn,
                                                        Stat, S,
                                                        Entries[X].szEntryName,
                                                        Entries[X].szDeviceType,
                                                        Entries[X].szDeviceName);
    上面这段代码在delphi2009下不能运行,总提示类型不对,谁能告诉一下怎么修改