Thomas Kerkmann pisze:
> Thanks Darek for your input,
>
> but unfortunately I can not see any difference to the original
> HTTPDaemon.Execute routine, so it does not help me really. I'm using the
> original http unit, only changed from the Form based main unit to a console
> based version. There must be something else that causes the problem. To me
> it is very strange, that I can see the "LISTENING" state with netstat, but
> the "CanRead" never succeeds.
>
>
Hi.
My main procedure after init server. Maybe this help.
<code>
procedure run;
var
s : string;
begin
fKoniec:=false;
try
while not fKoniec do begin
sleep(100);
WriteLn('Press C to quit.');
ReadLn(s);
if (s='c') or (s='C') then begin
writeln('stop Madar mobile');
fKoniec:=true;
end;
end;
finally
free;
end;
end;
and bug in create:
Constructor TTCPHttpDaemon.Create;
begin
sock:=TTCPBlockSocket.create;
inherited create(false); // <-------first create ***************
FreeOnTerminate:=true;
Priority:=tpNormal;
end;
</code>
Darek
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
