🚀 go-pugleaf

>Don't reinvent the wheel :)

Haha :) I already reinvented my pal.I dropped a TMemo and TServerSocket to my form and added these codes :

//******************************************************
void __fastcall TForm2::FormCreate(TObject *Sender)
{
ServerSocket1->Port = 23;
ServerSocket1->Active = true;
}

void __fastcall TForm2::ServerSocket1ClientRead(TObject 
*Sender,TCustomWinSocket *Socket)
{
AnsiString T;
T = Socket->ReceiveText();
Memo1->Lines->Add(T);
}
//******************************************************

This was server side.
I also created another project.I dropped two TEdits, TClientSocket and a TButton.I wrote these codes :

//******************************************************
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
ClientSocket1->Active = false;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Port   =  23;
ClientSocket1->Host   =  Edit2->Text;
ClientSocket1->Active =  true;
if (ClientSocket1->Active)
ClientSocket1->Socket->SendText(Edit1->Text);
}
//******************************************************

It works but i should click Button twice.First click does not 
triggers ServerSocket1ClientRead but second does.
What is the problem with it?
And i tried to write computer name instead ip number.It works 
with ip number but doesn't work with Computer's name.

Mentor