Delphi的拨号连接类

procedure TRASConnection.SetPassword(Password: string);
begin
StrLCopy(FParams.szPassword, PChar(Password), sizeof(FParams.szPassword) - 1);
end;

procedure TRASConnection.SetPhoneNo(Number: string);
begin
StrLCopy(FParams.szPhoneNumber, PChar(Number), sizeof(FParams.szPhoneNumber) - 1);
end;

procedure TRASConnection.SetEntryName(Entry: string);
var
i: integer;
begin
for i := 0 to FRasEntries.Count - 1 do
if FRasEntries.Strings[i] = Entry then begin
StrCopy(FParams.szEntryName, PChar(Entry));
Exit;
end;
StrCopy(FParams.szEntryName, '''''''');
end;

procedure TRASConnection.SetUserName(UserName: string);
begin
StrLCopy(FParams.szUserName, PChar(UserName), sizeof(FPArams.szUserName) - 1);
end;

procedure TRASConnection.FreeAndHangup;
begin
if Active then DisConnect;
Free;
end;

function TRASConnection.GetRasEntries: TStringList;
var
ren: array of RASEntryName;
ren98: array of RASEntryName98;
c, l: integer;
begin
FRasEntries.Clear;
c := 0;
case FPlatForm of
VER_PLATFORM_WIN32_WINDOWS:
begin
setlength(ren98, 1);
ren98[0].dwSize := sizeof(RASENTRYNAME98);
l := sizeof(RASENTRYNAME98);
if RasEnumEntries(nil, nil, @ren98[0], @l, @c) = ERROR_BUFFER_TOO_SMALL then begin
setlength(ren, c);
RasEnumEntries(nil, nil, @ren98[0], @l, @c);
end;
while c > 0 do begin
FRasEntries.Add(string(ren98[c - 1].szEntryName));
Dec(c);
end;
SetLength(ren98, 0);
end;
VER_PLATFORM_WIN32_NT:
begin
setlength(ren, 1);
ren[0].dwSize := sizeof(RASENTRYNAME);
l := sizeof(RASENTRYNAME);
if RasEnumEntries(nil, nil, @ren[0], @l, @c) = ERROR_BUFFER_TOO_SMALL then begin
setlength(ren, c);
RasEnumEntries(nil, nil, @ren[0], @l, @c);
end;
while c > 0 do begin
FRasEntries.Add(string(ren[c - 1].szEntryName));
Dec(c);
end;
SetLength(ren, 0);
end;
end;
if FRasEntries.Count>0 then EntryName:=FRasEntries.Strings[0];
Result := FRasEntries;
end;

constructor TRASConnection.Create;
var
OS: OSVersionInfoA;
begin
inherited;
OS.dwOSVersionInfoSize:=sizeof(OSVersionInfoA);
GetVersionEx(OS);
FPlatForm:=OS.dwPlatformId;
FRasEntries := TStringList.Create;
GetRasEntries;
end;

destructor TRASConnection.Destroy;
begin
FRasEntries.Free;
inherited;
end;

procedure TRASConnection.CreateRasEntry;
begin
RasCreatePhonebookEntry(Application.Handle,nil);
end;

procedure TRASConnection.DeleteRasEntry(AEntryName: string);
var
i: integer;
begin
i:=FRasEntries.IndexOf(AEntryName);
if i=-1 then Exit;
FRasEntries.Delete(i);
if AEntryName=EntryName then
if FRasEntries.Count>0 then EntryName:=FRasEntries.Strings[0]
else EntryName:='''''''';
RasDeleteEntry(nil,PChar(AEntryName));
end;

Api声明：

function RasDial(
lpRasDialExtensions: PRASDIALEXTENSIONS;
lpszPhonebook: LPCTSTR;
lpRasDialParams: LPRASDIALPARAMS;
dwNotifierType: DWORD;
lpvNotifier: Pointer;
lphRasConn: LPHRASCONN): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasDialA'''';

function RasHangUp(rasconn: HRASCONN): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasHangUpA'''';

function RasGetEntryDialParams(
lpszPhonebook: LPCTSTR;
lprasdialparams: LPRASDIALPARAMS;
lpfPassword: LPBOOL): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasGetEntryDialParamsA'''';

function RasEnumEntries(
reserved: LPCTSTR;
lpszPhonebook: LPCTSTR;
lprasentryname: LPRASENTRYNAME;
lpcb: LPDWORD;
lpcEntries: LPDWORD): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasEnumEntriesA'''';

function RasEditPhonebookEntry(
hwnd: HWND;
lpszPhonebook: LPCTSTR;
lpszEntryName: LPCTSTR): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasEditPhonebookEntryA'''';

function RasGetEntryProperties(
lpszPhonebook: LPCTSTR;
lpszEntry: LPCTSTR;
lpRasEntry: LPRASENTRY;
lpdwEntryInfoSize: LPDWORD;
lpbDeviceInfo: PBYTE;
lpdwDeviceInfoSize: LPDWORD): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasGetEntryPropertiesA'''';

function RasSetEntryProperties(
lpszPhonebook: LPCTSTR;
lpszEntry: LPCTSTR;
lpRasEntry: LPRASENTRY;
dwEntryInfoSize: DWORD;
lpbDeviceInfo: PByte;
dwDeviceInfoSize: DWORD): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasSetEntryPropertiesA'''';

function RasEnumConnections(
lprasconn: LPRASCONN;
lpcb: LPDWORD;
lpcConnections: LPDWORD): DWORD;
stdcall; external ''''RASAPI32.dll'''' name ''''RasEnumConnectionsA'''';

function RasEnumDevices(
lpRasDevInfo: LpRasDevInfo;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!