[C++知识库]C++ builder TServerSocket 组件

//本文在c++ builder 10.3调试通过。

//在以前的文章中介绍了标准的windows socek,本文介绍使用TServerSocket 组件，做服务端。

//1.安装组件

//Component->Install Packages->Add->弹出文件选择框->找到 dclsockets260.bpl->打开->Save

//2.新建窗体项目

//2.1在窗体上放置一个TShape组件（Palette->Addtional->TShape），设置名称为Shape1

//2.2.在窗体上放置一个TSeverSocket组件（Palette->Internet->TServerSocket）

//设置名称为ServerSocket1，设置属性

//设置事件的代码，点击下图右边空白自动产生事件关联的函数（蓝色部分）并且自动生成代码

//3.代码

#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
TCustomWinSocket *Socket1 ;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
? ? : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::FormCreate(TObject *Sender)
{?try
?{ServerSocket1->Active=true;//打开
?}
?catch(Exception &ex)
?{AnsiString str= "启动socket服务失败 ";
? str+= IntToStr(ServerSocket1->Port) ;
? str+=ex.Message;
? OutputDebugStringA(str.c_str());
?}
}
//-
//---------------------------------------------------------------------------
void __fastcall TForm7::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket)//
{Shape1-> Brush->Color = clLime;//连接后绿灯亮
}
//---------------------------------------------------------------------------
void __fastcall TForm7::ServerSocket1ClientDisconnect(TObject *Sender, TCustomWinSocket *Socket)
{Shape1-> Brush->Color = clBtnFace;//关闭后绿灯灭
}
//---------------------------------------------------------------------------
void __fastcall TForm7::ServerSocket1ClientError(TObject *Sender, TCustomWinSocket *Socket,
? ? ? ? ? TErrorEvent ErrorEvent, int &ErrorCode)
{OutputDebugStringA("---------------error-----------------------");
?try
?{AnsiString s="Error:"+AnsiString(ErrorCode);
? if(ErrorCode==10053)
? Socket->Close();
? ErrorCode=0;
? }
? catch(...){}
}
//---------------------------------------------------------------------------
void __fastcall TForm7::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)

{try
?{Socket1? ? ? = Socket;
? unsigned char Buf[1024] ;
? byte *p ? ? ? = Buf ?;
? int ?n ? ? ? = Socket->ReceiveBuf(p,1024);
? char bufferOut[1000]="hello";
? Client1->SendBuf(&bufferOut,sizeof(bufferOut));
? }
? catch(...)
? {}
}