將遠程控制應用於教學中，已成爲目前計算機化教學的重要手段。一定有很多的網蟲想了解這種網絡教學方式的編程原理吧。在此我們就以一個簡單的遠程控制程序作爲示例，說明這種網絡編程的基本原理。本程序以Delphi編程爲例。
其實該程序的工作機制很簡單，受控方運行一個程序，用於偵聽端口並接收數據包，而主控方通過端口給受控方的端口發送數據包。根據這個原理，我們編寫兩個程序，一個是控制方的，而另一個是受控方的，把這兩個程序運行在兩臺不同的機器上，受控機等待控制機發送過來的數據然後執行相應的操作(如本例中的重啓)。
Delphi中有兩類控件可以實現上面的目的。一類是控制方使用ClientSocket，受控方使用ServerSocket(均在Internet頁)，另一類是雙方都使用NMUDP(在FastNet頁)。我們知道網絡傳輸都是不可靠的，也就是說傳輸的數據有可能丟失，而這兩類控件的區別是前者使用TCP(Transfer Control Protocol，傳輸控制協議)。TCP協議是面向連接,每次雙方建立連接(或斷開)時需經過三次握手,較爲耗時，但數據傳輸可靠；而後者使用UDP(User Datagram Protocol，用戶報文協議)，它是面向無連接的，發出數據不需對方確認，這樣速度比TCP快，但數據有可能丟失，因此它不可靠。由於控制所需傳送的數據量不大，而且需要較高的可靠性，因此一般使用前者，程序說明如下：
第一步，開始控制方程序，在其中加入clientsocket控件，取名control，設置host屬性爲受控機ip地址，port屬性爲1234(端口可以隨便設置，但不要與一些默認端口重複，如80等)。
第二步，在FormCreate事件中加入代碼control.open; //打開與受控機的通信
第三步，加入個Button，設置caption爲“重新啓動”，並在ButtonClick事件中加入代碼control.Socket.SendText('reboot')；//通知受控機重新啓動。這樣就完成了控制方的工作了。
第四步，開始受控方的程序，在其中加入serversocket控件，取名undercontrol,設置port屬性爲1234(與控制方的端口一致)，active屬性爲true；
第五步，在undercontrol的OnclientRead事件中加入代碼if Socket.ReceiveText='reboot' then
ExitWindowsEx(EWX_REBOOT,2); //重啓的API函數
這樣就完成了代碼的工作，然後編譯這兩個程序生成兩個.exe文件分別放在兩臺機器上運行(記得先運行Win98下的受控機程序)，在控制機按下“重新啓動”的Button(按鈕)，受控機就重新啓動了。遠程控制機器重啓成功實現。
貼子來源Diy部落(http://bbs.diybl.com) 詳細出處參考：http://bbs.diybl.com/dview42t1491.html
（可用socket 和 indy實現）