基于C++ Builder 5的Socket组件实现的聊天程序（三）

最新推荐文章于 2022-03-02 21:08:29 发布
最新推荐文章于 2022-03-02 21:08:29 发布
阅读量1k 收藏 1
点赞数
CC 4.0 BY-SA版权
文章标签： socket 聊天 c++ null components button
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/zykangkang/article/details/6471360
本文档详细介绍了如何使用C++ Builder 5的TClientSocket组件创建一个聊天客户端程序，包括创建主窗体、设置组件属性、编写相关代码，实现了连接、接收、发送等功能。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

                                   基于C++ Builder 5的Socket组件实现的聊天程序（三） 

 2.创建客户端程序

（1）创建主窗体

选择“File | New Application”菜单命令创建一个新工程，该工程包括一个空白窗体，将窗体的“Name”属性改为“MainForm”，选择“File | Save Project As…”菜单命令，把Unit1.cpp保存为 ChatClientMain.cpp ，Project1.bpr 保存为 ChatClient.bpr。

剩下的和服务器的窗体创建方法差不多，我就不啰嗦了，我再把客户端的界面贴一下，大家应该都能理解。

别忘了，这次是TClientSocket组件而不是TServerSocket ，其他的组件都差不多。

 

                           

 

窗体和组件的属性设置如下表：

 

组件

属性

属性值

Form1

FormStyle

fsNormal

Name

MainForm

Caption

客户端

Label1

Caption

聊天内容

Label2

Caption

发送信息

Label3

Caption

在线用户

Button1

Caption

发送

Name

SendButton

不是BtnToPer了，其实没有影响，名字无所谓

Button2

Caption

所有人

Name

BtnToAll

Edit1

Name

EdtSend

ListBox1

Name

ListUserBox

Memo1

Name

ChatMemo

ClientSocket1

Port

8999

ServerType

stNonBlocking

MenuItem1

Name

MenuConnect

Caption

登陆

MenuItem2

Name

MenuDisConnect

Caption

离开

MenuItem3

Name

MenuHelp

Caption

帮助

MenuItem4

Name

MenuAbout

Caption

关于

 

    也许大家会问我的客户端的界面图片里只有“登陆”、“帮助”和“关于”三个菜单项啊，没有“离开”啊，等你登陆成功后就有“离开”了。

 

（2）设计代码

 

ChatClientMain.h头文件的代码如下：

//---------------------------------------------------------------------------

#ifndef ChatClientMainH

#define ChatClientMainH

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Menus.hpp>

#include <ScktComp.hpp>

#include <ComCtrls.hpp>

//---------------------------------------------------------------------------

class TMainForm : public TForm

{

__published:   // IDE-managed Components

        TMemo *ChatMemo;

        TListBox *ListUserBox;

        TLabel *Label1;

        TLabel *Label2;

        TLabel *Label3;

        TEdit *EdtSend;

        TButton *SendButton;

        TMainMenu *MainMenu1;

        TClientSocket *ClientSocket1;

        TMenuItem *MenuConnect;

        TMenuItem *MenuDisConnect;

        TStatusBar *StatusBar1;

        TButton *BtnToAll;

        TMenuItem *MenuHelp;

        TMenuItem *MenuAbout;

 

    // 同样，上面的代码是设计好窗体后自动生成的

    // 下面的这些函数也应该不难理解

        void __fastcall MenuConnectClick(TObject *Sender);

        void __fastcall ClientSocket1Connect(TObject *Sender,

                    TCustomWinSocket *Socket);

        void __fastcall ClientSocket1Read(TObject *Sender,

          TCustomWinSocket *Socket);

        void __fastcall ClientSocket1Error(TObject *Sender,

          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,

          int &ErrorCode);

        void __fastcall ListUserBoxClick(TObject *Sender);

        void __fastcall BtnToAllClick(TObject *Sender);

        void __fastcall SendButtonClick(TObject *Sender);

        void __fastcall MenuSetClick(TObject *Sender);

        void __fastcall MenuDisConnectClick(TObject *Sender);

        void __fastcall ClientSocket1Disconnect(TObject *Sender,

          TCustomWinSocket *Socket);

        void __fastcall MenuHelpClick(TObject *Sender);

        void __fastcall MenuAboutClick(TObject *Sender);

private:    // User declarations

 

        BOOL m_HasConnected;

        AnsiString m_sHostAddress;

        AnsiString m_sName;

        AnsiString m_sIsChat;

        AnsiString m_sSpeakTo;

