社区
Delphi
帖子详情
谁有距域网聊天室方面的资料(有服务器)重谢
ghz2000
2001-06-07 01:10:00
我正在写一个局域网的聊天工具,有文件传输功能。
希望大家帮帮忙
...全文
206
19
打赏
收藏
谁有距域网聊天室方面的资料(有服务器)重谢
我正在写一个局域网的聊天工具,有文件传输功能。 希望大家帮帮忙
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
19 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
11830
2001-06-08
打赏
举报
回复
你看看李维的 <<Delphi5.x分布式多层应用电子商务篇>>,里边有的
ghz2000
2001-06-08
打赏
举报
回复
up
ghz2000
2001-06-08
打赏
举报
回复
怎么,没有什么比较全面的解决方案吗?
关注大家的回答!!!
分还会加的!
ghz2000
2001-06-08
打赏
举报
回复
up
jacksoft
2001-06-07
打赏
举报
回复
to airhorse(编程至尊宝)
中文的?给我一份吧,先谢了 jacksoft@netease.com
ghz2000
2001-06-07
打赏
举报
回复
我想写一个多用户系统,可能会有以下难度:
1.用户状态的判断,在线与否
2.用户可以通过服务器得到一些公共资料(但有权限)
3.用户之间可以直接传递资料文件
ReganCai
2001-06-07
打赏
举报
回复
Delphi,VC都有Chat的Demo,我也写过,没什么东西的
ghz2000
2001-06-07
打赏
举报
回复
11830(其其) Chat\chat.dpr 是单机对单机,我是想要一个有服务器,
像icq那样通过服务器转传信息!
有没有这方面的资料!
c_hk
2001-06-07
打赏
举报
回复
唔.....
c_hk
2001-06-07
打赏
举报
回复
观望
Asus
2001-06-07
打赏
举报
回复
To airhorse(编程至尊宝):
也给我一份吧,Thanks先了
fhoenix@263.net
zhoudut
2001-06-07
打赏
举报
回复
还有去delphi共享联盟主页下载超级猛料。其中也有
zhoudut
2001-06-07
打赏
举报
回复
你们去看http://www.csdn.net/expert/topic/148/148688.shtm有有关socket的介绍。呵呵
我的读书笔记。
11830
2001-06-07
打赏
举报
回复
在你的 delphi安装目录下有一个例子你看看 如 :
D:\Program Files\Borland\Delphi5\Demos\Internet\Chat\chat.dpr
airhorse
2001-06-07
打赏
举报
回复
你最好用底层winsocket来写!:-》,这样,
ghz2000
2001-06-07
打赏
举报
回复
我的是: ghzemail@21cn.com
hellworld
2001-06-07
打赏
举报
回复
to airhorse(编程至尊宝):
能给我一份吗?
3dmax2000@sina.com
airhorse
2001-06-07
打赏
举报
回复
你的Email 我给你,delphi socket的细节资料(中文版)。
sundayboys
2001-06-07
打赏
举报
回复
使用TCP/IP协议实现聊天程序
TCP/IP协议的传输即面向点到点的传输方式!
1.创建应用程序。
选择"NEW"菜单下的"Application"选项,创建一个普通的应用程序。
2.创建所需控件。
首先在控件栏的Win32页中选择ImageList控件和CoolBar控件,再从Win32栏选择ToolBar控件放置到CoolBar
控件上。用鼠标右键单击"ImageList"控件,在弹出的菜单中选择"ImageList Editer..."选项,弹出
"ImageList Editer"对话框,单击"Add..."按钮,选择5幅位图。在对象管理器Object Inspector中将
ToolBar控件的Image属性设为"ImageList1",用鼠标右键单击"ToolBar"控件,选"New Button"选项,
总共创建5个ToolButton,在 对象管理器中将5个ToolButton的ImageIndex属性分别设置为0,1,2,3,4。
此时ImageList控件中的5幅位图将会分别显示在Toolbutton上,将5个ToolButton控件的ShowHint属性全都设
置为"ture",并将它们的Hint属性分别设置为"监听"、"连接"、"断开连接"、"更改你的昵称"和
"退出聊天程序"。
然后在窗体中放置一个Edit控件、Memo控件、StatusBar控件和一个Label控件。将Label控件的Caption属性
设置为"输入框"。
最后,也是最关键的,在控件栏的Internet页中选择SeverSocket控件和ClientSocket控件放置在窗体中,将
SeverSocket控件和ClientSocket控件的Port属性设置为"1100"。SeverSocket控件是基于TCP/IP协议传输
的服务器方的控件,它的主要作用是用来监听其它基于TCP/IP传输计算机的连接请求,并在收到连接请求时
建立连接,进行数据传输,ClientSocket控件是基于TCP/IP传输的客户方的控件,它的主要作用是向监听
TCP/IP传输的服务器发出连接请求,在收到服务器的允许连接的响应后,建立连接,并传输数据,之所以在
窗体中同时创建ServerSocket和ClientSocket控件,是因为应用程序既可作为服务器,又可作为客户端使用。
3.Serversocket和ClientSocket之间的连接
首先设置两个全局变量:
NickName:string;
b_Client:boolean;
其中NickName用于放聊天人的名称,b_Client用于表明应用程序是否作为客户端进行数据传输。
在窗体Form1的Oncreate事件中初始化变量,代码如下:
procedure TForm1.FormCreate(Sender:TObject);
begin
NickName:+="我的昵称";
b_Client:=ture;
end;
双击ToolButton1,编写服务器监听代码如下:
procedure TForm1.Toolbutton1Click(Sender:TObject);
begin
ClientSocket1.close;
ServerSocket1.open;
StatusBar1.SimpleText:='开始监听';
end;
双击ToolButton2,编写客户的申请连接,代码如下:
procedure TForm1.ToolButton2Click(Sender:TObject);
var s:string;
begin
if Clientsocket1.Active then
ClientSocket1.close;
if InputQuery('连接到计算机','要连接的计算机名称或IP地址:',s) then
if Length(s)>0 then
with ClientSocket1 do
begin
Host:=s;
open;
end;
end;
在对象管理器中,双击ClientSocket事件页的OnConnecting事件,编写处理客户等待连接请求,代码
如下:
procedure TForm1.ClientSocket1Connecting(Sender:TObject;Socket:TCustomWinSocket);
begin
StatusBar1.SimpleText:='等待来自'+Socket.RemoteAddress+'的连接允许响应...';
end;
在对象管理器中,双击SeverSocket事件页的OnAccept事件,处理服务器响应连接事件,代码如下:
procedure TForm1.SeverSocket1Accept(Sender:TObject;Socket:TCustomWinSocket);
begin
b_Client:=false;
StatusBar1.SimpleText:='连接到'+Socket.RemoteAddress;
end;
在对象管理器中,双击ClientSocket事件页的OnConnect事件,OnConnect事件在连接成功时被调用,代码如下:
procedure TForm1.ClientSocket1Connect(Sender:TObject;Socket:TCustomWinSocket);
begin
b_Client:=ture;
StatusBar1.SimpleText:='连接成功';
end;
4.ServerSocket和ClientSocket之间的数据传输
聊天的内容是通过Edit控件输入并在敲回车键后显示在Memo控件中,再传输到与之连接的计算机中。
Edit的OnKeyDown事件代码如下:
procedure TForm1.Edit1KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
if Key=VK_Return then
begin
Memo1.Lines.Add(NickName+':'+Edit1.Text0;
if b_Client then
ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.lines.Count-1])
else
ServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[Memo1.lines.Count-1]);
end;
end;
在ServerSocket控件的onread事件中编写服务器接收到数据后的动作,代码如下:
procedure TForm1.ServerSocket1ClientRead(Sender:TObject;Socket:TCustomWinSocket);
begin
Memo1.lines.Add(Socket.ReceiveText);
end;
在ClientSocket控件的onread事件中编写客户端接收到数据后的动作,代码如下:
procedure TForm1.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket);
begin
Memo1.lines.Add(Socket.ReceiveText);
end;
5.断开Serversocket和ClientSocket之间的连接
双击ToolButton3,编写客户端断开的处理过程,代码如下:
procedure TForm1.ToolButton3Click(Sender:TObject);
begin
ClientSocket1.close;
StatusBar1.SimpleText:='断开连接';
end;
编写服务器响应客户端断开的处理过程,代码如下:
procedure TForm1.ServerSocket1ClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);
begin
SeverSocket1.close;
StatusBar1.SimpleText:='断开连接';
end;
6.更改聊天者的昵称
双击Toolbutton4,编写更改昵称代码如下:
procedure TForm1.ToolButton4Click(sender:TObject);
var
s:string;
begin
if InputQuery('更改昵称','你的新昵称',s) then
if Length(s)>0 then
NickName:=s;
end;
7.退出应用程序
双击Toolbutton5,编写退出应用程序代码如下:
procedure TForm1.ToolButton5Click(sender:TObject);
ClientSocket1.close;
ServerSocket1.close;
Form1.close;
end;
8.保存并运行应用程序
最好在网上运行该程序,如果没联网,但你的计算机支持TCP/IP协议(可以通过网络邻居安装TCP/IP协议),
你可以在你的计算机上从"我的电脑"中运行该应用程序的两个实例。运行后,将一个聊天程序作为服务器监
听,另一个聊天程序作为客户与服务器连接并聊天。局域网中同样可以运行!!!
波形图程序 另跪求web在线录音
一个不错的波形图程序 有兴趣的可以看那看 谁有在线录音的web程序 给我联系 必有
重谢
!chysx88717@yeah.net qq:461940382
ENVI汉化包安装步骤
请将问题发邮件至 duhj@esrichina.com.cn,必有
重谢
。谢谢。 由于ENVI自身原因,汉化并不彻底,在一些经典版工具界面将保持英文状态。 注:本工具支持 ENVI 5.3.1/5.4.1/5.5/5.5.1 及更高版本 注:如果使用...
使用JQuery实现的动态编辑表格
本人前端小白,因为项目需求,需要动态编辑表格,但是layui的编辑表格只适合 【有数据】修改功能用,并不适合【无数据】新增的功能...fixed:right 效果,如果能实现这两个显示的功能,请一定要联系我,本人必有
重谢
。
用virtualbox创建linux出现不能为虚拟机创建新任务,新手小白求大佬指教
在百度查阅了很多篇文章总是出现错误,有的让下软件,有的让查日志,有的让调
网
络,各种各样五花八门,却没有一点点用,非常花里胡哨,帮助我在2020年整好这个问题必有
重谢
,我女友非得让我整这个,之后给他朋友装逼...
PCLOG教学软件
教学软件这个winlogo是一个绘图软件,是一个小乌龟,在下面的对话框打上英语指令就能画出相应的平面图形,谁知道哪有下载,一定
重谢
Delphi
5,388
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章