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

  • 主题发起人 主题发起人 蔓草
  • 开始时间 开始时间
蔓

蔓草

Unregistered / Unconfirmed
GUEST, unregistred user!
<font color="red"><strong>小妹妹的提问，三层结构的问题，请各位哥哥帮忙？？</strong></font></marquee> (300分)<br />在三层结构中， 如何读出连接到服务器的客户的名称，在客户断开连接的
时候又等自动的去掉呢？怎么编个函数能发信息比如文本，数字，图片等
给所有的连接的客户断程序呢？
请各位哥哥帮忙？？？我的QQ号码是67184676，请指教！！！
 
我觉得你如果要给所有的客户端发信息，可能要用基于套接字通信了。
 
听！！！！听！
 
不会，对不起。
 
在服务器端写函数，李维的那本讲三层架构的书中有一个简单的例子，可以模仿。
 
哪个例子？？？？？
 
建立一个临时表，有用户登陆的时候就记录信息。
 
这个问题应该不是很难啊
 
问题：在三层结构中， 如何读出连接到服务器的客户的名称，在客户断开连接的
时候又等自动的去掉呢？
答：在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即可
第二个问题我也想知道！
 
使用UDP也许更好一点
 
建立一个临时表，有用户登陆的时候就记录信息。
 
你们上当了。这小丫头说的是聊天程序
 
看MIDAS DEMO你就有答案
全套原码 全程转播
 
很简单，使用CORBA的客户端回调取客户信息就可以了。但DELPHI附带的VisiBroker不行，
暂时不支持回调。
折中的办法是为应用程序服务在增加一个客户注册方法，每当客户连接时就将自己的信息
发送过去。本人就是这样做的。
 
使用TServerSocket控件中的OnClientConnect方法获得Socket.RemoteAddress，
并保存在数据库中。当客户端下线后将产生OnClientDisconnect事件再利用此
事件完成你需要的工作。
 
我的天呀，这都是什么东西呀！！
 
来自：房客, 时间：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;

 
这么简单的问题也不明白？
可以去我的网页上下载一个看看就明白了。http://huchunguo.at.china.com
thh
 
您必须登录或注册才可回复。

Similar threads

L
我用SocketConnection连接三层结构，却只有20个可户端能访问服务器？(200分)
回复
8
查看
215
lanjian
L
H
三层结构更新数据问题?(100分)
回复
12
查看
272
82625741
8
A
三层结构的简单问题？(300分)
回复
2
查看
157
ADV
A
微
愁死我了，大哥们救救小弟！！！关于Delphi中实现Mysql事务处理的问题！ (100分)
回复
11
查看
187
微湖水生
微
L
（200分）SocketConnection连接三层结构，在WIN98下出错？(200分)
回复
12
查看
283
yeath
Y
后退
顶部