Changeset 99 for trunk/Packages


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

    r84 r99  
    5555    LastUsedTable: string;
    5656    LastQuery: string;
     57    function EscapeString(Text: string): string;
    5758    procedure CreateDatabase;
    5859    procedure CreateTable(Name: string);
     
    451452end;
    452453
     454function TSqlDatabase.EscapeString(Text: string): string;
     455var
     456  L: Integer;
     457begin
     458  SetLength(Result, Length(Text) * 2 + 1);
     459  L := mysql_real_escape_string(FSession, PChar(Result), PChar(Text), Length(Text));
     460  SetLength(Result, L);
     461end;
     462
    453463{ TDbRows }
    454464
  • trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

    r98 r99  
    9393      end;
    9494
    95 
    96 
    9795    // Process cookies
    9896    if Request.Headers.SearchKey('Cookie') <> -1 then
Note: See TracChangeset for help on using the changeset viewer.