DataSnap 問題
ServerMethodsUnit1.pas 的部分內容
unit ServerMethodsUnit1;
interface
uses System.SysUtils, System.Classes, Datasnap.DSServer, Datasnap.DSAuth,
Data.DB, Data.Win.ADODB;
type
TServerMethods1 = class(TDSServerModule)
ADOConnection1: TADOConnection;
procedure DSServerModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
end;
var //系統不會自動添加這條陳述句(是我手工添加的)
ServerMethods1: TServerMethods1; //系統不會自動添加這條陳述句(是我手工添加的)
implementation
{$R *.dfm}
TServerMethods2 = class(TDSServerModule)
TServerMethods2(是第二個資料模塊)
在第1個資料模塊(TServerMethods1 )添加一個ADOConnection1
在第2個資料模塊(TServerMethods2 )添加一個ADOQuery1
在第二個資料模塊里,ADOQuery1的Connection屬性里下拉可以,選到 ServerMethods1.ADOConnection1
[color=#FF00FF]問題關鍵,在第二個資料模塊里用代碼訪問不到第一個資料模塊的ADOConnection1;
例如: adoquery1.Connection := ServerMethods1.ADOConnection1; //訪問不到
[/color]
如果在資料模塊1里添加下面兩行(上面提到的)
var //系統不會自動添加這條陳述句(是我手工添加的)
ServerMethods1: TServerMethods1; //系統不會自動添加這條陳述句(是我手工添加的)
就可以訪問了
我想問,可以這樣做嗎,大家是怎么做的。
uj5u.com熱心網友回復:
按說系統會自動加,如系統沒加,手工加上也是可以的。轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/116033.html
標籤:網絡通信/分布式開發
上一篇:大家幫我看看這個如何轉換的
下一篇:xe3下的rsa演算法
