Delphi4的Winsocket編程

2019-11-18 18:49:12

字體：大中小

供稿：網(wǎng)友

也許你曾經(jīng)嘆服過(guò)微軟公司的IE瀏覽器等網(wǎng)絡(luò)應(yīng)用軟件功能之強(qiáng)大,技術(shù)之先進(jìn)，也許你目前還沒(méi)有能力開(kāi)發(fā)這樣的一個(gè)復(fù)雜的大型系統(tǒng)，不過(guò)不用著急,這里可以給你一個(gè)練習(xí)的機(jī)會(huì)，就是學(xué)會(huì)用Delphi的Winsocket來(lái)編寫基于TCP/ip的應(yīng)用程序，這里假設(shè)你已經(jīng)對(duì)Delphi開(kāi)發(fā)工具已經(jīng)初步熟悉了。

　　我們可以想象，如果從最原始開(kāi)始來(lái)編寫一段實(shí)現(xiàn)與遠(yuǎn)程計(jì)算機(jī)通信的程序，則必須對(duì)相關(guān)的網(wǎng)絡(luò)協(xié)議、系統(tǒng)的底層知識(shí)以及網(wǎng)絡(luò)軟硬件技術(shù)有一個(gè)全面的熟悉和掌握，然而這在短時(shí)間內(nèi)對(duì)大多數(shù)人來(lái)講，都不是一件容易的事。

　　幸運(yùn)的是Delphi的網(wǎng)絡(luò)組件庫(kù)中為我們提供了關(guān)于實(shí)現(xiàn)網(wǎng)絡(luò)通信的組件，它們封裝了復(fù)雜的具體實(shí)現(xiàn)的細(xì)節(jié)。其中ClientSocket和ServerSocket組件使我們能夠很方便地編寫出自己的網(wǎng)絡(luò)通信和資源共享程序。

　　Delphi 4.0中編寫Winsocket程序的步驟分為：

　　1）Winsocket組件屬性設(shè)置；

　　2）建立與遠(yuǎn)程計(jì)算機(jī)的連接；

　　3）計(jì)算機(jī)間的數(shù)據(jù)傳輸；

　　下面具體就這三個(gè)步驟做詳細(xì)說(shuō)明。

　　一．Winsocket屬性的設(shè)置

　　Delphi 4.0中將Winsocket細(xì)分為兩種組件：ClientSocket和ServerSocket。它們分別作為客戶端和服務(wù)器端的組件。即在客戶端程序中采用ClientSocket組件，而在服務(wù)器端則采用ServerSocket組件。通過(guò)這兩種組件之間的通信，再加上輔助的應(yīng)用程序代碼，就可以實(shí)現(xiàn)一個(gè)簡(jiǎn)單的通信程序。當(dāng)然在客戶端程序中再引入ServerSocket的話，那么客戶端程序就可以充當(dāng)服務(wù)器了，可以對(duì)其他的客戶端程序的請(qǐng)求進(jìn)行響應(yīng)。

　　如果正在編寫服務(wù)器端程序，就必須設(shè)置ServerSocket組件的Port屬性。之所以要設(shè)置此參數(shù)，是因?yàn)樵谕慌_(tái)計(jì)算機(jī)上可能運(yùn)行著多個(gè)服務(wù)器程序，而它們可能總在不停地接受來(lái)自于遠(yuǎn)程客戶端程序的連接請(qǐng)求。如果你正試圖發(fā)送一份電子郵件，而系統(tǒng)卻將你的請(qǐng)求連接到了另外一個(gè)服務(wù)器程序上了，則你的郵件就肯定無(wú)法正常發(fā)送出去了。所以必須給服務(wù)器程序上的ServerSocket組件設(shè)置一個(gè)合適的端口號(hào)Port。也可以設(shè)置Service屬性，它指示了ServerSocket所提供的服務(wù)類型，比如：FTP、HTTP等等。然后設(shè)置Active屬性為True。

