Unit Dial

Classes

Functions

CountConnections - We have to wait because the API and the devices are sooo slow.
Dialup - ++++++++ --> We will not run the progs if we redial.
HangUp - Counts the active connections.
predial - Needed for the Rasentry-call.
RasCallback -
runProgs -
StatusString -

Types

Constants

Variables

device
entries
hRas
ok
rasentry
redial
s2
size
thisConnection
tries
triesbusy


Functions


function CountConnections:Integer;

We have to wait because the API and the devices are sooo slow. Else we get an error because the connections entries[1] is already open and I haven't implented multi-connection functionality. I hope that works fine. Else, I'll hang up an other thing...

procedure Dialup(connection, username, passwort: String; runProg:Boolean);

++++++++ --> We will not run the progs if we redial...

function HangUp:Boolean;

Counts the active connections.

No connection open


procedure predial;

Needed for the Rasentry-call. Since under NT a connection is only open when the connection is completed and the authentification begins, I have to get the informations over GetEntryProperties. (See the initialization-part and the help-file for help.

procedure...


procedure RasCallback(msg: Integer; state: TRasConnState; error: Longint);


procedure runProgs(connection:String);


function StatusString(state: TRasConnState; error: Longint): String;


Types


Constants


Variables

device : String

entries : Array[1..10] of TRasConn

+++++++++ ---> this for the possibility to run URL's (ShellExecute

hRas : THRasConn

ok : Boolean

rasentry : TRasEntry

redial : Boolean

s2 : Integer

size : Integer

thisConnection : String

tries : Byte

triesbusy : Byte