请问怎么样在Delphi程序中实现自动创建、调用、断开Windows2000的VPN连接？

Question

我现在要做一个项目，就是程序要能在公网上的不确定的电脑上跑（不想搞三层），所以需要用到自动创建Windows2000或XP的VPN连接，想在程序一开启的时候先检查该电脑是否可以连接到网络（ping），如果可以则创建一个VPN连接并拨号到服务器，连接数据库。
请问怎么样在Delphi程序中实现自动创建、调用、断开Windows2000的VPN连接？谢谢了！

Answer 1

可以使用windows提供的rasAPI函数，具体参考delphi帮助菜单下的windows sdk中的主题Remote Access Service Functions，其中有各种关于网络操作的API。
这些API函数都由windows的rasapi32.dll提供，但是delphi好象并没有提供对于rasapi32.dll中的各种参数/参数类型/API函数的封装。
但是cdsn或大富翁上有些贴子上关于rasapi32.dll封装的代码，你可以找过来整理一下，再用。

Answer 2

贴上一个封装rasapi32.dll的单元，但是单元中的API并不全，如果要用到的API并没有封装进来，可另找资源。
unit rasapi; interface uses 
   Windows, SysUtils; {$DEFINE WINVER400} 
const 
   RasUnitVersion        = 110; 
   CopyRight    : String = ' RasUnit (c) 97-98 F. Piette V1.10 '; 
   rasapi32              = 'rasapi32.dll';    UNLEN                 = 256;    // Maximum user name length 
   PWLEN                 = 256;    // Maximum password length 
   CNLEN                 = 15;     // Computer name length 
   DNLEN                 = CNLEN;  // Maximum domain name length    RAS_MaxDeviceType     = 16; 
   RAS_MaxPhoneNumber    = 128; 
   RAS_MaxIpAddress      = 15; 
   RAS_MaxIpxAddress     = 21; {$IFDEF WINVER400} 
   RAS_MaxEntryName      = 256; 
   RAS_MaxDeviceName     = 128; 
   RAS_MaxCallbackNumber = RAS_MaxPhoneNumber; 
{$ELSE} 
   RAS_MaxEntryName      = 20; 
   RAS_MaxDeviceName     = 32; 
   RAS_MaxCallbackNumber = 48; 
{$ENDIF}    RAS_MaxAreaCode       = 10; 
   RAS_MaxPadType        = 32; 
   RAS_MaxX25Address     = 200; 
   RAS_MaxFacilities     = 200; 
   RAS_MaxUserData       = 200;    RASCS_OpenPort            = 0; 
   RASCS_PortOpened          = 1; 
   RASCS_ConnectDevice       = 2; 
   RASCS_DeviceConnected     = 3; 
   RASCS_AllDevicesConnected = 4; 
   RASCS_Authenticate        = 5; 
   RASCS_AuthNotify          = 6; 
   RASCS_AuthRetry           = 7; 
   RASCS_AuthCallback        = 8; 
   RASCS_AuthChangePassword  = 9; 
   RASCS_AuthProject         = 10; 
   RASCS_AuthLinkSpeed       = 11; 
   RASCS_AuthAck             = 12; 
   RASCS_ReAuthenticate      = 13; 
   RASCS_Authenticated       = 14; 
   RASCS_PrepareForCallback  = 15; 
   RASCS_WaitForModemReset   = 16; 
   RASCS_WaitForCallback     = 17; 
   RASCS_Projected           = 18; {$IFDEF WINVER400} 
   RASCS_StartAuthentication = 19; 
   RASCS_CallbackComplete    = 20; 
   RASCS_LogonNetwork        = 21; 
{$ENDIF} 
   RASCS_SubEntryConnected   = 22; 
   RASCS_SubEntryDisconnected= 23;    RASCS_PAUSED              = $1000; 
   RASCS_Interactive         = RASCS_PAUSED; 
   RASCS_RetryAuthentication = (RASCS_PAUSED + 1); 
   RASCS_CallbackSetByCaller = (RASCS_PAUSED + 2); 
   RASCS_PasswordExpired     = (RASCS_PAUSED + 3);    RASCS_DONE                = $2000; 
   RASCS_Connected           = RASCS_DONE; 
   RASCS_Disconnected        = (RASCS_DONE + 1);    // If using RasDial message notifications, get the notification message code 
   // by passing this string to the RegisterWindowMessageA() API. 
   // WM_RASDIALEVENT is used only if a unique message cannot be registered. 
   RASDIALEVENT    = 'RasDialEvent'; 
   WM_RASDIALEVENT = $CCCD;    // TRASPROJECTION 
   RASP_Amb        = $10000; 
   RASP_PppNbf     = $0803F; 
   RASP_PppIpx     = $0802B; 
   RASP_PppIp      = $08021; 
   RASP_Slip       = $20000; type 
   THRASCONN     = THandle; 
   PHRASCONN     = ^THRASCONN; 
   TRASCONNSTATE = DWORD; 
   PDWORD        = ^DWORD; 
   PBOOL         = ^BOOL;    TRASDIALPARAMS = packed record 
       dwSize           : DWORD; 
       szEntryName      : array [0..RAS_MaxEntryName] of Char; 
       szPhoneNumber    : array [0..RAS_MaxPhoneNumber] of Char; 
       szCallbackNumber : array [0..RAS_MaxCallbackNumber] of Char; 
       szUserName       : array [0..UNLEN] of Char; 
       szPassword       : array [0..PWLEN] of Char; 
       szDomain         : array [0..DNLEN] of Char; 
{$IFDEF WINVER401} 
       dwSubEntry       : DWORD; 
       dwCallbackId     : DWORD; 
{$ENDIF} 
       szPadding        : array [0..2] of Char; 
   end; 
   PRASDIALPARAMS = ^TRASDIALPARAMS;    TRASDIALEXTENSIONS = packed record 
       dwSize     : DWORD; 
       dwfOptions : DWORD; 
       hwndParent : HWND; 
       reserved   : DWORD; 
   end; 
   PRASDIALEXTENSIONS = ^TRASDIALEXTENSIONS;    TRASCONNSTATUS = packed record 
       dwSize       : DWORD; 
       RasConnState : TRASCONNSTATE; 
       dwError      : DWORD; 
       szDeviceType : array [0..RAS_MaxDeviceType] of char; 
       szDeviceName : array [0..RAS_MaxDeviceName] of char; 
       szPadding    : array [0..1] of Char; 
   end; 
   PRASCONNSTATUS = ^TRASCONNSTATUS;    TRASCONN = packed record 
       dwSize       : DWORD; 
       hRasConn     : THRASCONN; 
       szEntryName  : array [0..RAS_MaxEntryName] of char; 
{$IFDEF WINVER400} 
       szDeviceType : array [0..RAS_MaxDeviceType] of char; 
       szDeviceName : array [0..RAS_MaxDeviceName] of char; 
{$ENDIF} 
       szPadding    : array [0..0] of Char; 
   end; 
   PRASCONN = ^TRASCONN;    TRASENTRYNAME = packed record 
       dwSize       : DWORD; 
       szEntryName  : array [0..RAS_MaxEntryName] of char; 
       szPadding    : array [0..2] of Char; 
   end; 
   PRASENTRYNAME = ^TRASENTRYNAME;    TRASENTRYDLG = packed record 
       dwSize       : DWORD; 
       hWndOwner    : HWND; 
       dwFlags      : DWORD; 
       xDlg         : LongInt; 
       yDlg         : LongInt; 
       szEntry      : array [0..RAS_MaxEntryName] of char; 
       dwError      : DWORD; 
       Reserved     : DWORD; 
       Reserved2    : DWORD; 
       szPadding    : array [0..2] of Char; 
   end; 
   PRASENTRYDLG = ^TRASENTRYDLG;    TRASPROJECTION = integer; 
   TRASPPPIP = record 
       dwSize  : DWORD; 
       dwError : DWORD; 
       szIpAddress : array [0..RAS_MaxIpAddress] of char; 
   end; 
