🚀 go-pugleaf

"Hans Galema" <notused@notused.nl> wrote in message 
news:4551be9b$1@newsgroups.borland.com...
> Hanne B wrote:
>
>> It doesn't happen in any of my lines but a short time after the code has 
>> been executed.
>
> Are you sure?
>
>> void __fastcall TForm1::ButtonDisconnectClick(TObject *Sender)
>> {
>>   if (AThread)
>>   {
>>     if (AThread->Connection &&
>>         AThread->Connection->ClosedGracefully == false)
>>         AThread->Connection->Disconnect();
>>
>>     AThread->StopMode = smTerminate;
>>     AThread->Stop();
>>   }
>> }
>
> I did not try your code yet. You could first try the following:
>
> void __fastcall TForm1::ButtonDisconnectClick(TObject *Sender)
> {
>   if (AThread)
>   {
>     if (AThread->Connection &&
>         AThread->Connection->ClosedGracefully == false
>        )
>         AThread->Connection->Disconnect();
>
>     if ( AThread )
> {
>     AThread->StopMode = smTerminate;
>     AThread->Stop();
> }
>     else
> ShowMessage ( "AThread gone");
>   }
> }
>
> Hans.
>



I have tried your code with ShowMessage("AThread gone")  - it didn't show 
the message (so AThread has not become NULL at that time).

I have put a message box in the bottom of the method - and seen that the 
exception occures before this message is shown.
And it also happens if I remove the part to termintate/stop the Thread.

So it must be the call AThread->Connection->Disconnect()  that cause the 
error - because the stream is still open / used.

How do I disconnect the client if the above cannot be used ?


Hanne