Francois Piette wrote: > If you set a breakpoint on FServer.ThreadDetach, do you get a hit on > it when stopping the server ? > And when you single step into the code, is the handle actually set to > 0 ? --
Yes, it is set to 0! > [EMAIL PROTECTED] > http://www.overbyte.be > ----- Original Message ----- > From: "Arno Garrels" <[EMAIL PROTECTED]> > To: "ICS support mailing" <twsocket@elists.org> > Sent: Thursday, June 22, 2006 3:20 PM > Subject: [twsocket] V6 ThreadDetach #2 > > >> I have the following problem in V6: >> >> constructor TListenThread.Create(AServer: TMtWSocketServer); >> begin >> inherited Create(True); >> FreeOnTerminate := FALSE; >> FServer := AServer; >> FServer.ThreadDetach; >> end; >> >> procedure TListenThread.Execute; >> begin >> FServer.ThreadAttach; >> FServer.Listen; >> FServer.MessageLoop; >> FServer.Close; >> FServer.ThreadDetach; >> end; >> >> procedure TForm1.btnStartClick(Sender: TObject); >> begin >> //properties of Server1 are assigned >> FListenThread := TListenThread.Create(Server1); >> FListenThread.Resume; >> end; >> >> >> procedure TForm1.btnStopClick(Sender: TObject); >> begin >> PostMessage(Server1.Handle, WM_QUIT, 0, 0); >> FListenThread.WaitFor; >> FreeAndNil(FListenThread); >> => here the Server1.Handle is not 0! >> Server1.ThreadAttach; // so raises an exception >> end; >> >> Any idea? >> >> --- >> Arno Garrels [TeamICS] >> http://www.overbyte.be/eng/overbyte/teamics.html >> >> -- >> To unsubscribe or change your settings for TWSocket mailing list >> please goto http://www.elists.org/mailman/listinfo/twsocket >> Visit our website at http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