function RasDialA(RasDialExtensions: PRASDIALEXTENSIONS; 
                 PhoneBook     : PChar; 
                 RasDialParams : PRASDIALPARAMS; 
                 NotifierType  : DWORD; 
                 Notifier      : Pointer; 
                 RasConn       : PHRASCONN 
                ): DWORD; stdcall; 
function RasGetErrorStringA( 
                 uErrorValue   : DWORD; // error to get string for 
                 szErrorString : PChar; // buffer to hold error string 
                 cBufSize      : DWORD  // size, in characters, of buffer 
                ): DWORD; stdcall; 
function RasHangupA(RasConn: THRASCONN): DWORD; stdcall; 
function RasConnectionStateToString(nState : Integer) : String; 
function RasGetConnectStatusA( 
                 hRasConn: THRASCONN;   // handle to RAS connection of interest 
                 lpRasConnStatus : PRASCONNSTATUS // buffer to receive status data 
                ): DWORD; stdcall; 
function RasEnumConnectionsA( 
                 pRasConn : pRASCONN;  // buffer to receive connections data 
                 pCB      : pDWORD;  // size in bytes of buffer 
                 pcConnections : pDWORD // number of connections written to buffer 
                ) : DWORD; stdcall 

Answer 3

function RasEnumEntriesA( 
                 Reserved : Pointer;  // reserved, must be NIL 
                 szPhonebook : PChar;  // full path and filename of phonebook file 
                 lpRasEntryName : PRASENTRYNAME; // buffer to receive entries 
                 lpcb : PDWORD;  // size in bytes of buffer 
                 lpcEntries : PDWORD  // number of entries written to buffer 
                ) : DWORD; stdcall; 
