From 65de4c482e121165aec16642bb7c9c14577780c8 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 20 Sep 2011 17:23:36 +0000
Subject: [PATCH] TMySQLConnection.GetThreadId requires the connection to be
 active. Fixes issue #2561.

---
 source/dbconnection.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index e995c0f3..18a42303 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -1114,8 +1114,8 @@ begin
       ClosePlink;
       raise EDatabaseError.Create(Error);
     end else begin
-      Log(lcInfo, 'Connected. Thread-ID: '+IntToStr(ThreadId));
       FActive := True;
+      Log(lcInfo, 'Connected. Thread-ID: '+IntToStr(ThreadId));
       CharacterSet := 'utf8';
       CurCharset := CharacterSet;
       Log(lcDebug, 'Characterset: '+CurCharset);