delphi之socket通讯
使用了2个组建:
TServerSocket
TClientSocket
------------------TServerSocket---------------------------
//开启连接
ServerSocket1.Port := 9000;
ServerSocket1.Active := true;
//接收客户端发送的消息。对应事件:OnClientRead
Socket.ReceiveText
//发送消息给客户端。
ServerSocket1.Socket.Connections[0].SendText(Edit1.Text);
----------------------TClientSocket---------------------------------------
//连接服务端
ClientSocket1.Host := '127.0.0.1';
ClientSocket1.Port := 9000;
ClientSocket1.Active := true;
//接受服务端发送的消息 。对应事件:OnRead
str := Socket.ReceiveText
//发送消息给服务端。
ClientSocket1.Socket.SendText(Edit1.Text);
下面为完整代码:
unit Client; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls, ExtCtrls, Sockets; type
TFrmClient = class(TForm)
ClientSocket1: TClientSocket;
Memo1: TMemo;
Panel1: TPanel;
Label2: TLabel;
Edit2: TEdit;
Button2: TButton;
Panel2: TPanel;
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Label3: TLabel;
Edit3: TEdit; procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); private
{ Private declarations }
public
{ Public declarations }
end; var
FrmClient: TFrmClient; implementation {$R *.dfm} procedure TFrmClient.Button2Click(Sender: TObject);
begin
if (ClientSocket1.Active = false) then
begin
ClientSocket1.Host := Edit3.Text;
ClientSocket1.Port := strtoint(Edit2.Text); ClientSocket1.Active := true;
Self.Caption := '连接socket服务器成功!';
end;
end; procedure TFrmClient.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
// Memo1.Lines.Add('服务器说:' + Socket.ReceiveText);
if (Memo1.Lines.Count > 50) then
Memo1.Lines.Clear; Memo1.Lines.Add('服务器:' + ' Ip=' + Socket.RemoteAddress + ' ' + datetimetostr
(now)); // Socket.RemoteHost +
Memo1.Lines.Add(Socket.ReceiveText);
Memo1.Lines.Add('');
end; procedure TFrmClient.Button1Click(Sender: TObject);
begin
// ClientSocket1.Socket.SendText(Edit1.Text);
with ClientSocket1 do
begin
if Edit1.Text <> '' then
begin
Memo1.Lines.Add('客户端:' + ' ' + datetimetostr(now));
Socket.SendText(Edit1.Text);
Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add('');
end;
end;
end; end.
unit server; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ScktComp; type
TFrmMain = class(TForm)
ServerSocket1: TServerSocket;
Memo1: TMemo;
Panel1: TPanel;
Edit2: TEdit;
Label2: TLabel;
Button2: TButton;
Panel2: TPanel;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
CheckBox1: TCheckBox;
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure Button2Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
FrmMain: TFrmMain; implementation {$R *.dfm} procedure TFrmMain.Button1Click(Sender: TObject);
begin
with ServerSocket1 do
begin
if Edit1.Text <> '' then
begin
Memo1.Lines.Add('服务器:' + ' ' + datetimetostr(now));
Socket.Connections[0].SendText(Edit1.Text);
// Socket.Connections[0].RemoteAddress;//IP
Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add('');
end;
end;
end; procedure TFrmMain.Button2Click(Sender: TObject);
begin
if Edit2.Text <> '' then
begin
try
ServerSocket1.Port := strtoint(Edit2.Text);
ServerSocket1.Active := true;
Self.Caption := 'Socket服务器待命中,端口:' + Edit2.Text;
Button2.Enabled := False;
except
Self.Caption := 'Socket服务器没有准备好';
end;
end;
end; procedure TFrmMain.Edit2Change(Sender: TObject);
begin
Button2.Enabled := true;
end; procedure TFrmMain.FormCreate(Sender: TObject);
begin
Self.Caption := 'Socket服务器';
end; procedure TFrmMain.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('-----客户端:' + Socket.RemoteAddress + ' 发消息来连接了--');
end; procedure TFrmMain.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
end; procedure TFrmMain.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
stemp: string;
begin
try
if (Memo1.Lines.Count > 50) then
Memo1.Lines.Clear; Memo1.Lines.Add('客户端:' + ' Ip=' + Socket.RemoteAddress + ' ' +
datetimetostr(now)); // Socket.RemoteHost +
Memo1.Lines.Add(Socket.ReceiveText);
Memo1.Lines.Add(''); if (CheckBox1.Checked = true) then
begin
Button1.Click;
// Socket.SendText(Edit1.Text);
end; except
Memo1.Lines.Add(datetimetostr(now) + ' :程序异常');
end;
end; end.
delphi之socket通讯的更多相关文章
- Delphi 跨平台 Socket 通讯库
Delphi 跨平台 Socket 通讯库 免费开源的Delphi 跨平台 Socket 通讯库. 源码URL:https://github.com/winddriver/Delphi-Cross-S ...
- Delphi跨平台Socket通讯库
盒子中的souledge大侠发布了新的Socket库,以下为原文: 我之前写过一个iocp的框架,放到googlecode上了. 由于当时的delphi版本尚无法跨平台,所以该框架只能运行在Windo ...
- delphi的socket通讯 多个客户端 (转)
ClientSocket组件为客户端组件.它是通信的请求方,也就是说,它是主动地与服务器端建立连接. ServerSocket组件为服务器端组件.它是通信的响应方,也就是说,它的动作是监听以及被动接受 ...
- Delphi的Socket编程步骤(repulish)
转贴自:http://topic.csdn.net/t/20010727/16/212155.html ClientSocket 和ServerSocket几个重要的属性: 1.client和se ...
- 客户端技术的一点思考(数据存储用SQLite, XMPP通讯用Gloox, Web交互用LibCurl, 数据打包用Protocol Buffer, socket通讯用boost asio)
今天看到CSDN上这么一篇< 彻底放弃没落的MFC,对新人的忠告!>, 作为一个一直在Windows上搞客户端开发的C++程序员,几年前也有过类似的隐忧(参见 落伍的感觉), 现在却有一些 ...
- 闲来无事,写个基于TCP协议的Socket通讯Demo
.Net Socket通讯可以使用Socket类,也可以使用 TcpClient. TcpListener 和 UdpClient类.我这里使用的是Socket类,Tcp协议. 程序很简单,一个命令行 ...
- 试解析Tomcat运行原理(一)--- socket通讯
关于这篇文章也确实筹划了很久,今天决定开篇写第一篇,说起tomcat首先很容易联想到IIS,因为我最开始使用的就是.net技术,我第一次使用asp写学生成绩管理系统后,很茫然如何让别人都能看到或者说使 ...
- c# TCP Socket通讯基础
在做网络通讯方面的程序时,必不可少的是Socket通讯. 那么我们需要有一套既定的,简易的通讯流程. 如下: <pre name="code" class="csh ...
- Android笔记:Socket通讯常见问题
经验证的socket通讯问题 1.如果是模拟器和本机PC直接通讯,需要使用本机IP地址 而不是 10.0.2.2 如本机的静态地址为192.168.1.2 则直接使用该地址 2.接收和连接代码不能在 ...
随机推荐
- Vue-cli3 WARNING in asset size limit: The following asset(s) exceed the recommended size limit (244 KiB)
在vue.config.js里 添加 configureWebpack : { performance: { hints:'warning', //入口起点的最大体积 整数类型(以字节为单位) max ...
- springMVC的一些入门配置
1.springMVC的描述 1.1.SpringMVC是Spring框架内置的MVC的实现.SpringMVC就是一个Spring内置的MVC子框架. 1.2.SpringMVC的作用是实现页面和后 ...
- 4G模块在AM335x上的移植
关于4G模块的移植 看到一个很实用的写的比较好的 借鉴一下 参考:https://e2echina.ti.com/question_answer/dsp_arm/sitara_arm/f/25/ ...
- 初次使用github的艰难尝试。
序言 github是全英文的网站,初次使用在没有翻译成中文的情况下很容易做出很多无意义或误操作. 当对本地的文件进行修改后,有时候只是想更新到fork下来的自己的仓库里,看看改得效果如何 .有时候是想 ...
- react大纲
课程大纲: https://miaov.com/index.php/news/newsDetail/nid/263 原文件 Npm 基本使用 切换镜像, 国内的网络访问 npm 服务器可能比较慢, ...
- oracle10g获取Date类型字段无时分秒解决办法!
一般的数据库中,DATE字段仅仅表示日期,不包括日期信息,而Oracle数据库中的DATE数据类型是包括日期.时间的,对于不同的Oracle jdbc驱动版本,对于该问题的处理都有些区别. 最近使用 ...
- mysql_connect(): Headers and client library minor version mismatch.
查询当前Client 版本,结果如下: Client API version => 5.6.31Client API library version => 5.6.31Client API ...
- 修改Windows远程桌面端口
要修改注册表中的两处 PortNumber 1. HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdp ...
- Golang教程:数组和切片
数组 数组是类型相同的元素的集合.例如,整数 5, 8, 9, 79, 76 的集合就构成了一个数组.Go不允许在数组中混合使用不同类型的元素(比如整数和字符串). 声明 var variable_n ...
- bzoj 4161: Shlw loves matrixI
Description 给定数列 {hn}前k项,其后每一项满足 hn = a1h(n-1) + a2h(n-2) + ... + ak*h(n-k) 其中 a1,a2...ak 为给定数列.请计算 ...