function RasGetEntryDialParamsA( 
                 lpszPhonebook : PChar; // pointer to the full path and filename of the phonebook file 
                 lprasdialparams : PRASDIALPARAMS; // pointer to a structure that receives the connection parameters 
                 lpfPassword : PBOOL    // indicates whether the user's password was retrieved 
                ) : DWORD; stdcall; 
function RasEditPhonebookEntryA( 
                  hWndParent : HWND;     // handle to the parent window of the dialog box 
                  lpszPhonebook : PChar; // pointer to the full path and filename of the phonebook file 
                  lpszEntryName : PChar  // pointer to the phonebook entry name 
                ) : DWORD; stdcall; 
//function RasEntryDlgA( 
//                   lpszPhonebook : PChar; // pointer to the full path and filename of the phone-book file 
//                   lpszEntry : PChar;     // pointer to the name of the phone-book entry to edit, copy, or create 
//                   lpInfo : PRASENTRYDLG  // pointer to a structure that contains additional parameters 
//                 ) : DWORD; stdcall; 
function RasCreatePhonebookEntryA( 
                    hWndParent : HWND;    // handle to the parent window of the dialog box 
                    lpszPhonebook : PChar // pointer to the full path and filename of the phonebook file 
                  ) : DWORD; stdcall; 
function RasGetProjectionInfoA( 
                   hRasConn      : THRASCONN;      // handle that specifies remote access connection of interest 
                   RasProjection : TRASPROJECTION; // specifies type of projection information to obtain 
                   lpProjection  : Pointer;        // points to buffer that receives projection information 
                   lpcb          : PDWORD          // points to variable that specifies buffer size 
                  ) : DWORD; stdcall; 
