with ConMySQLMainForm do<br> begin<br> ConnectionName := 'xxxxxx';<br> DriverName := 'MySQL';<br> GetDriverFunc := 'getSQLDriverMYSQL';<br> LibraryName := 'dbexpmysql.dll';<br> VendorLib := 'libmysql.dll';<br> LoginPrompt := False;<br> KeepConnection := False;<br> end;<br> ConMySQLMainForm.BeforeConnect := MySQLBeforeConnect;<br>----------------------------------------------------------<br><br>procedure TMain.MySQLBeforeConnect(Sender: TObject);<br>begin<br> with ConMySQLMainForm do<br> begin<br> params.Values['HostName'] := MySQLHostName;<br> params.Values['Database'] := MySQLDataBase;<br> params.Values['User_Name'] := MySQLUser;<br> params.Values['Password'] := MySQLPassword;<br> params.Values['BlobSize'] := '-1';<br> params.Values['ErrorResourceFile'] := '';<br> params.Values['LocaleCode'] := '0000';<br> end;<br>end;