Move *.pas, *.dfm and *.inc files from root directory to a new "source" subdirectory. Leaving just the readme in the root to give all newbies a very clear and unique starting point.

source/mysqlconn.pas

@@ -0,0 +1,108 @@
+unit MysqlConn;
+
+interface
+
+uses ZConnection, ExtCtrls, MysqlQueryThread;
+
+const
+  // connection attemp result codes
+  MCR_SUCCESS = 0;
+  MCR_FAILED = 1;
+
+type
+
+
+  TMysqlConn = class
+    private
+      FConn : TZConnection;
+      FOpenConn : TOpenConnProf;
+      FLastError : String;
+    function GetDescription: String;
+    function GetIsAlive: Boolean;
+    function GetIsConnected: Boolean;
+      //FTimer : TTimer;
+    public
+      constructor Create(AConn : POpenConnProf);
+      destructor Destroy(); override;
+      function Connect() : Integer;
+      property IsConnected : Boolean read GetIsConnected;
+      property IsAlive : Boolean read GetIsAlive;
+      property Connection : TZConnection read FConn;
+      property LastError : String read FLastError;
+      property Description : String read GetDescription;
+  end;
+
+implementation
+
+uses SysUtils;
+
+{ TMysqlConn }
+
+constructor TMysqlConn.Create;
+begin
+  FConn := TZConnection.Create(nil);
+  FOpenConn := AConn^;
+  FLastError := '';
+end;
+
+function TMysqlConn.Connect(): Integer;
+begin
+  FLastError := '';
+
+  with FOpenConn.MysqlParams do
+    begin
+      FConn.Protocol := 'mysql';
+      FConn.Hostname := Host;
+      FConn.User := User;
+      FConn.Password := Pass;
+      FConn.Port := Port;
+
+      FConn.Properties.Values['compress'] := PrpCompress;
+      FConn.Properties.Values['timeout'] := PrpTimeout;
+      FConn.Properties.Values['dbless'] := PrpDbless;
+      FConn.Properties.Values['CLIENT_LOCAL_FILES'] := PrpClientLocalFiles;
+      FConn.Properties.Values['CLIENT_INTERACTIVE'] := PrpClientInteractive;
+      // ZConn.Properties.Values['USE_RESULT'] := 'true'; // doesn't work
+      // ZConn.Properties.Values['CLIENT_SSL'] := 'true'; // from an mdaems's example
+    end;
+
+  try
+    FConn.Connect();
+    Result := MCR_SUCCESS;
+  except
+    // todo: handle exception
+    on E : Exception do
+      begin
+        FLastError := E.Message;
+        Result := MCR_FAILED;
+      end;
+  end;
+end;
+
+
+
+destructor TMysqlConn.Destroy;
+begin
+  FreeAndNil (FConn);
+  inherited;
+end;
+
+function TMysqlConn.GetDescription: String;
+begin
+  result := FOpenConn.Description;
+end;
+
+function TMysqlConn.GetIsAlive: Boolean;
+begin
+  Result := False;
+  if IsConnected then Result := FConn.Ping();
+end;
+
+function TMysqlConn.GetIsConnected: Boolean;
+begin
+  Result := FConn.Connected;
+end;
+
+
+
+end.