<font color="red"><strong>小妹妹的提问，三层结构的问题，请各位哥哥帮忙？？</strong>&lt

蔓

蔓草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #1

<font color="red"><strong>小妹妹的提问，三层结构的问题，请各位哥哥帮忙？？</strong></font></marquee> (300分)<br />在三层结构中， 如何读出连接到服务器的客户的名称，在客户断开连接的
时候又等自动的去掉呢？怎么编个函数能发信息比如文本，数字，图片等
给所有的连接的客户断程序呢？
请各位哥哥帮忙？？？我的QQ号码是67184676，请指教！！！

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #2

我觉得你如果要给所有的客户端发信息，可能要用基于套接字通信了。

 

S

sluger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #3

听！！！！听！

 

Z

zhangfeng1001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #4

不会，对不起。

 

蔓

蔓草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #5

：（

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #6

在服务器端写函数，李维的那本讲三层架构的书中有一个简单的例子，可以模仿。

 

蔓

蔓草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #7

哪个例子？？？？？

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #8

建立一个临时表，有用户登陆的时候就记录信息。

 

A

am2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #9

这个问题应该不是很难啊

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #10

问题：在三层结构中， 如何读出连接到服务器的客户的名称，在客户断开连接的
时候又等自动的去掉呢？
答：在database中的afterconnect事件中通过临时表写代码，下面代码中
SQL Server7/2000中通过：
procedure TDataModuleNew.Database1AfterConnect(Sender: TObject);
var
sSQL: string;
begin
QueryLoginName.SQL.clear;
sSQL:='create table #MyLoginName (name char(16) NULL)';
QueryLoginName.sql.Add(sSQL);
QueryLoginName.ExecSQL;
QueryLoginName.SQL.clear;
sSQL:='delete from #MyLoginName';
QueryLoginName.sql.Add(sSQL);
QueryLoginName.ExecSQL;
QueryLoginName.SQL.clear;
// sSQL:='insert into #MyLoginName select suser_name()';
//SQL Server7 可用
sSQL:='insert into #MyLoginName select SYSTEM_USER';
QueryLoginName.sql.Add(sSQL);
QueryLoginName.execsql;
QueryLoginName.SQL.clear;
sSQL:='select name from #MyLoginName';
QueryLoginName.sql.Add(sSQL);
QueryLoginName.Open;
CreateFifoTempTable;
//创建Fifo临时表
end;

再用个dblabel来访问 QueryLoginName即可
第二个问题我也想知道！

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #11

使用UDP也许更好一点

 

泡

泡泡龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #12

建立一个临时表，有用户登陆的时候就记录信息。

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #13

你们上当了。这小丫头说的是聊天程序

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #14

看MIDAS DEMO你就有答案
全套原码 全程转播

 

S

sharejoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #15

很简单，使用CORBA的客户端回调取客户信息就可以了。但DELPHI附带的VisiBroker不行，
暂时不支持回调。
折中的办法是为应用程序服务在增加一个客户注册方法，每当客户连接时就将自己的信息
发送过去。本人就是这样做的。

 

Y

ysz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #16

使用TServerSocket控件中的OnClientConnect方法获得Socket.RemoteAddress，
并保存在数据库中。当客户端下线后将产生OnClientDisconnect事件再利用此
事件完成你需要的工作。

 

R

rax

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-16

• #17

!MFC

 

蔓

蔓草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-16

• #18

我的天呀，这都是什么东西呀！！

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #19

来自：房客, 时间：01-4-17 2:41:55, ID：506403
procedure Tresserver.RemoteDataModuleCreate(Sender: TObject);
begin
MainForm.UpdateClientCount(1);//加一个访问数
{可以把用户名放到数据库或。。。}
end;

procedure Tresserver.RemoteDataModuleDestroy(Sender: TObject);
begin
MainForm.UpdateClientCount(-1);//减一个访问数
{可以把用户名从在线数据库中删除或。。。}
end;

 

H

huchunguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #20

这么简单的问题也不明白？
可以去我的网页上下载一个看看就明白了。http://huchunguo.at.china.com
thh