Dne Sat, 17 Nov 2007 00:58:08 +0100 L <[EMAIL PROTECTED]> napsal/-a: > 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. > If the inherited is left there.. it works on delphi but not fpc.
Just a hypothesis: You create thread as 'resumed' i.e. the Execute method should run automatically. In Delphi implementation, there is a trick to ensure a thread construction will be finished first: - Regadless of value of argument CreateSuspend, a thread is *always* create as SUSPEND - AfterConstruction method is overriden and there the thread is RESUMED if argument CreateSuspend is FALSE. --- Perhaps Free Pascal does not treat it properly and you need to create thread always suspended and resume it manually later? ------------------------------------------------------------------------- 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 [email protected] https://lists.sourceforge.net/lists/listinfo/synalist-public