        AnsiString m_sPartTo;

        AnsiString m_sPartFr;

        AnsiString m_sSendInfo;

        AnsiString m_sIsName;

       

public:            // User declarations

        __fastcall TMainForm(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TMainForm *MainForm;

//---------------------------------------------------------------------------

#endif

 

 

源文件ChatClientMain.cpp的代码如下：

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "ChatClientMain.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TMainForm *MainForm;

//---------------------------------------------------------------------------

__fastcall TMainForm::TMainForm(TComponent* Owner)

        : TForm(Owner)

{

    m_sHostAddress = "192.168.0.187";  // 服务端程序所在的机器的IP地址，这是我

// 的IP地址，其实IP地址设在这里不太人性

// 化，应该在客户端程序的界面层对服务器的// IP地址进行自由设置，这样当服务端程序放// 在别的机器上的时候就不用来这里改代码

// 了，大家可以自己实现一下，很简单的，弄// 一个文本框，让m_sHostAddress = 文本框

//  ->Text 就行了

    ClientSocket1->Active = false;

    ClientSocket1->Address = m_sHostAddress;

    ClientSocket1->Port = 8999;     // 端口好也最好弄成上面IP地址那样的实现方法

    m_sSpeakTo = "ALL";

    m_sIsName = "NA";

    m_sIsChat = "CT";

    m_sPartTo = "#";

    m_sPartFr = "$";

    m_HasConnected = false;

    TDateTime NowTime;

    NowTime = Now();

    StatusBar1->SimpleText = NowTime.DateTimeString();

}

//---------------------------------------------------------------------------

void __fastcall TMainForm::MenuConnectClick(TObject *Sender)

{

    InputQuery("请输入用户名","(不能包含#和$字符)  ",m_sName);

    while(m_sName.IsEmpty())

    {

        MessageBox(NULL,"用户名不能为空","",MB_OK);

        InputQuery("请输入用户名","(不能包含#和$字符)",m_sName);

    }

 

    for (int i=1;i<m_sName.Length()+1;i++)

    {

        if (m_sName.SubString(i,1)=="#")

        {

            MessageBox(NULL,"用户名不合法，请重新输入","",MB_OK);

            InputQuery("请输入用户名","(不能包含#和$字符)",m_sName);

        }

        else if(m_sName.SubString(i,1)=="$")

        {

            MessageBox(NULL,"用户名不合法，请重新输入","",MB_OK);

            InputQuery("请输入用户名","用户名：",m_sName);

        }

    }

 

    ClientSocket1->Open();

 

    MenuConnect->Visible = false;

    MenuDisConnect->Visible = true;

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::ClientSocket1Connect(TObject *Sender,

      TCustomWinSocket *Socket)

{

    Socket->SendText(m_sIsName+m_sName);

    AnsiString sTemp;

    sTemp.sprintf("%s登陆成功",m_sName);

    m_HasConnected = true;       

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::ClientSocket1Read(TObject *Sender,

      TCustomWinSocket *Socket)

{

    AnsiString sFr;

    AnsiString sInfo;

    AnsiString sType;

    AnsiString sChat;

    AnsiString sAddr;

    int iPosFr,iPosWel;

    int iIndex;

 

    sInfo = Socket->ReceiveText();

    sType = sInfo.SubString(1,2);

    iPosFr = sInfo.Pos(m_sPartFr);

 

    sFr = sInfo.SubString(3,iPosFr-3);

 

   

    if (sInfo=="CLEAR")

    {

        ListUserBox->Items->Clear();

    }

    else

    {

        if (sType==m_sIsName)

        {

 

            if (sFr!=m_sName)

            {

 

                StatusBar1->SimpleText = sFr+"刚加入";

                ChatMemo->Lines->Add(sFr+"刚加入");

            }

            ListUserBox->Items->Add(sFr);

        }

        else if (sType==m_sIsChat)

        {

            sChat = sFr+sInfo.SubString(iPosFr+1,

                                   sInfo.Length()-iPosFr+1);

            ChatMemo->Lines->Add(sChat);

        }

        else

        {

            ChatMemo->Lines->Add(sInfo);

        }

     }

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::ClientSocket1Error(TObject *Sender,

      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)

{

    ErrorCode = 0;       

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::ListUserBoxClick(TObject *Sender)

{

    if (m_HasConnected)

    {

        AnsiString sTemp;

        if (m_sName == ListUserBox->Items->Strings[ListUserBox->ItemIndex])

        {

            MessageBox(NULL,"不能与自己交谈","",MB_OK);

        }

        else

        {

            MainForm->Caption = "与"+

                  ListUserBox->Items->Strings[ListUserBox->ItemIndex]+"交谈中";

        

            m_sSpeakTo = ListUserBox->Items->Strings[ListUserBox->ItemIndex];

        }

    }

    else

    {

        MessageBox(NULL,"对不起，请先登录","",MB_OK);

    }

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::BtnToAllClick(TObject *Sender)

{

    AnsiString sTemp;

    m_sSpeakTo = "ALL";

    sTemp = m_sIsChat+m_sName+m_sPartFr+m_sSpeakTo+m_sPartTo+EdtSend->Text;

    if(!(ClientSocket1->Active))

    {

        MessageBox(NULL,"请先登陆","",MB_OK);

    }

    else

    {

        if (EdtSend->Text=="")

        {

            MessageBox(NULL,"发送内容不能为空","",MB_OK);

        }

        else

        {

            ClientSocket1->Socket->SendText(sTemp);

            EdtSend->Clear();

            StatusBar1->SimpleText = "发送完毕";

        }

    }

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::SendButtonClick(TObject *Sender)

{

    AnsiString sTemp;

    sTemp = m_sIsChat+m_sName+m_sPartFr+m_sSpeakTo+m_sPartTo+EdtSend->Text;

    if (!(ClientSocket1->Active))

    {

        MessageBox(NULL,"请先登陆","",MB_OK);

    }

    else

    {

        if (EdtSend->Text=="")

        {

            MessageBox(NULL,"发送内容不能为空","",MB_OK);

        }

        else

        {

            if (m_sSpeakTo!="ALL")

            {

                ClientSocket1->Socket->SendText(sTemp);

                ChatMemo->Lines->Add(m_sName+" 说：");

                ChatMemo->Lines->Add(" "+EdtSend->Text);

                EdtSend->Clear();

            }

            StatusBar1->SimpleText = "发送完毕";

        }

    }

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::MenuDisConnectClick(TObject *Sender)

{

    if(ClientSocket1->Socket->Connected)

    {

        ClientSocket1->Socket->Close();

        if (!(ClientSocket1->Active))

        {

            MenuConnect->Visible = true;

            MenuDisConnect->Visible = false;

        }

    }

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::ClientSocket1Disconnect(TObject *Sender,

      TCustomWinSocket *Socket)

{

    ListUserBox->Items->Clear();

    m_HasConnected = false;

    ChatMemo->Clear();

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::MenuHelpClick(TObject *Sender)

{

   MessageBox(NULL,"点“登陆”，输入用户名/r/n点“离开”，断开与服务器的连接",

                                                        "",MB_OK);

}

//---------------------------------------------------------------------------

 

void __fastcall TMainForm::MenuAboutClick(TObject *Sender)

{

    MessageBox(NULL,

    "作者：赵永康/r/n完成日期：2009年7月29日/r/n版本：5.0/r/nQQ:516996841",

    "",MB_OK);

           //  MessageBox 中 ，在需要换行的后面加上 "/r/n" 即可

}

//---------------------------------------------------------------------------

 

 

参考着服务端程序，客户端程序很好理解的。

 

 

zykangkang
关注
基于C++ Builder 5的Socket组件实现的聊天程序（一）
康康的专栏
07-31 2008
基于C++ Builder 5的Socket组件实现的聊天程序(说明+源代码+程序)
07-31
通过学习这个基于C++ Builder 5的Socket组件实现的聊天程序，你将对Socket编程有更深入的理解，为进一步学习更复杂的网络应用打下坚实的基础。记得动手实践，理论结合实际，这是掌握任何技能的关键。
如何利用C++ Builder 5.0 Enterprise 创建用户自己的网上聊天程序
蝈蝈俊.net
08-19 1519
如何利用C++ Builder 5.0 Enterprise 创建用户自己的网上聊天程序 网络是一个激动人心的领域，编写网络上的应用程序更是很多程序员向往的情节，然而编写网络程序需要掌握大量的网络传输协议、编程接口和WinSock32 API 函数，正因为如此，要完成从Windows程序员到Web程序员的转变不是一件易事．最近笔者成功的用C++
基于C++ Builder 5的Socket组件实现的聊天程序（四）
康康的专栏
07-31 841
C++builder 2010 Socket 网络编程
WaveYang的专栏
04-02 3439
C++builder 2010 Socket 网络编程<br />文章分类:C++编程1. 打开c++builder 2010, 打开菜单Project/Options选项, 囗弹出对话框 <br /><br />2. 在Packages子项目中, 添加dclsockets140.bpl控件安装包, dclsockets140.bpl <br />   在c++builder 2010的bin目录, 包含了TClientSocket、TServerSocket两个控件 <br /><br />3. 参考高手
在C++ Builder中用socket api来写网络通讯程序（同时支持TCP和UDP协议）
weixin_33860147的博客
10-29 396
原标题：在C++ Builder中用socket api来写网络通讯程序（同时支持TCP和UDP协议）原文:  http://www.youkuaiyun.com/develop/read_article.asp?id=19883在7月4日看完sockcomp.pas后，我决定用socket api来写一个客户端和服务器并且同时支持TCP,UDP协议，于是我就去做，现将代码贴出来（已调试通过）Socket a...
C++ Builder 5实现Socket聊天程序教程
"基于C++ Builder 5的Socket组件实现的聊天程序" 本文将介绍如何使用C++ Builder 5中的Socket组件构建一个简单的聊天程序。C++ Builder 5是一款集成开发环境，提供了丰富的组件库，包括用于网络通信的Socket组件，...
C++ Builder实现Socket聊天程序的方法
下面将详细介绍在使用C++ Builder实现基于Socket组件的聊天程序中所涉及到的关键知识点。 ### C++ Builder C++ Builder是由Embarcadero公司开发的一款集成开发环境，它提供了丰富的组件库和快速的代码编辑器，支持...
c++ builder socket实例
05-31
在C++ Builder中，TServerSocket和TClientSocket是用于实现客户端-服务器通信的组件，它们是基于伯克利套接字（Berkeley Sockets）API的封装，这是网络编程中的一个标准接口。 1. **TServerSocket组件**： ...
C++ Builder中用socket api来写网络通讯程序
06-24
在C++ Builder中使用Socket API编写网络通信程序是IT领域中的一个重要知识点，尤其对于那些希望在Windows平台上构建高效、稳定网络应用的开发者来说。本文将深入解析如何在C++ Builder中利用Socket API实现TCP和UDP...
初学者学习C++ Builder第一个程序（模拟聊天室）v1.02，经典！
10-31
初学者学习C++ Builder（C++图形用户界面）第一个程序（模拟聊天室）v1.02，经典！
使用C++ builder开发的简单在线聊天系统
09-23
C++ builder开发的简单在线聊天系统，由服务器提供客户之间的通信
C++ Builder第一个程序（模拟聊天室）v1.10.rar.rar
12-05
C++ Builder第一个程序（模拟聊天室）v1.10.rar.rarC++ Builder第一个程序（模拟聊天室）v1.10.rar.rar
C++ Builder下的socket编程（可实现）
01-04
C++ Builder下的socket编程 可实现局域网聊天
初学者学习C++ Builder第一个程序（模拟聊天室），经典！
10-30
初学者学习C++ Builder第一个程序（模拟聊天室），经典！
c++ builder 阻塞模式 socket 教程 说明
Yu的专栏
11-10 3088
1.Client端 阻塞模式常用在单通道Server自动响应收发数据里面，比如ClientA向ServerB发送报文，并且ClientA只需要它发送的这条数据ServerB对它有一个响应。其实c++ builder 里面阻塞模式的收发数据主要理解TWinSocketStream这个流。 1 2 3 4 5 6 7 8
C++ builder TServerSocket 组件
weixin_39926429的博客
03-02 1130
//本文在c++ builder 10.3调试通过。 //在以前的文章中介绍了标准的windows socek,本文介绍使用TServerSocket 组件，做服务端。 //1.安装组件 //Component->Install Packages->Add->弹出文件选择框->找到 dclsockets260.bpl->打开->Save //2.新建窗体项目 //2.1在窗体上放置一个TShape组件（Palette->Addtional->TSha
用C++ Builder中的TServerSocket,TClientSocket来写网络通讯程序
kingcaiyao的专栏
07-22 9247
本文主要介绍如何在C++ Builder中用TServerSocket,TClientSocket来写一个网络间短包，文件传输的程序，这个程序可以支持：1.局域网上的传输。2.局域网与公网的传输（双向传输），在第二篇文章中我将用socket api写一个客户端和服务器，功能和本文中的功能一样。使用通讯协议TCP，这里的客户端和服务器使用的都是阻塞模式---多线程。Client:.h Filecla
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值