🚀 go-pugleaf

To add more confusion :) I did a simple test, two very basic applications to 
test the threadblocking server ... of course they don't work (or better they 
work if I set nonblocking for the server too!)

The Server application:

A simple TServerSocket with Active=true, port=1024, 
ServerType=stThreadBlocking
A simple TMemo

void __fastcall TForm2::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
 Memo1->Lines->Add("Client connected");
}
//---------------------------------------------------------------------------

void __fastcall TForm2::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
 Memo1->Lines->Add("Inside OnClientRead");
 Application->ProcessMessages();
 Memo1->Lines->Add("Client: "+Socket->ReceiveText());
 Application->ProcessMessages();
 Socket->SendText("Bye!");
}
//---------------------------------------------------------------------------

void __fastcall TForm2::ServerSocket1ClientWrite(TObject *Sender,
      TCustomWinSocket *Socket)
{
 Memo1->Lines->Add("OnClientWrite");
 Socket->SendText("Bye!");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ServerSocket1ClientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
 Memo1->Lines->Add("Error");
}
//---------------------------------------------------------------------------

It seems dead, nothing is written to the Memo :(


The Client Application:
 A simple TClientSocket with Port=1024, Address=127.0.0.1, Active=false, 
ClientType=ctNonBlocking
 A simple TMemo, A TStatusBar, 2 TButtons

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 ClientSocket1->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(ClientSocket1->Socket->Connected)
  ClientSocket1->Socket->SendText(Edit1->Text);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
 StatusBar1->SimpleText="Connected";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
 Memo1->Lines->Add("Server: "+Socket->ReceiveText());
}
//---------------------------------------------------------------------------


void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
 StatusBar1->SimpleText="Error";
}
//---------------------------------------------------------------------------

After I've clicked Button2, I can see that the OnConnect event handler has 
been executed, but if then I click the Button1 nothing happens! :(

Where do I mistake? It's so discouraging when after so much study, even so 
simple test does not run ;(

Thank You all for Your help!

Stefano b.