　　如果正在編寫客戶端程序，則設(shè)置ClientServer組件的屬性就多一些。Port屬性應(yīng)設(shè)置成和服務(wù)器端的Port屬性值一致。另外Host的屬性必須正確設(shè)置，它是一個(gè)只讀屬性，在設(shè)計(jì)時(shí)不可用。它指示了客戶程序所要連接的遠(yuǎn)程服務(wù)器的主機(jī)名。也可以設(shè)置Address屬性，也就是遠(yuǎn)程主機(jī)的IP地址。如果這兩個(gè)屬性都設(shè)置了的話，那么系統(tǒng)將采用Host屬性，而Address屬性設(shè)置的IP地址就變成無(wú)效了。

　　二．建立與遠(yuǎn)程計(jì)算機(jī)的連接

　　要在遠(yuǎn)程計(jì)算機(jī)系統(tǒng)之間進(jìn)行數(shù)據(jù)傳輸，首先必須在通信的兩臺(tái)主機(jī)之間建立連接。

　　服務(wù)器端的ServerSocket組件調(diào)用Open方法初始化Socket連接，同時(shí)也就設(shè)置了Active屬性為True，將ServerSocket組件設(shè)置成偵聽(tīng)模式，隨時(shí)偵測(cè)是否有連接請(qǐng)求。

　　如果服務(wù)器接受了客戶程序的連接請(qǐng)求，則觸發(fā)OnAccept事件，如下代碼就是處理接受連接后服務(wù)器程序所要做的工作。

　　PRocedure Myform..ServerSocketAccept(Sender: TObject，Socket: TCustomWinSocket);

　　begin

　　IsServer := True;

　　end;

　　在客戶端程序中，ClientSocket組件則設(shè)置Port、Host等必須的屬性，然后設(shè)置Active屬性為True，提出連接請(qǐng)求。

　　三．計(jì)算機(jī)之間的數(shù)據(jù)傳輸

　　一旦服務(wù)器端接受了客戶機(jī)方面的連接請(qǐng)求，客戶機(jī)就可以發(fā)送數(shù)據(jù)。這時(shí)，在客戶機(jī)和服務(wù)器之間就擁有了一個(gè)Socket，通過(guò)此Socket雙方實(shí)現(xiàn)通信。所以Socket屬性很重要，它又擁有很多的方法，用其中的幾個(gè)簡(jiǎn)單的方法，就可以實(shí)現(xiàn)數(shù)據(jù)的發(fā)送和接收。

　　客戶機(jī)端用如下形式：ClientSocket1.socket.sendtext('string you want to send');

　　在服務(wù)器端采用如下形式：ServerSocket1.socket.recievetext( str: string);此函數(shù)返回接受到的字符串的長(zhǎng)度，將字符串存儲(chǔ)在變量str中。

　　上述是數(shù)據(jù)傳輸?shù)淖詈?jiǎn)單的例子，你還可以采用Socket屬性所提供的其他方法來(lái)實(shí)現(xiàn)復(fù)雜的數(shù)據(jù)傳輸。

　　雖然Delphi 4.0中使用Winsocket組件十分方便，但是要真正熟練運(yùn)用它來(lái)實(shí)現(xiàn)網(wǎng)絡(luò)應(yīng)用程序的開(kāi)發(fā)，則必須仔細(xì)閱讀關(guān)于它的幫助文件和示例程序。在不斷的學(xué)習(xí)中比較這種方法的優(yōu)點(diǎn)，掌握其編程特點(diǎn)，進(jìn)而掌握Delphi中所提供的其它網(wǎng)絡(luò)組件，例如：NMPOP3、NMUDP、NMFTP等的編程技巧。到那時(shí)，你就會(huì)有能力參與真正意義上的網(wǎng)絡(luò)應(yīng)用程序的開(kāi)發(fā)，而不是停留在拿來(lái)別人的網(wǎng)絡(luò)應(yīng)用軟件，設(shè)置一番、會(huì)熟練操作的水平上。

上一篇：用Delphi編寫CGI程序（一）

下一篇：在DELPHI程序中使用ADO對(duì)象存取ODBC數(shù)據(jù)庫(kù)

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛(ài)...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注