windows 平台socket客户端

离职前写一个Windows上的小程序，socket client，在BCB平台通过调用Windows API实现简单的客户端。

/*
** Filename: --mainForm.cpp
** Function: --创建Socket，连接，并发送数据，调用Windows API实现Socket
** Author:   --ericteck
** Date:     --2011.9.21
*/

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "mainForm.h"
#include "setServer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

/******************************************************
**  主窗体类的构造函数
******************************************************/
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        this->Memo1->SetTextBuf("");
}

/******************************************************
**  连接实现函数
******************************************************/
void __fastcall TForm1::Button_ConnectClick(TObject *Sender)
{
        /*
        ** 初始化Scoket
        */
        InitSocket();
        /*
        ** 释放指针
        */
        free(pCIp);
        free(pCPort);
        pCIp = NULL;
        pCPort = NULL;
}

/******************************************************
**  初始化Socket
******************************************************/
void __fastcall TForm1::InitSocket()
{
     /*
     ** 初始化 Windows Socket
     */
     if ( WSAStartup(MAKEWORD(2,2), &Ws) != 0 )
     {
         this->Memo1->SetTextBuf("Init Windows Socket Failed");
     }
     /*
     ** 创建 Windows Socket
     */
     CientSocket = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
     if ( CientSocket == INVALID_SOCKET )
     {
         this->Memo1->SetTextBuf("Create Socket Failed");
     }
     /*
     ** Initialize server:协议，IP地址，端口
     */
     ServerAddr.sin_family = AF_INET;
     ServerAddr.sin_addr.s_addr = inet_addr(pCIp);
     ServerAddr.sin_port = htons(StrToInt(pCPort));
     memset(ServerAddr.sin_zero, 0x00, 8);//让sockaddr_in匹配sockaddr

     /*
     ** 建立socket连接
     */
     Ret = connect(CientSocket,(struct sockaddr*)&ServerAddr, sizeof(ServerAddr));
     if ( Ret == SOCKET_ERROR )
     {
         this->Memo1->SetTextBuf("Connect Error");
     }
     else
     {
         this->Memo1->SetTextBuf("连接成功!在此输入字符发送!");
     }
}

/******************************************************
**  断开socket连接
******************************************************/
void __fastcall TForm1::Button_DisconnectClick(TObject *Sender)
{
        closesocket(CientSocket);
        WSACleanup();
}

/******************************************************
**  关闭Socket
******************************************************/
void __fastcall TForm1::Button_CancelClick(TObject *Sender)
{
        closesocket(CientSocket);
        WSACleanup();
        this->Close();
}

/******************************************************
**  发送数据
******************************************************/
void __fastcall TForm1::Button_SendClick(TObject *Sender)
{
        /*
        ** 获取输入的数据
        */
        this->Memo1->GetTextBuf(this->SendBuffer,sizeof(SendBuffer));
        /*
        ** 发送数据到缓存
        */
         if ( send(CientSocket, SendBuffer, (int)strlen(SendBuffer), 0) == SOCKET_ERROR )
         {
             this->Memo1->SetTextBuf("Send Info Error");
         }

}

/******************************************************
**  设置Server的IP与Port
******************************************************/
void __fastcall TForm1::Button_SetClick(TObject *Sender)
{
        TForm2 *Form2;
        Form2=new TForm2(Application);//动态创建Form2
        Form2->Show();
}

源代码：bcb_win_socketclient