Changeset 295 for Network/CoolWeb/Persistence

Timestamp:

Nov 15, 2011, 8:46:43 AM (13 years ago)

Author:

george

Message:

• Moved: Units UPool and UResetableThread moved from CoolWeb to Common. Both units redone to more abstract reprezentation.
• Added: New Port property in class TSqlDatabase.

File:

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

Network/CoolWeb/Persistence/USqlDatabase.pas

@@ -39 +39 @@
     FHostName: string;
     FPassword: string;
+    FPort: Word;
     FSession: PMYSQL;
     FConnected: Boolean;
@@ -81 +82 @@
     property UserName: string read FUserName write FUserName;
     property Password: string read FPassword write FPassword;
+    property Port: Word read FPort write FPort;
     property Encoding: string read FEncoding write FEncoding;
     property OnLogQuery: TLogEvent read FOnLogQuery write FOnLogQuery;
@@ -184 +186 @@
 //  FSession.charset := 'latin2';
   NewSession := mysql_real_connect(FSession, PChar(HostName), PChar(UserName),
-    PChar(Password), PChar(Database), 3306, nil, CLIENT_LONG_PASSWORD + CLIENT_CONNECT_WITH_DB);
+    PChar(Password), PChar(Database), FPort, nil, CLIENT_LONG_PASSWORD + CLIENT_CONNECT_WITH_DB);
   if Assigned(NewSession) then begin
     FConnected := True;
@@ -360 +362 @@
   FSession := nil;
   Encoding := 'utf8';
+  FPort := 3306;
 end;