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

trunk/WebServer/UHTTPServerCGI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UHTTPServer;
+  Classes, SysUtils, UHTTPServer, SpecializedList;
 
 type
@@ -58 +58 @@
       EnvVars.Values['QUERY_STRING'] := Copy(EnvVars.Values['QUERY_STRING'], 1,
         Length(EnvVars.Values['QUERY_STRING']) - 1);
-    Request.QueryParts.Explode('/', EnvVars.Values['QUERY_STRING']);
+    Request.QueryParts.Explode(EnvVars.Values['QUERY_STRING'], '/', StrToStr);
     if Pos('?', EnvVars.Values['REQUEST_URI']) > 0 then
       Request.Query.Parse(Copy(EnvVars.Values['REQUEST_URI'],