Чат в Билдере 2009

// Посылаем сообщение с помощъю SendBuf
void __fastcall TFormMain::btnSendBufClick(TObject *Sender)
{
    ClientSocket1->Socket->SendBuf(edtMessage->Text.c_str(), edtMessage->Text.Length());
}
 
// Принимаем сообщение
void __fastcall TFormMain::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)
{
    // Переменная для длины принятых данных
    int iBufSize = Socket->ReceiveLength();
    // Переменная для приема буфера
    char *Buf = new char [iBufSize + 1];
 
    Socket->ReceiveBuf(Buf, iBufSize);
    edtReceivedMsg->Text = AnsiString(Buf);
    delete []Buf;
}

// Посылаем сообщение с помощъю SendText
void __fastcall TFormMain::btnSendTextClick(TObject *Sender)
{
    ClientSocket1->Socket->SendText(edtMessage->Text);
}
 
// Прием сообщения как в пункте 2

    AnsiString aStr = "This example string;";
    UnicodeString uStr;
 
    uStr = UnicodeString(aStr);

ClientSocket1->Socket->SendText(Edit1->Text);

AnsiString str = Socket->ReceiveText();

#include <iostream>
#include <windows.h>
using namespace std;
 
char buf[256];
char *Rus(const char *txt){
       CharToOem(txt, buf);
       return buf;
}
void main(){
cout << Rus("Привет");
return;
}

 // Массив для отправки
 int array[15] = {4, 2, 1, 645, 789, 6546,666, 444, 333 , 0001, 789, 951, 30, 78, 87};
 
 // Посылаем массив с помощью метода SendBuf
 ClientSocket1->Socket->SendBuf(array, sizeof(array));
 
 
// В onClientRead
 // Массив для приема
 int Inp_array[15];
 
 Socket->ReceiveBuf(Inp_array, sizeof(Inp_array));
 for (int i = 0; i < 15; i++)
 {
  ShowMessage(IntToStr(Inp_array[i]));
 }