RTC Forums

procedure TRtcSocketHttpServerProvider.TriggerDataSent;
  begin
  if Response.Sending then
    begin
    if not Response.Done then
      Response.Done := LenToSend=0;

procedure TRtcSocketHttpServerProvider.TriggerDataSent;
  begin
  if Response.Sending then
    begin
    if not Response.Done then
      Response.Done := LenToSend<=0;

procedure TRtcSocketHttpServerProvider.TriggerDataOut;
  var
    nmd:boolean;
  begin
  nmd:=False;

  Response.Started:=False;
  if LenToSend>=0 then
    begin
    Dec(LenToSend, DataOut);
    if LenToSend<0 then
      raise Exception.Create('FATAL ERROR in TRtcSocketHttpServerProvider: More Data Out than Data Sent?');
    end;

  if LenToSend=0 then
    nmd:=(InBuffer='') and not Request.Close;

  inherited TriggerDataOut;

  if nmd then
    NeedMoreData;
  end;