Changeset 42 for trunk/WebServer/UHTTPServerTCP.pas

Timestamp:

Nov 21, 2010, 8:49:46 AM (14 years ago)

Author:

george

Message:

• Upraveno: Zbylé výskyty TStringListEx nahrazeny TListString a TDictionaryStringString.

File:

• trunk/WebServer/UHTTPServerTCP.pas (modified) (4 diffs)

trunk/WebServer/UHTTPServerTCP.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UHTTPServer, UTCPServer, UStringListEx, SynaUtil;
+  Classes, SysUtils, UHTTPServer, UTCPServer, SpecializedList, SynaUtil;
 
 type
@@ -30 +30 @@
   Line: string;
   LineIndex: Integer;
-  LineParts: TStringListEx;
+  LineParts: TListString;
   HandlerData: THTTPHandlerData;
   I: Integer;
@@ -46 +46 @@
       LineIndex := 0;
       try
-        LineParts := TStringListEx.Create;
+        LineParts := TListString.Create;
         repeat
           Line := RecvString(10000);
           if (LineIndex = 0) then begin
-            LineParts.Explode(' ', Line);
+            LineParts.Explode(Line, ' ', StrToStr);
             if (LineParts.Count >= 3) then begin
               Request.Method := LineParts[0];
@@ -59 +59 @@
             end;
           end else begin
-            LineParts.Explode(' ', Line, 2);
+            LineParts.Explode(Line, ' ', StrToStr, 2);
             if (LineParts.Count = 2) and (LineParts[0][Length(LineParts[0])] = ':') then begin
               LineParts[0] := Copy(LineParts[0], 1, Length(LineParts[0]) - 1);