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

Reply via email to