[fpc-pascal] fcl-web TFPHttpServer component problem

[michael.vancanneyt at wisa.be]

On Mon, 28 Nov 2011, Graeme Geldenhuys wrote:

> On 28/11/2011, michael.vancanneyt at wisa.be <michael.vancanneyt at ....> wrote:
>>
>> The mistake you make is that you create a loop in the thread;
>> The thread does not need a loop. It just needs to set Active to true:
>>
>> Procedure TMyServerThread.Execute;
>>
>> begin
>>    MyServer.Active:=True;
>> end;
>
> OK thanks, I got it working now but it is not ideal yet.
>
> It is still problematic if you try starting & stopping the HTTP Server
> because if you stop it, TThread.Execute completes, thus you can't
> restart it again, you need to create a new thread instance. I guess
> not the end of the world for my simple example, but might be for other
> more complex apps. But then, that was probably not the design goal of
> this component.

I am open for suggestions, but the possible solutions are IMHO not so simple:
- Either a thread must be created automatically to actually run the server when Active:=True
- Or the server must be made non-blocking and then you need to run an event loop.

Either way is a significant architectural change.

Michael.