Using a variable on object level seems like a better approach than my
proposal of adding a SendType flag to dozen of functions :-)
The following lines may cause problems for file streams opened in
read/write mode, I guess, because it will truncate the file:
> @@ -2865,6 +2881,8 @@
> if FServer.PersistentHeader <> '' then
> PutStringInSendBuffer (FServer.PersistentHeader); { V7.29 }
> PutStringInSendBuffer(#13#10);
> + if FSendType = httpSendHead then { V7.44 }
> + FDocStream.Size := 0; { V7.44 }
> SendStream;
> end;
> @@ -2992,6 +3021,8 @@
> PutStringInSendBuffer (FServer.PersistentHeader); { V7.29 }
> PutStringInSendBuffer(GetKeepAliveHdrLines);
> PutStringInSendBuffer(#13#10);
> + if FSendType = httpSendHead then { V7.44 }
> + FDocStream.Size := 0; { V7.44 }
> SendStream;
> end;
Regards,
Tobias
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
