Простой IRC клиент

====================================================================
//---------------------------------------------------------------------------
 
#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)
{
//{ connecting to IRC server ... }
ClientSocket1->Host=Edit1->Text;
ClientSocket1->Port=StrToInt(Edit2->Text);
ClientSocket1->Active=true;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
 
AnsiString data;
 
//{ received data from IRC server }
data=ClientSocket1->Socket->ReceiveText();
Memo1->Lines->Add(data);
int i=data.Pos("PING");
if (i!= 0) {
data[i+1]='O';
Memo1->Lines->Add(data);
ClientSocket1->Socket->SendText(data);
}
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
ClientSocket1->Socket->SendText("NICK "+Edit4->Text+ '\r'+'\n');
ClientSocket1->Socket->SendText("USER " + Edit4->Text + " "+
ClientSocket1->Socket->LocalHost + " " + ClientSocket1->Socket->LocalAddress
+ " " + ": " +Edit4->Text+ '\r'+'\n');
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
//{ 2 basics commands, /join #channel ant /msg #channel/nickname message }
 
AnsiString S;
S=Edit3->Text+'\r'+'\n';
ClientSocket1->Socket->SendText(S);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ClientSocket1->Socket->SendText("QUIT :Askim Askim"+'\r'+'\n');
ClientSocket1->Socket->Close();
}
//---------------------------------------------------------------------------
 
 
h файл
 
==================================================================================
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <classes.hpp>
#include <controls.hpp>
#include <stdctrls.hpp>
#include <forms.hpp>
#include <scktcomp.hpp>
#include <extctrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1;
TClientSocket *ClientSocket1;
TPanel *Panel1;
TEdit *Edit4;
TEdit *Edit1;
TEdit *Edit2;
TButton *Button1;
TEdit *Edit3;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket);
void __fastcall Button2Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

ClientSocket1->Socket->SendText("PRIVMSG #имя канала :Buy"+'\r'+'\n');
ClientSocket1->Socket->SendText("QUIT"+'\r'+'\n');

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
if(Key==VK_RETURN)
        {
        AnsiString S;
        S=Edit3->Text+'\r'+'\n';
        ClientSocket1->Socket->SendText(S);
        }
}