真的难过，问了这么久，没有人真真的回答我！！！！！！(20分)

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-17

• #1

真的难过，问了这么久，没有人真真的回答我！！！！！！
在三层(Sckt)中在想把应用务服器上的ADOCon.ConnectionString值传过客务端，我在
应用务服器view>Type Library中新增加property,然后就这样：
procedure TDBMLINK.Set_getconn(var conn: OleVariant);
var
adoconn:widestring;
begin
adoconn:=ADOCon.ConnectionString;
end;
不知客端怎样使用adoconn?

 

G

goostudio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-17

• #2

看不懂了。在没连接之前要传连接字符串，逻辑不对吧。
一般的做法是：
将服务器名或IP地址写到配置文件中，客户端启动时检查配置文件中的相应值，然后生成数据库连接串进行连接。

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-17

• #3

我的想法是这样的，启动程式用三层，把SA密码就放到程式了，然后把应用层的ADOCon.ConnectionString传两层数据模板，其它程式就不用三层的了，

 

H

hzjworkhard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-17

• #4

可以通过调用SocketConnection1.AppServer.Set_getconn 调用

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #5

SocketConn.AppServer.Set_getconn(conn) //Undeclared identifier: 'conn'
我怎样把它付给客户端ConnectionString？

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #6

APP应用SERVER:
procedure TDBMLINK.conn(var adoconn: OleVariant);
//这的类型不知是不是这样哟
begin
adoconn:=ADOCon.ConnectionString;
end;
客户端：
var
conn:widestring;
SocketConn.AppServer.conn(conn);
DbModule.ADOConn.ConnectionString:=conn;//这里出错了

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #7

问题已解决:
应用层：
function TDBMLINK.Get_SessionName: WideString;
begin
Result:=ADOCon.ConnectionString;
end;
客户端：
ADOConn.ConnectionString:=SocketConn.AppServer.SessionName;