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 -
device
entries
hRas
ok
rasentry
redial
s2
size
thisConnection
tries
triesbusy
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;
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