There is no need to - if you take a look at AnswerString in HTTPSrv, you
have:
procedure THttpConnection.AnswerString(
var Flags : THttpGetFlag;
const Status : String; { if empty, default to '200 OK' }
const ContType : String; { if empty, default to 'text/html' }
const Header : String; { Do not use Content-Length nor Content-Type}
const Body : String); { Could be empty. No default. }
Bruno
On 19/5/2005 12:24:24, Fastream Technologies ([EMAIL PROTECTED]) wrote:
> You forgot to set the "Content-Length".
>
> Regards,
>
> SZ
>
> ----- Original Message -----
> From: "Bruno Sonnino" <[EMAIL PROTECTED]>
> To: <twsocket@elists.org>
> Sent: Thursday, May 19, 2005 5:30 PM
> Subject: [twsocket] Connection not closed in WebServer with IE
>
>
>
> I am using a program based on the WebServer demo, where I generate my
> pages.
> When using IE as the client (this
> doesn't happen with FireFox), the
> connection is not closed after the page is sent, and the progressbar
doesn't
> close in IE. Did anybody see something similar? Is there any way to avoid
> this?
>
> I am using a code like this one:
>
> var
> Flags: THttpGetFlag;
> i : Integer;
> Body : String;
> Header : String;
> begin
> Flags := hgWillSendMySelf;
> Body := '<HTML>' +
> '<HEAD>' +
> '<TITLE>Pagina de teste </TITLE>' +
> '</HEAD>' + #13#10 +
> '<BODY>';
> for i := 1 to 1000 do
> Body := Body + '<br>This is line number '+IntToStr(i);
> Body := Body+'</BODY></HTML>';
> Header := 'Pragma: no-cache' + #13#10 +
> 'Expires: -1' + #13#10 +
> 'Set-Cookie: Usuario=a; path=/
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
