(rasdial)哪里能下载ras单元 for felphi 5 ?

http://www.delphi-jedi.org/Jedi:APILIBRARY:36070

解决方案 »

  1.   

    kinggron:
    去下载了一个ras.zip文件，不知对否？
    用了可以，
    但：里面有好多*.pas单元，不知是否都是必须的？每个都是做什么用的？包括par、pas、utils目录？别怪我打破沙锅！！！
    jedi是什么站点？个人的吗？
      

  2.   

    各位帮忙：：
    有没有规范的ras单元，象c++builder中的ras.h，可以直接使用rasdial等。
      

  3.   

    发email给我，我有标准的[email protected]
      

  4.   

    这个行不行？
    {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    Unit:         Remote Access Service (RAS)
    Creation:     Feb 18, 1997. Translated from MS-Visual C 4.2 header files
    EMail:        [email protected]    [email protected]
                  http://www.rtfm.be/fpiette
    Legal issues: Copyright (C) 1997, 1998 by Fran鏾is PIETTE
                  Rue de Grady 24, 4053 Embourg, Belgium. Fax: +32-4-365.74.56
                  <[email protected]>              This software is provided 'as-is', without any express or
                  implied warranty.  In no event will the author be held liable
                  for any  damages arising from the use of this software.              Permission is granted to anyone to use this software for any
                  purpose, including commercial applications, and to alter it
                  and redistribute it freely, subject to the following
                  restrictions:              1. The origin of this software must not be misrepresented,
                     you must not claim that you wrote the original software.
                     If you use this software in a product, an acknowledgment
                     in the product documentation would be appreciated but is
                     not required.              2. Altered source versions must be plainly ed as such, and
                     must not be misrepresented as being the original software.              3. This notice may not be removed or altered from any source
                     distribution.
    Updates:
    Sep 25, 1998  V1.10  Added RasGetIPAddress and RasGetProjectionInfoA. Thanks to
                  Jan Tomasek <[email protected]> for his help.
     * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
    unit Ras;interfaceuses
        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
    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.{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
      

  5.   

    http://vcl.vclxx.org/  to to :)