社区
网络通信/分布式开发
帖子详情
问一个很简单的问题(送100分啊)
yir
2003-10-16 09:48:14
我用的是delphi7,如何通过网络实现多台计算机之间的数据传送?
...全文
39
4
打赏
收藏
问一个很简单的问题(送100分啊)
我用的是delphi7,如何通过网络实现多台计算机之间的数据传送?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
huojiehai
2003-10-17
打赏
举报
回复
看一下delphi的例子吧
C:\Program Files\Borland\Delphi6\Demos\Indy\TCPStreamClientServer
dickeybird888
2003-10-17
打赏
举报
回复
你如果是初学可以找一本delphi网络编程方面的书籍看看!
(·¥·)
tanqth
2003-10-17
打赏
举报
回复
D7下那有
C:\Program Files\Borland\Delphi6\Demos\Indy\TCPStreamClientServer
例子,只有到indy的网上下。
pankun
2003-10-16
打赏
举报
回复
用网络组件或WINSOCK函数就可以实现了,转篇文章给你参考.
使用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协议),
你可以在你的计算机上从“我的电脑”中运行该应用程序的两个实例。运行后,将一个聊天程序作为服务器监
听,另一个聊天程序作为客户与服务器连接并聊天。局域网中同样可以运行!!!
相关业务
问
题
+系统
问
题
+设计
问
题
整理统计
业务系统及其他相关面试
问
题
整理:线上相关
问
题
排查+高并发系统的限流+高并发秒杀系统设计+负载均衡+
一个
网站有 20 亿 url 存在
一个
黑名单中,这个黑名单要怎么存?若此时随便输入
一个
url,你如何快速判断该 url 是否在这个黑名单中?并且需在给定内存空间(比如:500M)内快速判断出?
运维面试官喜欢
问
的
问
题
你最大的缺点是什么? 行为
问
题
(behavioural question),这类
问
题
目的是看性格是否合适公司文化。主要考察:①你是否真心想做这个工作;②你性格与企业文化是否相符。所有答案都应该围绕这两点组织,即每个经历都应回归到你通过这个经历学到什么该职位所需关键技巧,这些经历为何让你想做这个工作,和该经历体现出你什么样的个人风格。 你最大的缺点是什么: ①避免避重就轻,谈
一个
算不得缺点的缺点,这...
209最新
100
个面试
问
题
大全及答案
209最新
100
个面试
问
题
大全及答案 2019年入学MBA的各高校提前预面试已经如火如荼展开了,在此小编先预祝大家提前拿到预面试优秀资格。为了更好的配合大家做好面试准备工作,小编整理了
100
个经典的MBA面试
问
题
,部
分
问
题
附上了参考回答,供大家借鉴。 面试
问
题
大全及答案(一):
问
题
1:你最大的长处和弱点
分
别是什么这些长处和弱点对你在企业的业绩会有什么样的影响?
分
析:这个...
面试JAVA常被
问
到的
问
题
(持续更新中)
引言 有的面试会被
问
到有没有写博客,这时候我尴尬,不知道怎么回答,所以这篇文章仅仅是把我面试JAVA的遇到的
问
题
记录下来而已,也算是我写博客迈出的第一步,起码,以后被
问
到:有没有写博客?我可以回答,我写过。 (最主要的是以后换工作我不用频繁百度常见面试题了。。。。) ps 1,别把我太当回事,我是个LJ; 2,说得不对的地方请多多包涵,想看更详细的请百度官方文档和其他大佬的文章; 3,如果有被
问
到......
电商面试题
100
问
项目周期? 答:项目周期为3-4个月。 项目团队有多少人,如何
分
配的? 答:项目团队一般由6-10个人组成,4-5个人是java后台的,1-2个是前端,2个产品。 在项目中充当什么样的角色? 答:在项目中的职位是组员或者组长,主要负责开发功能模块,后期配合测试修改bug。 看工作时间与入职的时间,在一家公司入职时间少于1年并且从事开发少于2年很少有机会担任小组领导 项目中遇到的最大的
问
题
是什么? 答:这种
问
题
不要说一般的错误,尽量说业务上的
问
题
。例如:单点登录的时候如何解决多系统之间用户登录信息同步以及用户
网络通信/分布式开发
1,593
社区成员
32,964
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章