1,317
社区成员
发帖
与我相关
我的任务
分享C++Builder进行Socket编程
利用C++Builder6.0中Serversocket与Clientsocket两个控件如何进行Socket编程以此来实现PC机与下位机的通信啊，？？？？
...全文
请发表友善的回复…
发表回复
kwer 2015-08-31
- 打赏
- 举报
http://download.csdn.net/detail/kwer/9064301
kwer 2015-08-27
- 打赏
- 举报
http://download.csdn.net/detail/kwer/9050123
xjq2003 2015-08-14
- 打赏
- 举报
亲，程序放到BCB6.0中怎么一直有许多错误呢？麻烦帮忙解答一下吧[/quote]
照抄照搬肯定有错误，很多全局变量啦你里面都没有定义吧
qq592965383 2015-08-06
- 打赏
- 举报
亲，程序放到BCB6.0中怎么一直有许多错误呢？麻烦帮忙解答一下吧
我不懂电脑 2015-07-20
- 打赏
- 举报
在网络编程中，WinSocket API编程是最基本，也是最麻烦的地方(说句不怕影响形象的话，我对此就是一知半解)。但是，如果你是使用C++Builder作为编程平台，你就偷着乐吧，有了BCB，菜鸟变高手！:-)
在BCB中，TServerSocket和TClientSocket涵盖了基本的WinSocket编程，其中TServerSocket作为服务器方使用，TClientSocket作为客户端使用，这两个组件本身并不提供Socket连接，但是他们都有一个Socket属性，这个属性才提供了Socket连接。下面就先向大家介绍一下这两个组件常用的方法属性，然后在通过一个例子来看看这两个组件的使用。
1)TServerSocket
名称 类型 说明
Socket TServerWinSocket 最重要的属性,提供Socket连接,事实上发送/接收数据都要靠这个属性.
Port int 要监听的端口,如果在Service属性中指定了服务类型,此属性将被忽略.
Service AnsiString 提供的服务，如HTTP、FTP等，如果在这里指定了服务类型，
Port将被忽略，因为各种服务都有特定的端口，如FTP:21、HTTP:80
ServerType TServerType 设置与客户连接的方式，取值为两个枚举常量stNonBlocking和
stThreadBlocking，stNonBlocking表示用非阻塞方式连接每一个客户
每个连接都在一个单独的线程中处理。并用OnClientRead()和
OnClientWrite()通知服务器端的Socker进行读写。stThreadBlocking
表示以阻塞方式连接客户，即以主动查询的方式可客户连接。
Active bool 激活服务，相当于调用Open()方法。
OnAccept事件当有客户请求连接时触发
OnClientRead事件通知服务器去读取有关信息。OnClientWrite与此类似。
2)TClientSocket
名称 类型 说明
Socket TClientWinSocket 最重要的属性,提供Socket连接,事实上发送/接收数据都要靠这个属性.
Active bool 激活服务，相当于调用Open()方法。
Address AnsiString 服务器的IP地址，如202.98.35.14
ClientType TClientType 与服务器连接方式，取值为两个枚举常量ctNonBlocking，tBlocking。
ctNonBlocking表示非阻塞方式，ctBlocking表示阻塞方式，详见上例。
Host AnsiString 要连接的主机名，如www.cpcw.com
Port int 要监听的端口,TClientSocket,此属性将被忽略.
Service AnsiString 提供的服务，如HTTP、FTP等，如果在这里指定了服务类型，
OnConnect事件当连接时发生，OnConnecting、OnDisConnect与此类似
OnRead事件通知客户机去读取有关信息。OnWrite与此类似。
TServerSocket和TClientSocket只提供基本的服务器/客户机的连接，真正提供数据传输的是它们都有的属性Socket，它的类型分别是TServerWinSocket和TClientWinSocket，而TServerWinSocket和TClientWinSocket的父类都是TCustomWinSocket，下面我们就来看看TServerWinSocket和TClientWinSocket常用的属性和方法。
共同的属性方法（来源于TCustomWinSocket）
名称 类型 说明
Connected bool 检查是否连接成功
LocalAddress AnsiString 本地IP地址，与此类似LocalHost：本机域名，LocalPort：本机端口
RemoteAddress AnsiString 另一端的IP地址，与此类似RemoteHost：另一端域名， RemotePort：另一端端口
SocketHandle int 只读，返回Socket对象的Windows句柄,调用WinSocket API函数会用到它。
Handle HWND Socket能够接受到的异步事件都是以Windows消息的形式发送给此句柄的。
Close()方法作为服务器，关闭所有连接；作为客户机，关闭自己与服务器的连接
SendText(AnsiString)方法发送一个字符串，
SendBuf(void* buff,int count)发送缓冲区buff中的count个字节，返回实际发送的字节数
SendStream(TStream* AStream)发送一个流到Socket中。
ReceiveText()从Socket中读取并返回一个字符串。
ReceiveLength()从Socket读取数据需多少字节的缓冲区。
ReceiveBuf(void* buff,int count)从Socket中读取count字节的数据到buff。
TClientWinSocket
TClientWinSocket只增加了一个ClientType属性，
用于决定与服务器的连接类型(参见TClientSocket-> ClientType)。
TServerWinSocket
名称 类型说明
ServerType 服务类型，参见TServerSocket-> ServerType。
ActiveConnection int只读，返回当前活动的连接数。
Connection TCustomWinSocket数组，索引n表示第n+1个连接，如Connection[0]表示第一个连接。
有了这些知识，我们就可以完成一些基本的WinSocket编程了，下面就结合一个简单的闲聊程序来看看具体的应用。
首先在窗体上放置以下VCL组件，并修改相应属性：
类型 Name 属性 Caption/Text
TCheckBox ckListen 监听当选取时，本程序作为服务器
TCheckBox ckConnect 连接当选取时，本程序作为客户机
TEdit edName 无名氏闲聊时所用的名字。
TBitBtn bbtSave&S 保存单击时保存谈话内容
TBitBtn bbtClose&C 关闭单击时关闭此窗口(设置Kind=bkClose)
TEdit edTalk 在此输入谈话内容
TMemo mmTalk 在此显示谈话内容
TServerSocket ServerSocket1 作服务器时使用(设置Port=2222)
TClientSocket ClientSocket1 作为客户时使用(设置Port=2222)
TSaveDialog sdTalk 保存文件时的选项(设置DefaultExt= "*.txt ",Filter=文本文件(*.TXT) |*.txt|所有文件(*.*)|*.*)。
TStatusBar StatusBar1 用于显示一些提示信息，只要在属性 "Pannels "中加一栏即可
程序作为服务器的设置：
当单击 "监听 "时，如果没有监听则开始监听，在提示栏中显示 "监听 "，并把 "连接 "这个复选框无效。如果已经监听，则取消监听，并使 "连接 "这个复选框有效。所以，在ckListen的OnClick事件中加入以下代码：
if(ServerSocket1-> Active)
{
ServerSocket1-> Active=false;
ckListen-> Checked=false;
StatusBar1-> Panels-> Items[0]-> Text= " ";
}
else
{
ServerSocket1-> Active=true;
ckListen-> Checked=true;
ClientSocket1-> Active=false;
StatusBar1-> Panels-> Items[0]-> Text= "监听... " ;
}
ckConnect-> Enabled=!(ckListen-> Checked);
当有客户加入时，向所有的客户发出通知：并在自已的mmTalk加入此消息：所以在ServerSocket1的OnAccept事件中加入如下代码：
int i;
AnsiString str1= "服务器消息： "+Socket-> RemoteHost+ "加入 ";
for(i=0;i <ServerSocket1-> Socket-> ActiveConnections;i++)
ServerSocket1-> Socket-> Connections[i]-> SendText( "服务器消息： "+Socket-> RemoteHost+ "加入 ");
StatusBar1-> Panels-> Items[0]-> Text=str1;
mmTalk-> Lines-> Add(str1);
当客户机通知服务器读信息时，首先读出字符串，然后把读到的字符串发送到每一台连接的客户，并在自已的mmTalk中加入客户发送来的字符串。所以，在TServerSocket的OnClientRead事件中加入以下代码：
AnsiString str1=Socket-> ReceiveText();
mmTalk-> Lines-> Add(str1);
int i;
for(i=0;i <ServerSocket1-> Socket-> ActiveConnections;i++)
ServerSocket1-> Socket-> Connections[i]-> SendText(str1);
程序作为客户机的设置：
当单击 "连接 "时，如果还未连接，则询问要连接的主机，然后连接之，屏蔽 "监听 "；如果已经连接，则断开连接。 "监听 "使能。所以，在ckConnect的OnClick事件中加入以下代码：
if(ClientSocket1-> Active)
{
ClientSocket1-> Active=false;
ckConnect-> Checked =false;
}
else
{
AnsiString Server= "localhost ";
if(InputQuery( "连接 ", "请输入要连接的主机地址： ",Server))
{
ClientSocket1-> Host=Server;
ClientSocket1-> Active=true;
ckConnect-> Checked =true;
}
}
ckListen-> Enabled= !(ckConnect-> Checked);
当连接服务器成功时，在状态栏中显示此信息，所以，在ClientSocket1的ClientSocket1Connect中加入：
StatusBar1-> Panels-> Items[0]-> Text = "连接到主机： "+Socket-> RemoteHost;
当服务器发送字符串来时，把它加入mmTalk中，但如果本字符串就是自已发送的(因为服务器会把收到的消息发给每一客户)，为条信息就是重复的，所以，要比较mmTalk中最后两条信息是否相同，如果相同，则删除重复信息。代码如下：
mmTalk-> Lines-> Add(Socket-> ReceiveText());
int i=mmTalk-> Lines-> Count-1;
if(mmTalk-> Lines-> Strings[i]==mmTalk-> Lines-> Strings[i-1])
mmTalk-> Lines-> Delete(i);
公用部分
当在edTalk输入交谈内容，按回车键表示输入完成，此时把交谈内容发送出去并清除edTalk的内容。在发送信息时，要看本程序是作为服务器还是客户机，如果是服务器则把信息发送到每一个客户；如果是作为客户则把信息发送到服务器。代码如下：
if(Key==13)
{
mmTalk-> Lines-> Add(edName-> Text+ "： "+edTalk-> Text);
if(ckListen-> Enabled&&ckConnect-> Enabled==false)
// "监听 "有效， "连接 "无效。表示是服务器
{
int i;
for(i=0;i <ServerSocket1-> Socket-> ActiveConnections;i++)
ServerSocket1-> Socket-> Connections[i]-> SendText(edName-> Text+ "： "+edTalk-> Text);
}
else
{
ClientSocket1-> Socket-> SendText(edName-> Text+ "： "+edTalk-> Text);
}
edTalk-> Text= " ";
}
mmTalk的内容不可能永远增加，所以当它有100行时就清空它，在mmTalk的OnChange事件中检查：
if(mmTalk-> Lines-> Count> =100)mmTalk-> Lines-> Clear();
当然你也可以双击mmTalk来清空它，在mmTalk的OnDblClick事件中加入：
mmTalk-> Lines-> Clear();
当你觉得谈话的内容很有意思，你可以单击bbtSave打开保存对话框设置保存特性，所以在bbtSave的onClick中加入代码：
if(sdTalk-> Execute())
mmTalk-> Lines-> SaveToFile(sdTalk-> FileName);
OK，我们的闲聊程序就完成了，在局域网中试试吧？如果你只有一台机器，客户程序在连接时服务器时输入localhost或你机器的名字就可以了。
xjq2003 2015-07-20
- 打赏
- 举报
我想通过网络向设备（led屏）iP:192.168.224.250 端口号：2929
发送数据，比如发送unsigned char buf[1024];
中的数据，
请问是用BCB中的
TClientSocket *ClientSocket1;
TServerSocket *ServerSocket1;
TUdpSocket *UdpSocket1;
这三个用那个发送啊，如何发送？
使用TClientSocket *ClientSocket1;
属性设置：
1，Address:192.168.224.250
2,Port:2929
//-----------------------------------------------
使用ClientSocket完成了工作，代码贴出来以备以后使用，呵呵
C/C++ code
void __fastcall TMainFrm::FormCreate(TObject *Sender)
{
TIniFile *ini;
ini=new TIniFile(".//SAS_Config.ini");
LedIp=ini->ReadString("infLED","LEDIP","192.168.224.250");
ini->WriteString("infLED","LEDIP",LedIp);
COMx=ini->ReadInteger("infLED","端口",2929);
ini->WriteInteger("infLED","端口",COMx);
LEDIpPort=COMx;
delete ini;
try
{
ClientSocket1->Active=false;
ClientSocket1->Address=LedIp;
//ClientSocket1->Host=LedIp;
ClientSocket1->Port=LEDIpPort;
//ClientSocket1->Open();
ClientSocket1->Active=true;
}
catch(...)
{
//
}
}
void sendbuf(unsigned char * buf,int bufIndex)
{
try
{
//ClientSocket1->Close();
//ClientSocket1->Active=false;
//ClientSocket1->Address=LedIp;
//ClientSocket1->Port=LEDIpPort;
//ClientSocket1->Open();
ClientSocket1->Active=true;
ClientSocket1->Socket->SendBuf(buf,bufIndex);
//ClientSocket1->Close();
}
catch(...)
{
//
}
}
void __fastcall TMainFrm::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket)
{
///客户端读取信息
try
{
AnsiString Msg=Socket->ReceiveText();
unsigned char buf[100];
if(Msg.Length()<99)
{
strcpy(buf,Msg.c_str());
String ss="";
for(int i=0;i<Msg.Length();i++)
{
ss+=IntToHex(buf[i],2);
ss+=",";
}
InfoLedEdt->Text=ss;
}
///判断是不是自己发出的信息
// if(Msg!=Memo2->Lines->Strings[Memo2->Lines->Count-1])
// Memo2->Lines->Add(Msg);
}
catch(...)
{
//
}
}
void __fastcall TMainFrm::ClientSocket1Connect(TObject *Sender, TCustomWinSocket *Socket)
{
try
{
AnsiString Msg="连接成功-" + Socket->RemoteHost +"[地址]" + Socket->RemoteAddress + "[端口]" + IntToStr(Socket->RemotePort);
InfoLedEdt->Text=Msg;
}
catch(...)
{
//
}
}
void __fastcall TMainFrm::ClientSocket1Disconnect(TObject *Sender, TCustomWinSocket *Socket)
{
AnsiString Msg="信息显示屏连接断开..." ;
InfoLedEdt->Text=Msg;
}
//------------------------------------------------
引用 10 楼 songhtao 的回复:
ClientSocket在bcb2009中
好像有问题，建议用indy的TIdTcpClient
TIdTcpClient怎么用啊，没有用过，给点提示可以吗？
问题还是有的，就是显示屏如果不和计算机联网的话，会弹出来SOCKET error对话框，不爽，程序启动也比较慢。如何解决我还没有搞明白
void sendbuf(unsigned char * buf,int bufIndex) { try { //ClientSocket1->Close(); //ClientSocket1->Active=false; //ClientSocket1->Address=LedIp; //ClientSocket1->Port=LEDIpPort; //ClientSocket1->Open(); ClientSocket1->Active=true; ClientSocket1->Socket->SendBuf(buf,bufIndex); //ClientSocket1->Close(); } catch(...) { // } } 去掉ClientSocket1->Active=true; 程序就不会一直弹出来SOCKET error对话框
注意：bcb2009中需要安装sicket控件包
