opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

TMySQLConnection.SetOption: find defined name of option constant per RTTI and show it in error message (when setting failed)

Browse Source
This commit is contained in:
Ansgar Becker
2024-11-18 07:40:58 +01:00
parent 7588e6afe2
commit ed4fee026d
1 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
source/dbconnection.pas
View File

@@ -5,7 +5,7 @@ interface
uses
System.Classes, System.SysUtils, Winapi.Windows, System.Generics.Collections, System.Generics.Defaults,
System.DateUtils, System.Types, System.Math, Vcl.Dialogs, Data.Win.ADODB, Data.DB, Data.DBCommon, System.Win.ComObj, Vcl.Graphics, Vcl.ExtCtrls, System.StrUtils,
System.AnsiStrings, Vcl.Controls, Vcl.Forms, System.IOUtils, System.IniFiles, System.Variants,
System.AnsiStrings, Vcl.Controls, Vcl.Forms, System.IOUtils, System.IniFiles, System.Variants, Rtti,
SynRegExpr, gnugettext, generic_types,
dbstructures, dbstructures.mysql, dbstructures.mssql, dbstructures.postgresql, dbstructures.sqlite, dbstructures.interbase,
FireDAC.Stan.Intf, FireDAC.Stan.Option,
@@ -3188,11 +3188,31 @@ end;
procedure TMySQLConnection.SetOption(Option: Integer; Arg: PAnsiChar);
var
SetOptionResult: Integer;
RttiContext: TRttiContext;
LibType: TRttiType;
LibField: TRttiField;
FieldName: String;
begin
// Set one of the MYSQL_* option and log a warning if that failed
SetOptionResult := FLib.mysql_options(FHandle, Option, Arg);
if SetOptionResult <> 0 then
Log(lcError, _(SLogPrefixWarning) + ': mysql_options(' + Option.ToString + ', ...) failed!');
if SetOptionResult <> 0 then begin
FieldName := Option.ToString;
// Attempt to find readable name of option constant
RttiContext := TRttiContext.Create;
LibType := RttiContext.GetType(TypeInfo(TMySQLLib));
for LibField in LibType.GetFields do begin
// Skip assigned procedures
if LibField.FieldType = nil then
Continue;
if LibField.DataType.TypeKind = tkInteger then begin
if LibField.GetValue(FLib).AsInteger = Option then begin
FieldName := LibField.Name;
end;
end;
end;
RttiContext.Free;
Log(lcError, _(SLogPrefixWarning) + ': mysql_options(' + FieldName + ', ...) failed!');
end;
end;