> Whereas synapse reports: zero on fpc, but 10048 on delphi.
Found the line of code that causes the difference between fpc and delphi.. I
don't think it is synapse related but now Thread related for some reason.
Type
TTCPHttpDaemon = Class(TThread)
Private
fSock : TTCPBlockSocket;
fIP,
fPort : String;
Public
Constructor Create(I, P: String);
Destructor Destroy; Override;
Procedure Execute; Override;
End;
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.
Sigh. Huhhhhhhhhhh?
L505
-------------------------------------------------------------------------
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
