实现异地远程数据库互相访问并连接

TCP AdoServer/Client ver.2.0.1 (Nov, 25 2010) ============================== TCP AdoServer/Client is a multi-tier tool to design a a thin client application that connects to an application server. It is built using Indy components and ADO. TCP AdoServer/Client is a simple and complete solution to develop and implement a multi-tier applications. Component History ----------------- ver.1.0.1 (Dec, 19 2005) Originally written by Allan Bandanes (allan.bandanes@gmail.com) ver.2.0.1 (Nov, 25 2010) Enhancement and bug fixes by Maki Yokoze (makiyokoze@gmail.com) Terms and Conditions -------------------- You may use the software either personal or commercial purposes provided that you will acknowledge the author of the software by sending a mail that you are using the components. You may modify, add or experiment additional features into it and of course informing the author. The author is not liable for any cause or damage may cause in your system by using it. Use it at your own risk!!! ========================== How to Install -------------- 1. Extract the .zip file into your specified folder 2. Open WebAdoPack.dpk from your Delphi application 3. Click Install, this will now install two components. The TCPAdoServer and TCPAdoClient component. Demo Program ------------ The demo program is located at ..\Test Folder. It has two applications the ServerTest.dpr and ClientTest.dpr. ServerTest acts as as Application Server that connects diredtly to the Test.mdb which is a Access database file. ClientTest.dpr is the thin client that connects to the ServerTest. To Start the server, you must modify the connectionstring of the AdoConnection1 on the form to the location where you had extracted the .zip file. You must look for the Test.mdp. Make sure that you set the Connected Property to true. Set the Port property to any number available in your port Default is 55. While running just press the start button to start the application server. For the client simply set the Host property of the TCPAdoClient using the IP of the server eq. 192.168.10.2 and the Port Property to the Port used by the Server. Run it and click Open to see results from the grid. Available Client Methods ------------------------ TTCPAdoClient.Open(Value : String); * Use this method to use simple select statements from the database. eq: TCPAdoClient1.Open('select * from Person'); TTCPAdoClient.ExecSQL(Value : String); * Use this method for Updating the database. eq: TCPAdoClient1.ExecSQL('Delete From Person where ID = 1'); TTCPAdoClient.ExecProc(Value : String); * Use this method for Executing Stored Procedure from the database eq: TCAdoClient1.ProcSql('Ten Most Outstanding Sales;1');