Ignore:
Timestamp:
Oct 2, 2012, 9:22:02 AM (12 years ago)
Author:
chronos
Message:
  • Opraveno: Neuvolňovaly se správně registrované stránky.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55backup
        66ZdechovNET.lps
         7heaptrclog.trc

  • trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

    r84 r96  
    4444begin
    4545  with TTCPClientThread(Sender), Socket do begin
    46     WriteLn('Used thrads ' + IntToStr(Parent.ThreadPool.UsedCount) + '. Client connected from ' + GetRemoteSinIP);
     46    WriteLn('Thread ' + IntToStr(Id) + ' from ' + IntToStr(Parent.ThreadPool.UsedCount) + '. Client connected from ' + GetRemoteSinIP);
    4747
    4848    HandlerData := THTTPHandlerData.Create;
    … …  
    5858        repeat
    5959          Line := RecvString(10000);
     60          WriteLn(IntToStr(Id) + ' ' + Line);
    6061          if (LineIndex = 0) then begin
    6162            LineParts.Explode(Line, ' ', StrToStr);
    … …  
    115116      // Send headers
    116117      for I := 0 to Headers.Count - 1 do begin
    117         WriteLn(Headers.Keys[I] + ': ' + Headers.Items[I].Value + #13#10);
     118        //WriteLn(Headers.Keys[I] + ': ' + Headers.Items[I].Value + #13#10);
    118119        SendString(Headers.Keys[I] + ': ' + Headers.Items[I].Value + #13#10);
    119120      end;
Note: See TracChangeset for help on using the changeset viewer.