Perhaps you should try this one: ------------------------------------------------------- Constructor TTCPHttpDaemon.Create(I, P: String); Begin fSock := TTCPBlockSocket.Create; fIP := I; fPort := P; Inherited Create(False); End; -------------------------------------------------------
In the other case the thread will execute before fSock is created. I've not tested this. It's only a guess. Alex Lukas Gebauer schrieb: >> Constructor TTCPHttpDaemon.Create(I, P: String); >> Begin >> // Inherited Create(False); // must comment this line out >> fSock := TTCPBlockSocket.Create; >> fIP := I; >> fPort := P; >> End; >> >> If inherited is commented out, the LastError works fine on freepascal. > > Interesting... in 'inherited create' is created the Thread. How will be > your thread started now? > > > -- > Lukas Gebauer. > > E-mail: [EMAIL PROTECTED] > WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP > Library > > > > ------------------------------------------------------------------------- > This SF.net email is sponsored by: Microsoft > Defy all challenges. Microsoft(R) Visual Studio 2005. > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ > _______________________________________________ > synalist-public mailing list > synalist-public@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/synalist-public > ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ _______________________________________________ synalist-public mailing list synalist-public@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/synalist-public
