Changeset 103 for trunk/Packages/CoolWeb/Persistence

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

• trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas (modified) (4 diffs)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -52 +52 @@
     procedure SetConnected(const AValue: Boolean);
     procedure SetDatabase(const Value: string);
+    procedure SetEncoding(AValue: string);
   public
     LastUsedTable: string;
@@ -84 +85 @@
     property Password: string read FPassword write FPassword;
     property Port: Word read FPort write FPort;
-    property Encoding: string read FEncoding write FEncoding;
+    property Encoding: string read FEncoding write SetEncoding;
     property OnLogQuery: TLogEvent read FOnLogQuery write FOnLogQuery;
   end;
@@ -198 +199 @@
   try
     Rows := TDbRows.Create;
-    Query(Rows, 'SET NAMES ' + Encoding);
+    Query(Rows, 'SET NAMES ' + FEncoding);
   finally
     Rows.Free;
@@ -452 +453 @@
 end;
 
+procedure TSqlDatabase.SetEncoding(AValue: string);
+var
+  Rows: TDbRows;
+begin
+  if FEncoding = AValue then Exit;
+  FEncoding := AValue;
+  if Connected then begin
+    try
+      Rows := TDbRows.Create;
+      Query(Rows, 'SET NAMES ' + FEncoding);
+    finally
+      Rows.Free;
+    end;
+  end;
+end;
+
 function TSqlDatabase.EscapeString(Text: string): string;
 var