Francois:
Yes, I am. The full code (it has been cut from my last message) is:
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=/;'+ #13#10 +
'Set-Cookie: Senha=a; path=/;'+ #13#10;
TMyHttpConnection(Client).AnswerString(Flags,'','',Header,Body);
Bruno
On 19/5/2005 13:35:13, Francois PIETTE ([EMAIL PROTECTED]) wrote:
> > There is no need to - if you take a look at AnswerString in HTTPSrv,
> you
> > have:
>
> But you are not using AnswerString. Are you ?
>
> --
> [EMAIL PROTECTED]
> http://www.overbyte.be
>
> ----- Original Message -----
> From: "Bruno Sonnino" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Thursday, May 19, 2005 6:00 PM
> Subject: Re: [twsocket] Connection not closed in WebServer with IE
>
>
> > 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".
> > >
> > > R
--
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
