First commit 25/10/1998

2021-09-12 22:21:22 +02:00
commit ce9a6b7473
22 changed files with 1236 additions and 0 deletions
--- a/DialUp/README.TXT
+++ b/DialUp/README.TXT
@ -0,0 +1,140 @@
+(****************************************** |******************************************
+ *      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.