[twsocket] Tr: HTTPProt bug report.
Tue, 6 Jun 2000 20:08:14 +0200
----- Original Message -----
From: Eran More <email@example.com>
Sent: Tuesday, June 06, 2000 1:46 PM
Subject: HTTPProt bug report.
> I have been trying out your component, it works fine, I think I have found
> I have sent you the modified event, with one additional line (marked).
> The bug is that it got "stuck" in multiple "Post" requests (since the
> was not reset), but after adding this line, things work well.
> Please reply if you agree.
> Modified code:
> procedure THttpCli.SocketDataSent(Sender : TObject; Error : Word);
> Len : Integer;
> if not FAllowedToSend then
> Len := FSendStream.Read(FSendBuffer, sizeof(FSendBuffer));
> if Len <= 0 then begin
> FAllowedToSend := FALSE;
> FSendStream.Position := 0; <<<<<<<-----------
> if Len > 0 then begin
> FSentCount := FSentCount + Len;
> TriggerSendData(@FSendBuffer, Len);
> FWSocket.Send(@FSendBuffer, Len);
> Good luck.