Changeset 113 for trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

Timestamp:

Oct 16, 2015, 9:14:25 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Release build mode paths.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/PersistentData/Backend/UPDClientMySQL.pas (modified) (2 diffs)

trunk

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg

trunk/Packages/PersistentData/Backend/UPDClientMySQL.pas

@@ -22 +22 @@
     function GetConnected: Boolean; override;
     procedure Init; override;
+    function GetConnectionString: string; override;
   public
     procedure ObjectLoad(AObject: TObjectProxy); override;
@@ -245 +246 @@
 end;
 
+function TPDClientMySQL.GetConnectionString: string;
+begin
+  Result := 'Host:' + Host + ',Port:' + IntToStr(Port) + ',User:' + User +
+    ',Password:' + Password + ',Schema:' + Schema;
+end;
+
 constructor TPDClientMySQL.Create(AOwner: TComponent);
 begin

@@ -6 +6 @@
 ZdechovNET.lps
 heaptrclog.trc
+index.dbg