function RasGetIPAddress: string; 
implementation 
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} 
function RasConnectionStateToString(nState : Integer) : String; 
begin 
   case nState of 
   RASCS_OpenPort:             Result := 'Opening Port'; 
   RASCS_PortOpened:           Result := 'Port Opened'; 
   RASCS_ConnectDevice:        Result := 'Connecting Device'; 
   RASCS_DeviceConnected:      Result := 'Device Connected'; 
   RASCS_AllDevicesConnected:  Result := 'All Devices Connected'; 
   RASCS_Authenticate:         Result := 'Starting Authentication'; 
   RASCS_AuthNotify:           Result := 'Authentication Notify'; 
   RASCS_AuthRetry:            Result := 'Authentication Retry'; 
   RASCS_AuthCallback:         Result := 'Callback Requested'; 
   RASCS_AuthChangePassword:   Result := 'Change Password Requested'; 
   RASCS_AuthProject:          Result := 'Projection Phase Started'; 
   RASCS_AuthLinkSpeed:        Result := 'Link Speed Calculation'; 
   RASCS_AuthAck:              Result := 'Authentication Acknowledged'; 
   RASCS_ReAuthenticate:       Result := 'Reauthentication Started'; 
   RASCS_Authenticated:        Result := 'Authenticated'; 
   RASCS_PrepareForCallback:   Result := 'Preparation For Callback'; 
   RASCS_WaitForModemReset:    Result := 'Waiting For Modem Reset'; 
   RASCS_WaitForCallback:      Result := 'Waiting For Callback'; 
   RASCS_Projected:            Result := 'Projected'; 
{$IFDEF WINVER400} 
   RASCS_StartAuthentication:  Result := 'Start Authentication'; 
   RASCS_CallbackComplete:     Result := 'Callback Complete'; 
   RASCS_LogonNetwork:         Result := 'Logon Network'; 
{$ENDIF} 
   RASCS_SubEntryConnected:    Result := ''; 
   RASCS_SubEntryDisconnected: Result := ''; 
   RASCS_Interactive:          Result := 'Interactive'; 
   RASCS_RetryAuthentication:  Result := 'Retry Authentication'; 
   RASCS_CallbackSetByCaller:  Result := 'Callback Set By Caller'; 
   RASCS_PasswordExpired:      Result := 'Password Expired'; 
   RASCS_Connected:            Result := 'Connected'; 
   RASCS_Disconnected:         Result := 'Disconnected'; 
   else 
       Result := 'Connection state #' + IntToStr(nState); 
   end; 
end; 
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} 
function RasGetIPAddress: string; 
var 
   RASConns   : TRasConn; 
   dwSize     : DWORD; 
   dwCount    : DWORD; 
   RASpppIP   : TRASPPPIP; 
begin 
   Result          := ''; 
   RASConns.dwSize := SizeOf(TRASConn); 
   RASpppIP.dwSize := SizeOf(RASpppIP); 
   dwSize          := SizeOf(RASConns); 
   if RASEnumConnectionsA(@RASConns, @dwSize, @dwCount) = 0 then begin 
       if dwCount > 0 then begin 
           dwSize := SizeOf(RASpppIP); 
           RASpppIP.dwSize := SizeOf(RASpppIP); 
           if RASGetProjectionInfoA(RASConns.hRasConn, 
                                    RASP_PppIp, 
                                    @RasPPPIP, 
                                    @dwSize) = 0 then 
               Result := StrPas(RASpppIP.szIPAddress); 
      end; 
   end; 
end; 
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *} 
function RasDialA; external rasapi32 name 'RasDialA'; 
function RasGetErrorStringA; external rasapi32 name 'RasGetErrorStringA'; 
function RasHangUpA; external rasapi32 name 'RasHangUpA'; 
function RasGetConnectStatusA; external rasapi32 name 'RasGetConnectStatusA'; 
function RasEnumConnectionsA; external rasapi32 name 'RasEnumConnectionsA'; 
function RasEnumEntriesA; external rasapi32 name 'RasEnumEntriesA'; 
function RasGetEntryDialParamsA; external rasapi32 name 'RasGetEntryDialParamsA'; 
function RasEditPhonebookEntryA; external rasapi32 name 'RasEditPhonebookEntryA'; 
//function RasEntryDlgA; external rasapi32 name 'RasEntryDlgA'; 
function RasCreatePhonebookEntryA; external rasapi32 name 'RasCreatePhonebookEntryA'; 
function RasGetProjectionInfoA; external rasapi32 name 'RasGetProjectionInfoA'; 
end. 

Answer 4

谢谢你dctony(),但我不知道怎么样用它,能举例吗?谢谢!

Answer 5

[email protected]
谢谢，我也需要！

Answer 6

来迟了，还有吗，发给我一份：
[email protected]
谢谢！

Answer 7

我也要一个还有没有发啊 [email protected]

Answer 8

来迟了，我也要一份，能否发到：[email protected]
谢谢！