主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

问题 找到类似的分支


xelax   (2002-07-17 14:56) [0]

基于套接字的本地网络上的聊天程序。
客户端通过自动运行加载。 如何服务器跟踪客户端
(有效或无效)在紧急终止重置或电源客户端程序的情况下



Skier   (2002-07-17 15:22) [1]

> xelax
经过一段时间后需要(TTimer)
向每个客户发送一条消息,例如“你在这儿,儿子吗?”,
每次他都回答,“我在这里爸爸。”
如果客户端没有响应这样的服务器消息,那么就用它
没有连接(?)。

否则,显然没什么......



Eugene Lachinov   (2002-07-17 15:27) [2]

也许有帮助

类型
TTcpKeepAlive =记录
onoff:DWord;
keepalivetime:DWord;
keepaliveinterval:DWord;
结束;

常量
SIO_KEEPALIVE_VALS = $ 80000000或$ 18000000或$ 00000004;

程序TPowersock.SetKeepAlive(dwTime,dwInterval:DWord);
VAR
TcpKeepAlive:TTcpKeepAlive;
dwReturned:DWord;
开始
TcpKeepAlive.onoff:= 1;
TcpKeepAlive.keepalivetime:= dwTime;
TcpKeepAlive.keepaliveinterval:= dwInterval;
WSAIoctl(ThisSocket,SIO_KEEPALIVE_VALS,@ TcpKeepAlive,
sizeof(TcpKeepAlive),nil,0,dwReturned,nil,nil);
结束;



c0pYc@t   (2002-07-17 15:32) [3]

尝试执行发送消息的操作。
s:=“你还活着”;
for i:= 0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections [i] .SendText(s);
客户收到s =“你还活着”;
s:=“是的,仍然活着”;
Socket.SendText(s);



Builder   (2002-07-17 21:41) [4]

相反可能 - 正如ICQ所做的那样
客户端向服务器发送消息 - 我还活着!
服务器抓住它并注意到 - 哦,古怪的活着。

恕我直言不是服务器追逐客户的问题



TTCustomDelphiMaster   (2002-07-17 22:17) [5]


> Builder©(17.07.02 21:41)

如果紧急终止重置或电源客户端程序,服务器甚至不会注意到客户端已经死亡。 他只会在他试图联系“死”的客户时才会注意到,然后他会出现错误,并且与“死”客户相关的连接将需要关闭自己。



Builder   (2002-07-18 10:02) [6]

2 TTCustomDelphiMaster

是的,那又怎样?
在ICQ中,从未注意到您正在向在线人员发送消息,但是一旦您发送给他,他就会离线?
这一切都取决于调查的时间



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上









内存:0.57 MB
时间:0.024 c
1-95299
学生
2002-07-16 16:13
2002.07.29
定义构造函数地址


7-95587
普什卡列夫帕维尔
2002-04-30 16:37
2002.07.29
如何确定主板,声音和背心


3-95180
Fissher
2002-07-04 14:04
2002.07.29
创建Excel报告


1-95434
ZEE
2002-07-16 02:47
2002.07.29
XP SelectDirectory


14-95544
阿纳托利shkodin
2002-07-02 22:01
2002.07.29
Анкета





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский