求DELPHI5.0拨号程序代码

[小K-最佳损友]

不是直接调用WINDOWS拨号界面,利用传入值进行连接

谢谢各位大虾 [e-mail] 第一名调试成功,立即散分!!!

[zjqyb]

Unit ras_api;

Interface
uses windows;

Const
UNLEN = 256;
PWLEN = 256;
DNLEN = 15;
RAS_MaxEntryName = 256;
RAS_MaxDeviceName = 128;
RAS_MaxDeviceType = 16;

RAS_MaxPhoneNumber = 128;
RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;


PHRASConn = ^HRASConn;
HRASConn = DWORD;

const
RASDialEvent = 'RASDialEvent';
WM_RASDialEvent = $0CCCD;
{ Enumerates intermediate states to a Connection. (See RasDial) }
RASCS_Paused = $1000;
RASCS_Done = $2000;

RASBase = 600;
Success = 0;

Const
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_Interactive = RASCS_Paused;
RASCS_RetryAuthentication = RASCS_Paused + 1;
RASCS_CallbackSetByCaller = RASCS_Paused + 2;
RASCS_PasswordExpired = RASCS_Paused + 3;

RASCS_Connected = RASCS_Done;
RASCS_DisConnected = RASCS_Done + 1;

Type
{ Identifies an active RAS Connection. (See RasConnectEnum) }
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;
// Reserved: Byte;
End;


Function RasDial(
lpRasDialExtensions : PRASDIALEXTENSIONS ; // pointer to function extensions data
lpszPhonebook: PChar; // pointer to full path and filename of phonebook file
lpRasDialParams : PRASDIALPARAMS; // pointer to calling parameters data
dwNotifierType : DWORD; // specifies type of RasDial event handler
lpvNotifier: DWORD; // specifies a handler for RasDial events
var rasConn: HRASConn // pointer to variable to receive connection handle
): DWORD; stdcall;

function RasEnumConnections(RASConn: PrasConn; { buffer to receive Connections data }
var BufSize: DWord; { size in bytes of buffer }
var Connections: DWord { number of Connections written to buffer }
): LongInt; stdcall;

Function RasEnumEntries (
reserved: PChar; // reserved, must be NULL
lpszPhonebook: PChar ; // pointer to full path and filename of phonebook file
lprasentryname: PRASENTRYNAME ; // buffer to receive phonebook entries
var lpcb : DWORD;// size in bytes of buffer
var lpcEntries : DWORD// number of entries written to buffer
) : DWORD; stdcall;

function RasGetConnectStatus(RASConn: hrasConn; { handle to Remote Access Connection of interest }
RASConnStatus: PRASConnStatus { buffer to receive status data }
): LongInt; stdcall;

function RasGetErrorString(ErrorCode: DWord; { error code to get string for }
szErrorString: PChar; { buffer to hold error string }
BufSize: DWord { sizeof buffer }
): LongInt; stdcall;

function RasHangUp(RASConn: hrasConn { handle to the Remote Access Connection to hang up }
): LongInt; stdcall;

function RasGetEntryDialParams(
lpszPhonebook:PChar; // pointer to the full path and filename of the phonebook file
VAR lprasdialparams:TRASDIALPARAMS; // pointer to a structure that receives the connection parameters
VAR lpfPassword : BOOL // indicates whether the user's password was retrieved
): DWORD; stdcall;

implementation

const
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.

//win98 passed
function Mydialup(const pppuser,ppppasswd,telno:string) :boolean;
var
dialpara:TRASDialParams;
begin
try
fillchar(dialpara,sizeof(dialpara),#0);
with dialpara do
begin
dwSize:=sizeof(TRASDialParams);
strcopy(szPhoneNumber,pchar(telno));
szCallbackNumber:='';
strcopy(szUserName,pchar(pppuser));
strcopy(szPassword,pchar(ppppasswd));
szDomain:='';
rashandle:=0;
result:=RasDial(nil,'',@dialpara,$FFFFFFFF,0,rashandle)=0;
end;
except
result:=false;
end;
end;

[cgh1970]

我有老外写的原代码，留下你的信箱，我发给你。

[fhuibo]

一个简单的拨号控件
unit Dialer;
interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs;

type

TComPort = (dpCOM1,dpCOM2,dpCOM3,dpCOM4);

TMethod = (dmTone,dmPulse);

TDialer = class(TComponent)

private

{ Private declarations }

FComPort : TComPort;

FNumberToDial : string;

FConfirm : boolean;

FMethod : TMethod;

protected

{ Protected declarations }

public

{ Public declarations }

procedure Execute;

published

property ComPort : TComPort read FComPort

write FComPort;

property Confirm : boolean read FConfirm

write FConfirm;

property Method : TMethod read FMethod

write FMethod;

property NumberToDial : string read FNumberToDial

write FNumberToDial;

{ Published declarations }

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [TDialer]);

end;

procedure TDialer.Execute;

var

s : string;

CId : Integer;

Status : Integer;

Buf : array[1..32] of Char;

begin

if FConfirm then

begin

if MessageDlg('About to dial the number '+FNumberToDial+'. Are you sure?',

mtConfirmation, [mbYes,mbNo], 0)=mrNo then Exit;

end;

{Create a string to send to modem}

s:=Concat('ATDT',FNumberToDial,^M^J);

if FMethod=dmPulse then s[4]:='P';

{Open Com Port}

StrPCopy(@Buf,'COM ');

Buf[4]:=Chr(49+Ord(FComPort));

CId:=OpenComm(@Buf,512,512);

if CId<0 then

begin

MessageDlg('Unable to open '+StrPas(@Buf),mtError,

[mbOk], 0);

Exit;

end;

{Send phone number to modem}

StrPCopy(@Buf,s);

Status:=WriteComm(CId,@Buf,StrLen(@Buf));

if Status>=0 then

begin

MessageDlg('Pick up the phone',mtInformation,

[mbOk], 0);

WriteComm(CId,'ATH'^M^J,5);

end

else

MessageDlg('Unable to dial number',mtError,

[mbOk], 0);

{Close communication port}

CloseComm(CId);

end;

end.

使用举例：

procedure TForm1.Button1Click(Sender: TObject);

var

TempDialer : TDialer;

begin

TempDialer:=TDialer.Create(Self);

with TempDialer do

begin

ComPort:=dpCom4;

Confirm:=true;

Method:=dmTone;

NumberToDial:='1(222)333-4444';

Execute;

Free;

end;

end;

[小K-最佳损友]

小弟不才,请问楼上第一位^HRASConn未能够识别,我该怎么办啊?

留下你的QQ好吗?方便我联系你

[zjqyb]

编译应该可以

[小K-最佳损友]

我自己解决了，放分