Changeset 99 for trunk/Packages/CoolWeb

Timestamp:

Oct 2, 2012, 2:12:16 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul seznamu televizních kanálů TV.

Location:

trunk/Packages/CoolWeb

Files:

• Persistence/USqlDatabase.pas (modified) (2 diffs)
• WebServer/UHTTPServerTCP.pas (modified) (1 diff)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -55 +55 @@
     LastUsedTable: string;
     LastQuery: string;
+    function EscapeString(Text: string): string;
     procedure CreateDatabase;
     procedure CreateTable(Name: string);
@@ -451 +452 @@
 end;
 
+function TSqlDatabase.EscapeString(Text: string): string;
+var
+  L: Integer;
+begin
+  SetLength(Result, Length(Text) * 2 + 1);
+  L := mysql_real_escape_string(FSession, PChar(Result), PChar(Text), Length(Text));
+  SetLength(Result, L);
+end;
+
 { TDbRows }
 

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -93 +93 @@
       end;
 
-
-
     // Process cookies
     if Request.Headers.SearchKey('Cookie') <> -1 then