但是很快我又發現，上面的代碼在本機雖然能夠正常執行，分別位於2台電腦時會發生無法接收服務器響應的現象。究其原因可能是客戶程序用戶界面“凍結”的緣故。於是在服務

事實上，上述客戶端的TTimer控件是完全沒有必要使用的。當我們對IdUDPClient使用Broadcast方法後，一旦與服務端通訊成功，IdUDPClIE

關於網絡中查找服務器主機的問題，似乎可以使用UDP廣播的方式查找。先看代碼：1.unit ClIEntUnit;2.3.interface4.5.uses6.

然後是客戶端：代碼如下：1.unit Unit1;2.3.interface4.5.uses6. Windows, Messages, SysUtils,

//設置路徑畫刷的中心點var　 g: TGPGraphics;　 path: TGPGraphicsPath;　 pb: TGPPathGradIEntBr

//設置多種周邊顏色var　 g: TGPGraphics;　 path: TGPGraphicsPath;　 pb: TGPPathGradIEntBrus

//橫向翻轉var　g: TGPGraphics;　bit1,bit2: TGPBitmap;　row,column,width,height: Intege

//透明度漸變var　g: TGPGraphics;　bit1,bit2: TGPBitmap;　row,column,width,height: Integ

//區域聯合var　g : TGPGraphics;　sb: TGPSolidBrush;　region: TGPRegion;begin　g := TGPG

//添加顏色變換uses GDIPAPI, GDIPOBJ;procedure TForm1.FormPaint(Sender: TObject);var　g

用了Delphi 2010 的新的datasnap後，我們可以對 scktsrv.exe 說再見了，因為現 在，已經不在需要他了，如果我們需要足夠的簡單，我可

如圖，我們有兩個可選項datasnap server :選擇這一項，我們得到的將是一 個獨立EXE的三層服務器應用程序(TCP及HTTP兩種模式)datasn

服務類別（you may select from one or more communication protocols）:可選TCP，HTTP，或者TCP+

我們再看看生成的單元內容是什麼unit ServerMethodsUnit1;1　unit　ServerMethodsUnit1;　 2　 3　　interf

我們在本文章中，並不做深入的介紹，因為如果要把相關的介紹完，估計已經是一本 書的一個大章節了，而且對一些細節我並不了解，誤導了朋友們不是好事，同時再次提 醒各

設置完成了，現在我們記下DSTCPServerTransport1的prot值ServerMethodsUnit1中的： TServerMethods1 =

然後編譯成EXE獨立於IDE運行吧如圖：我們的簡單的三層終於完成了，你有寫代碼了嗎？試試把你的程序COPY到U盤上，放到任意電腦上運行呢？提示少DLL文件？哪

窗體文件:object Form1: TForm1　Left = 0　Top = 0　Caption = Form1　ClIEntHeight = 137　C

窗體文件:object Form1: TForm1　Left = 0　Top = 0　Caption = Form1　ClIEntHeight = 137　C