EAServer 新手上路----JaguarCts開發者必讀
2024-07-21 02:11:15
供稿：網友
sybase enterprise application server新手上路
sybase easerver的文章也有一些，很少提及到開發中的一些細節問題。本人從事jaguarcts開發不久，遇到了許多細節問題，想來剛從事jaguarcts開發者也會遇上，以做參考，另則心中還存有許多問題，故撰此文，起拋磚引玉之效,望jaguarcts高手能釋疑，深表感謝。
一、系統配置部分：
1、 運行環境：
win2000 server版，sp2補丁，p3850cpu，pb8.0beta+easerver3.6.1。
2、 運行環境安裝注意事項：
在開發環境中jaguarcts服務器不要安裝成nt服務，因為開發中經常修改jaguarcts組件，會出現“object can‘t save”的錯誤，若不是nt服務，用jaguar server(debug)。出現此類錯誤后重啟動j aguar server(debug)即可。若安裝成nt服務可用以下指令刪除：
serverstart servicename -remove (serivename是nt服務中jaguar的服務名)
win2000 server版一定要打補丁，其實sp1也可，否則無法生成代理（proxy）。
3、 啟動jaguar管理器（圖（一））
（a） jaguarmagager菜單tool/connect/ jaguar manager。
（b） 點profile manager可以新增一個profile。
（c） 在user name 中輸入jagadmin（系統）
（d） password默認為空。
（e） host name可以是localhost。（如果你有一定的經驗，它可以改為你的機器名，但在connect成功后要進去修改listener中各端口的主機名。）
4、 啟動安全管理器（圖（二））
（a） jaguarmanager菜單tool/connect ecurity manager。
（b） pin默認密碼是“sybase”
5、 修改jagadmin的密碼
（a） 當3連接成功后，在jaguarmanager中雙擊servers,顯示當前所有服務，選一服務后擊右鍵，在右鍵菜單中選server property打開屬性面板。
（b） 在屬性面板中選security改密碼。
6、 管理連接緩沖
（a） 在jaguarmanager中雙擊servers,在列表中選一個server。
（b） 選install connection caches
（c） 右鍵，在彈出的菜單上選“create and install a new connection cache”
（d） 在彈出的窗口中輸入connection cache名。
（e） 確定后就進入了connection cache配置面板。
（f） 本文以配置sqlserver為例。在general選項卡中配置：server name 為sqlserver的服務名。user name為登錄sqlserver的用戶id，輸入password。在driver選項卡中選odbc，dll or class name 為odbc32.dll。ping一下試試。
（g） 若ping通不過，你就得看一下本文前面（3）提到的hostname你輸入的是什么，若localhost就不行，改為你的機器名。
二、開發應用部分
a、服務端：
1、 新建easerver profile如下圖。server name即計算機名。port number為9000，login name為jagadmin。
2、 在new----target----easerver component開始向導
3、 next-next-應用名、庫文件存放-next-implement new interface--pbobjectname(n_cst_base)easerver component name--easerver profile--pakeage name(組件以包為單位，新增一個包或選一個存在的包)--component type(stadard component)--instance pooling options(supported)--transaction supported option(not supported)--interface options(next)--other options(全選)--project(next)--next--next--finish
4、 打開剛創建的組件n_cst_base，在constructor事件中：
sqlca.dbms = "mss microsoft sql server 6.x"
sqlca.database = "jaguar_2001"
sqlca.servername = "jaguarcts"
sqlca.logid = "sa"
sqlca.autocommit = false
sqlca.dbparm = ""
connect using sqlca ;
if sqlca.sqlcode = -1 then
messagebox(“system”,"數據庫連接失敗!"+sqlca.sqlerrtext)
end if
5、 在n_cst_base的destructor事件中：
disconnect using sqlca ;
6、 在n_cst_basek中新增一個對象函數：
of_user_login(string as_userid,string as_password) return integer
//
integer li_return
select count(*) into :li_return from jag001 where jag0101 = : as_userid and jag0102 = : as_password ;
return li_return
jag001表的字段：jag0101(varchar(20))—jag0102(varchar(20))
7、 生成組件代理對象
new--project----easerver proxy wizard一直next，值得注意的是出現一個treeview時、讓你選一個包（即在3中創建的包），下一步是選一個代理庫（可以選存在的pbl，也可以新增一個pbl），next后是deployment actions,要選三（代理對象名=包名+組件名）
8、 若不出意外，代理對象就生成了。
b、客戶端：
1、 新建一個應用。
2、 新建一個連接對象
new--pbobject--connection object wizard其中值得注意的是connectivity options(requires easerver connection)；pakage name即3中創建的包。connection object名可以默認，也可以自已輸入；resource of connect information可以任選一種。
3、 在新應用的open事件：
n_cst_connect inv_connect_srv //2創建的連接對象聲明
jaguar_2001_n_cst_base inv_login_srv //代理對象聲明
integer li_return
inv_connect_srv = create n_cst_connect
li_return = inv_connect_srv.connecttoserver( )
try //創建代理對象inv_login_srv
li_return =
inv_connect_srv.createinstance(inv_login_srv,"jaguar_2001/n_cst_base")
catch (cts_pbuserexception uae)
li_return = 999
end try
if li_return <> 0 then
messagebox("error info", "errorcode= " + string(inv_connect_srv.errcode) + "~nerrtext= " + inv_connect_srv.errtext)
end if
try // 進行登錄，表中有一行數據（xzh2000,000000）
li_return = inv_login_srv.of_user_logon(‘xzh2000’,’000000’)
catch (cts_pbuserexception uae1)
li_return = 999
end try
if li_return = 1 then
messagebox(“system”,”ok”)
else
messagebox(“system”,”cancel”)
end if
三 說明：
本文是在jaguar manage(debug)啟動情況下通過，如有疑問，請發email：至：[email protected]
