原本程式是 D5 cilent - service  架構   ADOConnection1
要變成可以 Client 可以 run apservice --> dbservice (連到dbservice會連線失敗，因為被檔)
如何用2Tier 的方式執行 apservice (例 在apservice上執行程式ok ，將apservice的 text.exe 建立捷徑到Client 執行 會被檔)

可否提拱大約方向!!

Client 連得到ApService嗎？
===================引 用 chris681016 文 章===================
原本程式是 D5 cilent - service 架構 ADOConnection1
要變成可以 Client 可以 run apservice --> dbservice (連到dbservice會連線失敗，因為被檔)
如何用2Tier 的方式執行 apservice (例 在apservice上執行程式ok ，將apservice的 text.exe 建立捷徑到Client 執行 會被檔)

可否提拱大約方向!!

感謝回應^^
連的到，但dbservice 有鎖ip 所以就無法連線上db，只能client打開程式後就跳出，無法連線db之類的

現在
Client和APService是如何連線的？
===================引 用 chris681016 文 章===================
感謝回應^^
連的到，但dbservice 有鎖ip 所以就無法連線上db，只能client打開程式後就跳出，無法連線db之類的

Client 在檔案總管輸入 「\\jun_ap」打密碼進入了  apserver  後  到程式目錄下 test.exe 點右健新增捷徑到 Client ，然後開啟程式 就會跳出 sql server 不存在或拒絕存取。
如果是 透過 UltraVNC Viewer 進入後 apserver 執行 test.exe 就 OK

1.那還是在你的Client啟動啊…
APService不會是這樣啟動的

2.用VNC是好方法
===================引 用 chris681016 文 章===================
Client 在檔案總管輸入 「\\jun_ap」打密碼進入了 apserver 後 到程式目錄下 test.exe 點右健新增捷徑到 Client ，然後開啟程式 就會跳出 sql server 不存在或拒絕存取。
如果是 透過 UltraVNC Viewer 進入後 apserver 執行 test.exe 就 OK

2只是在測式，客戶不是要用2 哈哈
1.有辨法改寫什麼RUN嗎，如果不改太多的情形下^^

1.花錢少時間少改
軟體 VPN：Devart SecureBridge
硬體 VPN：問網管或老闆

2.傷身花時間大改
自己刻中間層
看是DataSnap或DIY Socket Server都是可以的

最快的方式就是不要鎖IP，連改都不用改
===================引 用 chris681016 文 章===================

2只是在測式，客戶不是要用2 哈哈

1.有辨法改寫什麼RUN嗎，如果不改太多的情形下^^

編輯記錄

感謝大大教學回應，2是不可能的哈哈，在思考看看，謝謝喔^^

这种需求，一般来说，是 Client 放到远处，不在 Intranet 里面，也就是不在 LAN 里面，而是需要透过 Internet 来访问 DBServer。

那么，问题来了。如果之前的程式是：Client/ADOConnection --- DBServer，那么，用 VPN 肯定连接是没问题的。问题是，之前的 CODE 是工作在 LAN 里面的，也许有 select * from ATable 这样的情形存在。这在 LAN 里面问题不大。而通过 Internet，因为 Band width 比较低的原因，一次性打开很多数据，速度非常慢，用户会等好久。

如果你的程式，已经考虑到这个问题了，每次打开 DBSERVER 都只取很少量 Data，比如是 select top 100 * from ATable 这样，那就没问题了。

然后，才考虑如何连接的问题，用 VPN 是正解。我还想到一个办法：PortMapping。

DataBase 的访问的原理是： Client ---TCP---》DBServer(on DBServer port)

Delphi 带的 Indy 里面，有一个 PortMapping 的元件。可以用它来写一个【APP SERVER】，简单说，就是它对外的 Port 是你自己定的比如 9876；然后它对内的 PORT 就是你的 DB SERVER 的 PORT。

这里需要做两个 APP SERVER，在 Client 端放一个，让它代表 DB Server，我们称它是 A；在 Server 端放一个，我们称它是 B。假设 DB Server 的 PORT 是 1433(SQL Server default port)。我们自己选用的 Port 是 9876

Client -- TCP --> A:1433 -- TPC --> B:9876 -- TCP --> DBServer:1433;

上述 A 和 B 都可以用 Indy 的元件来搞定。这样就全部是自己写的了，不需要去搞 VPN。

好神奇的技巧，能否更深入的介紹下呢？

===================引 用 pcplayer99 文 章===================
这种需求，一般来说，是 Client 放到远处，不在 Intranet 里面，也就是不在 LAN 里面，而是需要透过 Internet 来访问 DBServer。

那么，问题来了。如果之前的程式是：Client/ADOConnection --- DBServer，那么，用 VPN 肯定连接是没问题的。问题是，之前的 CODE 是工作在 LAN 里面的，也许有 select * from ATable 这样的情形存在。这在 LAN 里面问题不大。而通过 Internet，因为 Band width 比较低的原因，一次性打开很多数据，速度非常慢，用户会等好久。

如果你的程式，已经考虑到这个问题了，每次打开 DBSERVER 都只取很少量 Data，比如是 select top 100 * from ATable 这样，那就没问题了。

然后，才考虑如何连接的问题，用 VPN 是正解。我还想到一个办法：PortMapping。

DataBase 的访问的原理是： Client ---TCP---》DBServer(on DBServer port)

Delphi 带的 Indy 里面，有一个 PortMapping 的元件。可以用它来写一个【APP SERVER】，简单说，就是它对外的 Port 是你自己定的比如 9876；然后它对内的 PORT 就是你的 DB SERVER 的 PORT。

这里需要做两个 APP SERVER，在 Client 端放一个，让它代表 DB Server，我们称它是 A；在 Server 端放一个，我们称它是 B。假设 DB Server 的 PORT 是 1433(SQL Server default port)。我们自己选用的 Port 是 9876

Client -- TCP --> A:1433 -- TPC --> B:9876 -- TCP --> DBServer:1433;

上述 A 和 B 都可以用 Indy 的元件来搞定。这样就全部是自己写的了，不需要去搞 VPN。