🚀 go-pugleaf

duncan wrote:

> My app runs on two dirrerent computers 

>       Application->CreateForm(__classid(TMap), &Map);

> TMap is a Frame \

Did not know that CreateForm takes a TFrame. But if you say so ..
Doesn't a TFrame need a Tform at runtime ?

 > ClientSocket = new TClientSocket(this);
 > ServerSocket = new TServerSocket(this);

Your app will be a client OR a server ? If so there is
no need to instantiate a client and a server here.

> (TServerSocket * const _file_server_pointer, 
>     TClientSocket * const _file_client_pointer)

What is the reason that you just don't use the borland nameconvention:

  TServerSocket * ServerSocket,
  TClientSocket * ClientSocket)

The advantage of the latter is that everybody who sees
your code at any place knows where it is all about.

>    //  Assign the server events
Those are only needed if your app becomes a server

>    //Assign the client events

ditto for a client


>    file_client_pointer->Open();
> 
>    if(file_client_pointer->Active)
>    {
    no. not here
>       file_client_pointer->Socket->SendText("test_message");
>    }//if
> 
> }//
> 
> then when file_client_pointer->Open(); is executed it calls all
>  of the file_server_connect services on the server side, but not of the client events are called and 
> file_client_pointer->Active remains false and the code is not executed?  

I already told you the possible reason in my first post. You should
not Sendtext in the same OnClick handler. Instead implement the
OnConnect event of TClientSocket.

Hans.