I don't know the context of this code. I find strange to have a local variable "Flags". Have you looked at the WebServ delo provided with ICS ? See TWebServForm.CreateVirtualDocument_Time as an example of AnswerString use. Put your code into that sample program. -- [EMAIL PROTECTED] http://www.overbyte.be
----- Original Message ----- From: "Bruno Sonnino" <[EMAIL PROTECTED]> To: <twsocket@elists.org> Sent: Thursday, May 19, 2005 7:02 PM Subject: Re: [twsocket] Connection not closed in WebServer with IE > 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 > -- 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
