🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>"Ulrik Nilsson" <di2niul@chl.chalmers.se> wrote in message
>news:413cb130$1@newsgroups.borland.com...
>
>> void __fastcall TForm1::FormCreate(TObject *Sender)
>
>Do not use the OnCreate event in C++.  It is a Delphi remnant that does not
>work properly in C++ as it can be triggered before the constructor, which is
>illegal in C++.  Use the actual constructor instead.
>
>> The problem is that my program stops at one of the above
>> lines. It doesn't matter which I use when I click the "Close"
>> button. And, of course, no OnDisconnect is fired in the client.
>
>Please show all of your OnExecute code.  You are probably blocking the peer
>thread from shutting down properly.
>
>
>Gambit
>


Hi Gambit!

Thanks for the fast reply. The current OnExecute code is this:

void __fastcall TForm1::TCPServerExecute(TIdPeerThread *AThread)
{

    while( ! AThread->Terminated  && AThread->Connection->Connected() )
    {

        AnsiString str = AThread->Connection->ReadLn("\n", 2000, 10);
        //AnsiString str = AThread->Connection->ReadLn();

        if( str == "HELLO" )
            AThread->Connection->WriteLn("Welcome here...");

        else if( str == "QUIT" )
        {
            AThread->Connection->WriteLn("OK");
            AThread->Connection->Disconnect();
        }
        else if( str == "MYIPADR" )
        {
            AnsiString IP = AThread->Connection->Socket->Binding->PeerIP;
            AnsiString Port = IntToStr( AThread->Connection->Socket->Binding->PeerPort );
            AnsiString str = "Your IP-Address is: " + IP + " and portnumber is: " + Port;
            AThread->Connection->WriteLn( str );
        }
        else
            AThread->Connection->CheckForDisconnect();
    }

}

You wrote "Use the actual constructor instead". How and where?

Regards Ulrik
>