BorlandTalk.com

Tim Robbins · Guest

Hi,

I'm taking my first looks at the Synapse library. I've downloaded the
latest version. Unfortunately, the httpserv demo crashes immediately
under D7. I don't think that there's much I could have done wrong.

Although the echo server demo runs just fine, the http server seems to
have a thread problem:

---------------------------
Debugger Exception Notification
---------------------------
Project httpserv.exe raised exception class EThread with message
'Thread Error: The handle is invalid (6)'. Process stopped. Use Step or
Run to continue.
---------------------------

Can anyone advise a solution? Thank you.

theo · Guest

Tim Robbins schrieb:

Tim Robbins · Guest

Thank you Theo, but that still doesn't work. Although it doesn't
*immediately* crash, it crashes the very first time the program tries
to "serve" anything (to a browser...) with the very same error.

In fact, the first thing I tried when I saw it crash was to move the
inherited constructor call to the beginning of this constructor, EVEN
though I was concerned about the fact that it was starting the thread
immediately.

The second thing I tried was to call inherited, but suspended, and
Resume() at the end of the constructor. Also no good.

It seems very strange that an important demo for a package would be
left in such a state...

Tim Robbins · Guest

I guess I should have looked just a little further: both the listening
thread and the client threads have the same inherited call problem in
the constructors... One's faith is shaken right from the start...

Tim Robbins · Guest

In case anyone else is interested... (this code runs, but is otherwise
"unchecked"), here are the two routines I changed, in the http unit of
the httpserv demo program:

Constructor TTCPHttpDaemon.Create;
begin
inherited create(true);
sock:=TTCPBlockSocket.create;
FreeOnTerminate:=true;
Priority:=tpNormal;
Resume;
end;

....

{ TTCPHttpThrd }

Constructor TTCPHttpThrd.Create(Hsock:TSocket);
begin
inherited create(true);
sock:=TTCPBlockSocket.create;
Headers := TStringList.Create;
InputData := TMemoryStream.Create;
OutputData := TMemoryStream.Create;
Sock.socket:=HSock;
FreeOnTerminate:=true;
Priority:=tpNormal;
Resume;
end;

Francois Piette [ICS & Mi · Guest