(****************************************** |******************************************
 *      RAR, dekompresni komponenta       * |*      RAR, decompression component      *
 *                pro Delphi 3 (32b)      * |*                for Delphi 3 (32b)      *
 *                 (c) 1997 BEALsoft      * |*                 (c) 1997 BEALsoft      *
 *                       v1.0             * |*                       v1.0             *
 *________________________________________* |*________________________________________*
 *    !! TATO KOMPONENTA JE ZDARMA !!     * |*     !! THIS COMPONENT IS FREE !!       *
 ****************************************** |******************************************)
// Kontakt na autora // Contact to author :
// aberka@usa.net, ICQ UIN 2365308, http://jakub.naf.cz/~aberka
// BEALsoft BBS, +420-5-<MOMENTALNE NENI / NONE AT THE MOMENT>, 24h
// ** Nove telefonni cislo bude umisteno na me webovske stranky **
// ** New phone number will be placen on my web pages **

// Thanx to Davide Moretti for his RAS API header (Some code in this component
//  was written by him). You can reach him via e-mail: dmoretti@iper.net

--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
Nasledujici dokumentace je JEN v anglictine, protoze predpokladam u programatoru
znalost anglictiny.

It is recommended to read the source code, its comments.

RAS API functions are described in WIN32.HLP (Shipped with 32b Delphi)

METHODS:
=======
function Dial : Integer;
  Dials <ENTRY> connection.
  Non-zero result means error; OnError event also occurs.
  
function GetEntries : Integer;
  Get available connections
  Connections are stored in <ENTRIES>. OnEntryGet event occurs 

function GetConnections : Integer;
  Get active connection
  Connections are passed thru OnActiveConnection

function HangUp : Integer;
  Hangups the connection you dialed with this component

function HangUpConn(Handle : THRasConn) : Integer;
  Hangups the connection identified by Handle (OnActiveConnection)

function CreateEntry : Integer;
  Creates entry in phonebook and displays edit dialog

function EditEntry : Integer;
  Opens edit dialog for <ENTRY>

function DeleteEntry : Integer;
  Delete <ENTRY> from phonebook

function RenameEntryTo(S : String) : Integer;
  Rename <ENTRY> to <S>

function SetEntryUserName(Value : String) : Integer;
  Set new username (<VALUE>) to <ENTRY>

function SetEntryPassword(Value : String) : Integer;
  Set new password (<VALUE>) to <ENTRY>

function RemovePassword : Integer;
  Remove password from <ENTRY>

function GetEntryUserName(var Value : String) : Integer;
  Get username from <ENTRY> to <VALUE>

function GetEntryPassword(var Value : String) : Integer;
  Get password from <ENTRY> to <VALUE>

function StatusString(State: TRasConnState; Error: Integer): String;
  Get string describing <STATE> and <ERROR>

function StatusStringCZ(State: TRasConnState; Error: Integer): String;
  Get Czech string describing <STATE> and <ERROR>


PROPERTIES:
===========

property DialMode (TDialMode ... dmAsync/dmSync)
-----------------

Property describing the mode of dialing.
Async dialing means that user will be notified when anything happen
by event. See OnAsyncEvent. [onDialing,onError,onAsyncEvent]
Sync dialing means that Dial function will exit when dialing finished.
Dial function result gives neccessary information. [onDialing,onConnect,onNotConnected]

property Entry (String)
--------------

Identifies which entry will be processed by Dial,EditEntry,DeleteEntry,
  GetEntryUserName,...
  
property Language (TLanguage ... Czech/English)
-----------------

Choose your language. Used for events with string messages.


EVENTS:
=======

OnEntryGet, procedure (Sender : TObject; EntryName : Array of Char) of Object;
----------
This event occurs when an Entry was found in phonebook by GetEntris method.

OnDialing, procedure (Sender : TObject) of object;
---------
This event occurs when Dial method is executed.

OnConnect, procedure (Sender : TObject) of object;
---------
This event occrus when connected with Dial method.
                                      ^^^^^^^^^^^

OnNotConnected, procedure (Sender : TObject; ErrorCode : Integer; ErrorMessage : String) of object;
--------------
This event is called when dialing failed.


OnAsyncEvent, procedure (Sender : TObject; State : TRasConnState; Error : Integer;
------------             MessageText : String) of object;
This event is called by RAS when dialing in Async mode. Gives information
about current process.

OnError, procedure (Sender : TObject; ErrorCode : Integer; ErrorMessage : String) of Object;
-------
This event is called when error occur in Dial method etc.

OnActiveConnection, procedure (Sender : TObject; Handle : THRasConn; Status : TRasConnStatus;
------------------             StatusString : String;
                               EntryName, DeviceType, DeviceName : Array of Char) of object;

This event is called when an active connection was found by GetConnections.
Gives neccessary information about found connection.