Changeset 42 for trunk/WebServer/UHTTPServer.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/UHTTPServer.pas (modified) (5 diffs)

trunk/WebServer/UHTTPServer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
-  Synautil, UStringListEx, SpecializedObjectList;
+  Synautil, SpecializedObjectList, SpecializedList;
 
 type
@@ -29 +29 @@
   THTTPRequest = class
     Query: TQueryParameterList;
-    QueryParts: TStringListEx;
+    QueryParts: TListString;
     Path: string;
     Method: string;
@@ -253 +253 @@
 begin
   Query := TQueryParameterList.Create;
-  QueryParts := TStringListEx.Create;
+  QueryParts := TListString.Create;
   Headers := TStringList.Create;
   Cookies := TCookieList.Create;
@@ -272 +272 @@
 var
   I: Integer;
-  Parts: TStringListEx;
-  Pair: TStringListEx;
+  Parts: TListString;
+  Pair: TListString;
 begin
   try
-    Parts := TStringListEx.Create;
-    Pair := TStringListEx.Create;
+    Parts := TListString.Create;
+    Pair := TListString.Create;
     Clear;
-    Parts.Explode('&', Text);
+    Parts.Explode(Text, '&', StrToStr);
     for I := 0 to Parts.Count - 1 do begin
-      Pair.Explode('=', Parts[I]);
+      Pair.Explode(Parts[I], '=', StrToStr);
       if Pair.Count >= 2 then
         Values[Pair[0]] := Pair[1];
@@ -307 +307 @@
 var
   I: Integer;
-  Parts: TStringListEx;
-  Pair: TStringListEx;
+  Parts: TListString;
+  Pair: TListString;
 begin
   try
-    Parts := TStringListEx.Create;
-    Pair := TStringListEx.Create;
+    Parts := TListString.Create;
+    Pair := TListString.Create;
     Clear;
-    Parts.Explode(';', Text);
+    Parts.Explode(Text, ';', StrToStr);
     for I := 0 to Parts.Count - 1 do begin
-      Pair.Explode('=', Parts[I]);
+      Pair.Explode(Parts[I], '=', StrToStr);
       if Pair.Count >= 2 then
         Values[Trim(Pair[0])] := Trim(Pair[1]);