Ignore:
Timestamp:
Dec 26, 2011, 12:07:37 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: Testování varianty HTTP serveru jako přímé obsluhy přes TCP. Momentálně není odděleno generování stránek pro použití z více vláken.
  • Upraveno: Třída uchování jména počítač nyní pro převod do IPv4 používá ověření správnosti namísto přímého převodu a zahlášení výjimky.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Components/CoolWeb/WebServer/UHTTPServerCGI.pas

    r67 r68  
    6666      repeat
    6767        Count := InputStream.Read(Buffer[1], Length(Buffer));
    68         Request.Content.Write(Buffer[1], Count);
     68        if Count > 0 then Request.Content.Write(Buffer[1], Count);
    6969      until Count = 0;
    7070    finally
    … …  
    7777
    7878    // Load data
    79     if Request.Headers.IndexOfName('Content-length') <> -1 then
     79    (*if Request.Headers.IndexOfName('Content-length') <> -1 then
    8080    try
    8181      InputStream := TIOStream.Create(iosInput);
    … …  
    8383    finally
    8484      InputStream.Free;
    85     end;
     85    end;  *)
    8686
    8787    // Load environment variables
Note: See TracChangeset for help on using the changeset viewer.