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: <twsocket@elists.org>
> 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

Reply via email to