烦!!rasdial(...)函数为何不能用？？

Question

调用dll里的函数，首先要加载Dll。

Answer 1

请问jedi在哪里？我不知道啊!

Answer 2

我有ras单元，想要我发给你。

Answer 3

发给我吧？(for delphi5.0) 多谢你了！[email protected]
再：如果你对rasdial...比较熟，能否将e_mail告诉我，当我再有困难时可以直接问你？

Answer 4

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

Answer 5

unit RASAPI;interfaceuses Windows, Messages, SysUtils, Forms, Controls;const
  UNLEN = 256;
  PWLEN = 256;
  DNLEN = 15;
  RAS_MaxEntryName = 256;
  RAS_MaxDeviceName = 128;
  RAS_MaxDeviceType = 16;
  RAS_MaxPhoneNumber = 128;
  RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;
  RDEOPT_UsePrefixSuffix           = $00000001;
  RDEOPT_PausedStates              = $00000002;
  RDEOPT_IgnoreModemSpeaker        = $00000004;
  RDEOPT_SetModemSpeaker           = $00000008;
  RDEOPT_IgnoreSoftwareCompression = $00000010;
  RDEOPT_SetSoftwareCompression    = $00000020;type
  HRASConn = THandle;
  PHRASConn = ^HRASConn;
  PRASConn = ^TRASConn;
  TRASConn = record
    dwSize: DWORD;
    rasConn: HRASConn;
    szEntryName: array[0..RAS_MaxEntryName] of Char;
    szDeviceType: array[0..RAS_MaxDeviceType] of Char;
    szDeviceName: array [0..RAS_MaxDeviceName] of char;
  end;  PRASConnStatus = ^TRASConnStatus;
  TRASConnStatus = record
    dwSize: LongInt;
    rasConnstate: Word;
    dwError: LongInt;
    szDeviceType: array[0..RAS_MaxDeviceType] of Char;
    szDeviceName: array[0..RAS_MaxDeviceName] of Char;
  end;  PRASDIALEXTENSIONS= ^TRASDIALEXTENSIONS;
  TRASDIALEXTENSIONS= record
    dwSize: DWORD;
    dwfOptions: DWORD;
    hwndParent: HWnd;
    reserved: DWORD;
  end;  PRASDialParams = ^TRASDialParams;
  TRASDialParams = 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;
  end;  PRASEntryName = ^TRASEntryName;  TRASEntryName = record
    dwSize: LongInt;
    szEntryName: array[0..RAS_MaxEntryName] of Char;
  end;  function RasDial(lpRasDialExtensions : PRASDialExtensions; lpszPhonebook: PChar;
    lpRasDialParams: PRASDIALPARAMS; dwNotifierType: DWORD; lpvNotifier: DWORD;
    var rasConn: HRASConn): DWORD; stdcall;
  function RasEnumConnections(RASConn: PrasConn; var BufSize: DWord; var Connections: DWord): LongInt; stdcall;
  function RasEnumEntries (reserved: PChar; lpszPhonebook: PChar; lprasentryname: PRASENTRYNAME;
    var lpcb:DWORD; var lpcEntries: DWORD): DWORD; stdcall;
  function RasGetConnectStatus(RASConn: hrasConn; RASConnStatus: PRASConnStatus): LongInt; stdcall;
  function RasGetErrorString(ErrorCode: DWord; szErrorString: PChar; BufSize: DWord): LongInt; stdcall;
  function RasHangUp(RASConn: hrasConn ): LongInt; stdcall;
  function RasGetEntryDialParams(lpszPhonebook: PChar; var lprasdialparams: TRASDIALPARAMS;
    var lpfPassword : BOOL): DWORD; stdcall;
  //////////////////////////////////////////////////////////////
implementationconst
  RAS_DLL = 'RASAPI32.DLL';
  function RasDial; external RAS_DLL name 'RasDialA';
  function RasEnumConnections; external RAS_DLL name 'RasEnumConnectionsA';
  function RasEnumEntries; external RAS_DLL name 'RasEnumEntriesA';
  function RasGetConnectStatus; external RAS_DLL name 'RasGetConnectStatusA';
  function RasGetErrorString; external RAS_DLL name 'RasGetErrorStringA';
  function RasHangUp; external RAS_DLL name 'RasHangUpA';
  function RasGetEntryDialParams; external RAS_DLL name 'RasGetEntryDialParamsA';end.