文件列表:

供水工程管理系统 (0, 2015-04-14)
供水工程管理系统\供水工程管理系统 (0, 2015-04-14)
供水工程管理系统\供水工程管理系统\2002-10-18.txt (1679, 2002-11-04)
供水工程管理系统\供水工程管理系统\2002-10-18.txt.bak (1609, 2002-11-03)
供水工程管理系统\供水工程管理系统\2003-7-10 (0, 2015-04-14)
供水工程管理系统\供水工程管理系统\2003-7-10\154.ICO (29926, 2002-06-11)
供水工程管理系统\供水工程管理系统\2003-7-10\154.bmp (1078, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\18.bmp (822, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\73.bmp (822, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\8.bmp (822, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.cfg (434, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.dof (4437, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.dpr (243, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.exe (1131008, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.res (876, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\ExpXLS.~dpr (293, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.dcu (6309, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.ddp (51, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.dfm (10449, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.pas (3995, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.~ddp (51, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.~dfm (10449, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uExportXLS.~pas (3213, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uFilter.dcu (4386, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uFilter.dfm (1726, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uFilter.pas (1144, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uFilter.~dfm (1835, 2003-07-11)
供水工程管理系统\供水工程管理系统\2003-7-10\uFilter.~pas (1147, 2003-07-11)
供水工程管理系统\供水工程管理系统\CODE_UPLOAD7602792000-Delphi 5.zip (39691, 2002-09-22)
供水工程管理系统\供水工程管理系统\Decrypt.pas (2781, 2002-08-16)
供水工程管理系统\供水工程管理系统\Fix List.txt (1619, 2002-08-21)
供水工程管理系统\供水工程管理系统\General (0, 2015-04-14)
供水工程管理系统\供水工程管理系统\General\Dialup.pas (65877, 2002-09-22)
供水工程管理系统\供水工程管理系统\General\Dialup.pas.rtf (72151, 2002-09-20)
供水工程管理系统\供水工程管理系统\General\Encr_Decr.dcu (3109, 2002-10-22)
供水工程管理系统\供水工程管理系统\General\Encr_Decr.pas (2968, 2002-09-20)
供水工程管理系统\供水工程管理系统\General\Encr_Decr.~pas (2658, 2002-09-20)
供水工程管理系统\供水工程管理系统\JSGL.ldf (2097152, 2002-11-05)
供水工程管理系统\供水工程管理系统\JSGL.mdf (2097152, 2002-11-05)
供水工程管理系统\供水工程管理系统\Position.pas (3267, 2002-08-01)
... ...

(****************************************** |****************************************** * TDialUp, telefonicke pripojeni site * |* TDialUp, Dial-Up Networking component * * pro Delphi 3/4 (32b) * |* for Delphi 3/4 (32b) * * (c) 19***,99 BEALsoft * |* (c) 19***,99 BEALsoft * * v1.31 * |* v1.31 * *________________________________________* |*________________________________________* * !! TATO KOMPONENTA JE ZDARMA !! * |* !! THIS COMPONENT IS FREE !! * ****************************************** |******************************************) // Autor // Author : // aberka@usa.net / xberka1@fi.muni.cz, ICQ UIN 2365308, http://telman.cjb.net/ or http://come.to/~aberka // 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 // Also thanx to Magenta Systems ltd. for perfstats methods! // News in v1.1 (since 1.0) // fixed bug - SetEntryUserName and SetEntryPassword // new - dynamic loading of dll, only when needed => you can add this component to // delphi on computer w/out RAS DLLs. // // News in v1.2 (since 1.1) // new - GetIP() fills properties ServerIP,ClientIP // // News in v1.3 (since 1.2) // new - In Win***, Win95 (with MSDUN 1.2 installed) and in WinNT you can get // transfer statistics. Except NT you can also get connection speed. // InitializePerfStats(BOOL,BOOL) - 1st BOOL - Get values immediately (similar to InitializePerfStats(TRUE,_); GetPerfStats;) // 2nd BOOL - Don't use DUNA_KEY property, // use 1st value found in registry {RECOMMENDED} // // Available keys are in DUNA after calling SearchDUNA // GetPerfStats - write actual values into properties: // - BytesXmit,BytesRecv,ConnectionSpeed // // New in 1.31 (since 1.3) // new - Portuguese translation -------------------------------------------------------------------------------- // Chcete-li vyuzit komponentu v komercnim produktu, zaslete onen komercni // program autorovi (1 kopii zdarma). Nevyhovuje-li vam toto reseni, domluvte se // se mnou e-mailem. // If you want to use this component in commercial product, send this // product to author (1 copy for free). If you don't like this solution, mail me. -------------------------------------------------------------------------------- // Nasledujici dokumentace je JEN v anglictine, protoze predpokladam u programatoru // znalost anglictiny. Pokud popisu nerozumite, napiste dotazy na e-mail. 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 connection. Non-zero result means error; OnError event also occurs. function GetEntries : Integer; Get available connections Connections are stored in . 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 function DeleteEntry : Integer; Delete from phonebook function RenameEntryTo(S : String) : Integer; Rename to function SetEntryUserName(Value : String) : Integer; Set new username () to function SetEntryPassword(Value : String) : Integer; Set new password () to function RemovePassword : Integer; Remove password from function GetEntryUserName(var Value : String) : Integer; Get username from to function GetEntryPassword(var Value : String) : Integer; Get password from to function StatusString(State: TRasConnState; Error: Integer): String; Get string describing and function StatusStringCZ(State: TRasConnState; Error: Integer): String; Get Czech string describing and function GetIP(HRC : THRasConn) : Integer; Function puts Client and Server IP addresses to ServerIP and ClientIP properties (see bellow) function InitializePerfStats (start, search: boolean): boolean ; Function initializes Performance statistics (opens needed connections) Call this function before or immediately after connect. Start = get values immediately ? (RECOMMENDED TRUE) Search = In Win9X informations are stored in registry. The registry path is is language dependent. If you understand this, put your own path into DUNA_KEY property. Setting search to true means component try to find the right path (selects 1st available). There may be also 2 paths or more. At this moment, I don't know, how to detect, which one is active, so you would set it manually. Available paths are stored in DUNA property after calling SearchDUNA; function SearchDUNA: Boolean; Function puts available paths of DialUpNetworkAdapters into DUNA property function GetPerfStats: Boolean; Function retrieves performance statistics and puts them into BytesXmit,BytesRecv and ConnectionSpeed properties 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/Portuguese) ----------------- Choose your language. Used for events with string messages. property ServerIP : String IP of server property ClientIP : String IP of client (this) computer property DUNA : TStringList List of available DialUpNetwork Adapters (needed for perfstats) property DUNA_Key : String Choosen DUNA to use. Calling InitializePerfStats(...,TRUE) will write to this property 1st available DUNA. Calling InitializePerfStats(...,FALSE) will use this DUNA_KEY.... property BytesXmit : Cardinal GetPerfStats function stores here count of sent bytes from initialization property BytesRecv : Cardinal GetPerfStats function stores here count of received bytes from initialization property ConnectionSpeed : Cardinal GetPerfStats function stores here the connection speed 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. Note: ----- This component should work in Delphi 2.0, but it hasn't been tested. Perhaps, some code changes will be necessary. Don't mail me if you can't get this component working in Delphi 2.0 or lower. P.S. If want some more information about the connection, try to look in MODEMLOG.txt (in WIN95) or (in WIN***) Log filename is stored somewhere in registry....