將遠(yuǎn)程控制應(yīng)用于教學(xué)中，已成為目前計(jì)算機(jī)化教學(xué)的重要手段。一定有很多的網(wǎng)蟲想了解這種網(wǎng)絡(luò)教學(xué)方式的編程原理吧？在此我們就以一個(gè)簡(jiǎn)單的遠(yuǎn)程控制程序作為示例，說(shuō)明這種網(wǎng)絡(luò)編程的基本原理。本程序以Delphi編程為例。

   該程序的工作機(jī)制很簡(jiǎn)單，受控方運(yùn)行一個(gè)程序，用于偵聽端口并接收數(shù)據(jù)包，而主控方通過(guò)端口給受控方的端口發(fā)送數(shù)據(jù)包。根據(jù)這個(gè)原理，我們編寫兩個(gè)程序，一個(gè)是控制方的，而另一個(gè)是受控方的，把這兩個(gè)程序運(yùn)行在兩臺(tái)不同的機(jī)器上，受控機(jī)等待控制機(jī)發(fā)送過(guò)來(lái)的數(shù)據(jù)然后執(zhí)行相應(yīng)的操作（如本例中的重啟）。

   Delphi中有兩類控件可以實(shí)現(xiàn)上面的目的。一類是控制方使用ClientSocket，受控方使用ServerSocket（均在Internet頁(yè)），另一類是雙方都使用NMUDP（在FastNet頁(yè)）。我們知道網(wǎng)絡(luò)傳輸都是不可靠的，也就是說(shuō)傳輸?shù)臄?shù)據(jù)有可能丟失，而這兩類控件的區(qū)別是前者使用TCP（Transfer Control Protocol，傳輸控制協(xié)議）。TCP協(xié)議是面向連接，每次雙方建立連接（或斷開）時(shí)需經(jīng)過(guò)三次握手，較為耗時(shí)，但數(shù)據(jù)傳輸可靠；而后者使用UDP（User Datagram Protocol，用戶報(bào)文協(xié)議），它是面向無(wú)連接的，發(fā)出數(shù)據(jù)不需對(duì)方確認(rèn)，這樣速度比TCP快，但數(shù)據(jù)有可能丟失，因此它不可靠。由于控制所需傳送的數(shù)據(jù)量不大，而且需要較高的可靠性，因此一般使用前者，程序說(shuō)明如下：

   第一步，開始控制方程序，在其中加入clientsocket控件，取名control，設(shè)置host屬性為受控機(jī)IP地址，port屬性為1234（端口可以隨便設(shè)置，但不要與一些默認(rèn)端口重復(fù)，如80等）。

   第二步，在FormCreate事件中加入代碼control.open； //打開與受控機(jī)的通信。

   第三步，加入個(gè)Button，設(shè)置caption為“重新啟動(dòng)”，并在ButtonClick事件中加入代碼control.Socket.SendText(''reboot'')；//通知受控機(jī)重新啟動(dòng)。這樣就完成了控制方的工作了。

   第四步，開始受控方的程序，在其中加入serversocket控件，取名undercontrol，設(shè)置port屬性為1234（與控制方的端口一致），active屬性為true。

   第五步，在undercontrol的OnclientRead事件中加入代碼ifSocket.ReceiveText=''reboot'' then

   ExitWindowsEx(EWX_REBOOT，2)； //重啟的API函數(shù)

這樣就完成了代碼的工作，然后編譯這兩個(gè)程序生成兩個(gè).exe文件分別放在兩臺(tái)機(jī)器上運(yùn)行（記住先運(yùn)行Win98下的受控機(jī)程序），在控制機(jī)按下“重新啟動(dòng)”的Button（按鈕），受控機(jī)就重新啟動(dòng)了。遠(yuǎn)程控制機(jī)器重啟成功實(shí)現(xiàn)。