我做的简单TCP/IP的三层例子，中间层能不能传递ScktSrvr的一些信息给客户端?(15分)

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #1

我做的简单TCP/IP的三层例子，中间层能不能传递ScktSrvr的一些信息给客户端
中介层用了DataSetProvider1，ADOConnection1，ADOQuery1,能不能把ADOConnection1.ConnectionString传给客户端？还有ScktSrvr的一些联接信息也能不能传到客户端？
我想主程式登陆就不用三层了，把ADOConnection1.ConnectionString传到共用数据模板，就用二层了

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-12

• #2

还是三层的好, 当然可以 发送了.

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-15

• #3

楼上的朋友能不能给说详细点呢，感谢

 

H

hzjworkhard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-17

• #4

服务端建立一个TRemoteDataModule,然后在view菜单下面的type library里面定义一个过程或方法，客户端通过SocketConnection1.AppServer.方法 调用

 

X

xbbtzhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-18

• #5

楼上的朋友 type library里面定义一个过程或方法，类型选 什么类型的？

 

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;