BCB Socket通信 TClientSocket
来源:互联网 发布:原型软件墨刀 编辑:程序博客网 时间:2024/04/30 02:58
服务器:1. port:67672. 代码:///---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"///---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;///---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}///---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){///发送信息AnsiString Msg=Edit1->Text+ ":" + Edit2->Text;Edit2->Text="";Memo1->Lines->Add(Msg);///将信息发送到所有客户端for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++) ServerSocket1->Socket->Connections[i]->SendText(Msg); }///---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1Accept(TObject *Sender, TCustomWinSocket *Socket){///服务器接收客户端请求后发生Accept事件AnsiString Msg="服务器消息:" + Socket->RemoteHost +"进入了聊天室";///向所有客户端发送消息for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++) ServerSocket1->Socket->Connections[i]->SendText(Msg);///在自己的信息栏中加入该信息Memo1->Lines->Add(Msg);}///---------------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket){///从套接字中读出数据AnsiString Msg=Socket->ReceiveText();//把信息发送到所有客户端for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++) ServerSocket1->Socket->Connections[i]->SendText(Msg);///在自己的信息栏上加入该信息Memo1->Lines->Add(Msg);}///---------------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){Edit1->Text="";Edit2->Text=""; }///---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ServerSocket1->Port=StrToInt(Edit3->Text);ServerSocket1->Active=true;Shape1->Visible=true; }///---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ServerSocket1->Active=false;Shape1->Visible=false; }///---------------------------------------------------------------------------客户端:1. Address:127.0.0.1(服务器IP地址)2. Port:6767(服务器的端口号)3. 代码///---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"///---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;///---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}///---------------------------------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){AnsiString Msg=Edit1->Text + ":" + Edit2->Text;Memo1->Lines->Add(Msg);Edit2->Text="";///向服务器发送信息ClientSocket1->Socket->SendText(Msg);}//---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket){///客户端读取信息AnsiString Msg=Socket->ReceiveText();///判断是不是自己发出的信息if(Msg!=Memo1->Lines->Strings[Memo1->Lines->Count-1])Memo1->Lines->Add(Msg); }///---------------------------------------------------------------------------void __fastcall TForm1::FormCreate(TObject *Sender){Edit1->Text="";Edit2->Text=""; }///---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ClientSocket1->Address=Edit3->Text;ClientSocket1->Port=StrToInt(Edit4->Text);ClientSocket1->Active=true; }///---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){ClientSocket1->Active=false; }///---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket){AnsiString Msg="连接成功,[主机]" + Socket->RemoteHost +"[主机地址]" + Socket->RemoteAddress + "[主机监听端口]" + IntToStr(Socket->RemotePort);ShowMessage(Msg);}///---------------------------------------------------------------------------void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender, TCustomWinSocket *Socket){Socket->SendText(Edit1->Text + "下线了");///ClientSocket1->Socket->SendText(Edit1->Text + "下线了");ShowMessage("已断开连接");}///---------------------------------------------------------------------------正文
Socket套接字:每个套接字由IP地址+服务号码(称之为端口port)组成。数据传输之后,必须释放和撤销连接。
TclientSocket和TserverSocket两个网络组件,位于Internet页。
TserverSocket:
1. Port属性:int型,设置端口号,如6767
2. Activate属性:bool型,设置监听:true;关闭监听:false
3. OnListen事件:侦听连接形成之前,发生此事件
4. OnAccept事件:接受了某客户端连接请求后发生此事件
5. OnClientRead事件:通过此事件,从套接字读出数据(从客户端发来的)
6. OnClientWrite事件:通过此事件,可以对套接字写入数据
TclientSocket:
1. Address属性:服务器IP地址
2. Host属性:服务器主机名称,当Host和Address都指定时,TclientSocket将使用Host属性工作
3. Port属性: int型,设置套接字端口号,如6767
4. Activate属性:true:与服务器建立连接;false:与服务器断开连接
5. OnLookup事件:在定位服务器套接字之前,发生此事件
6. OnConnecting事件:在服务器套接字被定位后,发生此事件
7. OnConnect事件:与服务器建立连接后,发生此事件
8. OnRead事件:通过此事件,可从连接套接字读出数据
9. OnWrite事件:通过此事件,可对套接字写入数据
10. OnDisConnect事件:在与服务器断开连接时,发生此事件
摘自:http://blog.csdn.net/sding/article/details/3955402
- BCB Socket通信 TClientSocket
- BCB之Socket通信
- BCB之Socket通信
- BCB中TClientSocket阻塞方式读写数据
- BCB 高手进阶 (八)TServerSocket和TClientSocket应用技巧
- WinSocket網絡通信之 TClientSocket & TServerSocket
- BCB Socket编程指南
- BCB的SOCKET通讯
- 用BCB的TServerSocket和TClientSocket编写TCP/IP的通讯程序
- WinSocket網絡通信之 TClientSocket & TServerSocket (續)
- BCB Socket编程指南(转载)
- BCB线程间的同步通信
- Socket通信
- Socket通信
- socket通信
- Socket通信
- Socket通信
- socket通信
- keytool生成证书 查看证书信息 ,以及java操作的简单用例
- Xcode 5 单元测试(二)OCMock和GHUnit
- AAC打包ADTS格式
- 解决在非Activity中使用startActivity
- Sinesafe 服务器流量监控软件 专注于Windows 服务器
- BCB Socket通信 TClientSocket
- 图说我对Unicode的几点理解
- 《TCP-IP详解卷1:协议》读书笔记三 IP网际协议
- java读取大文件
- opencv2.4.9 linux源码安装过程及问题
- 通过生产者消费者问题比较信号量和信号【Java实现】
- kb967723补丁卸载软件完美卸载
- linux中shell变量$#,$@,$0,$1,$2的含义解释
- OpenStack 部署总结之:在CentOS 6.5上使用RDO安装双结算结点的icehouse(Ml2+GRE)