From c7ca0f8b0fc86bcb212b23c2b8722f0cfd8153a5 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 27 Jun 2009 14:03:32 +0000
Subject: [PATCH] * Possibility to specify character set in connection dialog

git-svn-id: trunk@13339 -
---
 packages/fcl-db/src/datadict/fpddsqldb.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/fcl-db/src/datadict/fpddsqldb.pp b/packages/fcl-db/src/datadict/fpddsqldb.pp
index 8c6803f708..de286144d5 100644
--- a/packages/fcl-db/src/datadict/fpddsqldb.pp
+++ b/packages/fcl-db/src/datadict/fpddsqldb.pp
@@ -57,6 +57,7 @@ Const
   KeyUserName     = 'User';
   KeyPassword     = 'Password';
   KeyEncode       = 'Trivial';
+  KeyCharset      = 'Charset';
 
 implementation
 
@@ -105,6 +106,7 @@ begin
     FConn.Password:=XorDecode(KeyEncode,L.Values[KeyPassword]);
     FConn.LoginPrompt:=False;
     FConn.Connected:=True;
+    FConn.CharSet:=L.Values[KeyCharset];
     FConnected:=True;
     FConnectString:=AConnectString;
     Result:=True;