DataSnap到了Delphi2010有了很大的變化,已經可以完全拋棄DCOM之類的東西了,在以前版本中建立一個DataSnap,需要使用DCOMConnection或者SockConnection來連接到服務器,而在Delphi2010中提供了一個新的連接組件:TDSProviderConnection,可以更方便地來連接服務器.

先來學習一個簡單的DataSnap:

新建一個工程,在Delphi Project中選擇DataSnap Server組,然后選擇其中的DataSnap Server,點擊確定,然后選擇缺省設置即可.系統會生成一個工程框架.其實現在你什么代碼都不用寫,就已經建立好了一個DataSnap的服務器,那么這個服務器可以提供什么呢?它輸出了一個類,這個類只有一個方法:

function EchoString(Value: string): string;

我們來測試一下這個服務器,建立一個普通的VCL From Application,然后在窗體中放入下面控件:

一個TSQLConnection,設置其Driver為DataSnap,并且Connected置為True.因為在本機測試,所以其他參數都不需要更改.(當然,需要先運行剛才建立的服務另,要不然會報告錯誤)

一個TSqlServerMethod,將其SQLConnection屬性設為剛才的SQLConnection,然后在ServerMethodName屬性中可以選擇TServerMethods1.EchoString.這時你選擇Params屬性,會出現兩個參數:Value和ReturnParameter,前者是方法EchoString傳人的參數,后者是EchoString輸出的值.

?

OK,到這里一切都設定好了,我們一句代碼都沒有編寫,太說不過去了,還是放個按鈕,然后在里面寫下這幾句代碼吧:

?

SqlServerMethod1.ParamByName('Value').AsString:='Hello,Garfield?!';
SqlServerMethod1.ExecuteMethod;
ShowMessage(SqlServerMethod1.ParamByName('ReturnParameter').AsString);

?

?

運行一下客戶端,可以看到一個對話框,里面顯示信息:Hello,Garfield?!

?

下次我們看看數據庫怎么來連接.

?

轉載于:https://www.cnblogs.com/GarfieldTom/archive/2010/01/11/1644120.html

總結

以上是生活随笔為你收集整理的Delphi2010 DataSnap 学习(一)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。