Чат

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
AnsiString msg;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    ServerSocket1->Port = 4444;
    ServerSocket1->Active = true;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ClientSocket1->Address = Edit2->Text;
    ClientSocket1->Port = 3333;
    ClientSocket1->Active = true;
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    ClientSocket1->Active = false;
}
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Close();
}
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    msg = Socket->ReceiveText();
    Memo1->Lines->Add(msg);
}
 
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if (Key == 13)
    {
        ClientSocket1->Socket->SendText(Edit1->Text);
        Edit1->Text = "";
    }
}

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
AnsiString msg, address;
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    ServerSocket1->Port = 3333;
    ServerSocket1->Active = true;
}
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    msg = Socket->ReceiveText();
    address = Socket->RemoteAddress;
    Memo1->Lines->Add(address + ": " + msg);
    ClientSocket1->Address = address;
    ClientSocket1->Port = 4444;
    ClientSocket1->Active = true;
    ClientSocket1->Socket->SendText(address + ": " + msg);
}
 
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Memo1->Lines->Add(DateTimeToStr(Now()) + " Connect: " + Socket->RemoteAddress);
}