FDConnection.GetCatalognames wirft AV

[Delbor]

Hi zusammen

Ich habe meinem Datenmodul eine eigene Klasse zur 'direkten Kommunikation mit dem Server' spendiert. Im wesentlichen sollen damit Sessionvariablen abgerufen/verändert werden können.

Delphi-Quellcode:

  TMySQLCorrespondent = class(TPersistent)
    private{private Declarations}
      FContentmasterConnection : Boolean;
      FCatalogInformation: TStringlist;
      FMaxAllowedPacket: Integer;
    FCatNames: TStringList;
...
      function DefineContentmasterConnection: Boolean;
      function GetPerformanceSchemaConnection: Boolean;
      function GetSessionVarlist: TStringList;
      function GetCatalogInformation: TStringlist;  //<==
    public{public Declarations}
      property ContentmasterConnection2: Boolean read DefineContentmasterConnection;
      property PerformanceSchemaConnection: Boolean read GetPerformanceSchemaConnection;
      property Cataloginformation : TStringlist read GetCatalogInformation;
...

    Constructor Create(AOwner: TObject);
    Destructor Destroy; override;
  end;

So die Deklaration. Einige der Felder und Propertys, die für diesen Thred nicht wichtig sind, habe ich durch Pünktchen ersetzt.
Das Thema ist das Feld FCatNames. Und so wird das verwendet:

Delphi-Quellcode:

constructor TMySQLCorrespondent.Create(AOwner: TObject);
begin
  inherited Create;
  FCatalogInformation := TStringlist.Create;
  FCatNames := TStringList.Create;
end;

destructor TMySQLCorrespondent.Destroy;
begin
  FCatalogInformation.Free;
  FCatNames.Free;
  inherited;
end;

function TMySQLCorrespondent.GetCatalogInformation: TStringlist;
  var i, j: Integer; Catalog: string;
begin
    FDMySQLDml.FDConnectionMySql.GetCatalogNames('', FCatNames);   // AV
    Result := FCatNames;
end;

Die AV wird ausgelöst, weil FCatnames unbekannnt ist, also nicht mal nil.
Was könnte da falsch sein?

Im Anhang noch 3 Jpegs meines Strukturfensters. Aktiv sind dabei:
Struktur1: TCM_First (das Hauptfenster)
Struktur2: TServerInfoFrame
Struktur3: FDMySQLDml (Datenmodul

Gruss
Delbor

Gruss
Delbor

[Uwe Raabe]

Zitat von Delbor:

Die AV wird ausgelöst, weil FCatnames unbekannnt ist, also nicht mal nil.

Wenn es unbekannt wäre, gäbe es keine AV, sondern der Compiler hätte gemeckert. Eine AV kann nur zur Runtime kommen und da hat der Compiler schon alles abgenickt.

Ist FDMySQLDml zu dem Zeitpunkt eigentlich schon initialisiert?

[Delbor]

Hi Uwe Raabe
Ja. FDMySQLDml ist das Datenmodul. Und TMySQLCorrespondent ist da deklariert (vor FDMySQLDml) und ein privates Feld des Datenmoduls.

Gruss
Delbor

[Uwe Raabe]

Du übergibst ja als Rückgabewert in GetCatalogInformation die aktuelle FCatNames-Instanz. Der Rückgabewert wird aber nicht irgendwo freigegeben, oder?

[Delbor]

Hi Uwe Raabe

Zitat:

Der Rückgabewert wird aber nicht irgendwo freigegeben, oder?

Nein.Vorgängig hatte ich mit einer lokalen Liste gearbeitet und sie auch lokal wieder freigegeben - und prompt keinen Rückgabewert erhalten. Daraufhin habe ich die Liste privat deklariert - so kann ich sie auch wieder korrekt freigeben.

Gruss
Delbor

PS: Der Aufruf:

Delphi-Quellcode:

procedure TServerInfoFrame.CatalogInformation;
  var i, j: Integer; Catalog, SQLString: string;
      LIndent : String; CatNames: TStringlist;
begin
  Self.LBxCatalogNames.Items.Insert(0,'procedure TServerInfoFrame.CatalogInformation;');
  Self.LBxCatalogNames.Items.Insert(1,'**********************************************');
  Catnames := TStringlist.Create;
  try
//    FDMySQLDml.FDConnectionMySql.GetCatalogNames('', CatNames);
    Self.LBxCatalogNames.Items.Add('Datenbank: ' + FDMySQLDml.FDConnectionMySql.Params.Database);
    Self.LBxCatalogNames.Items.AddStrings(FDMySQLDml.MySQLCorrespondent.Cataloginformation);  //<< AV

[Delbor]

Hi zusammen

Interessanterweise sind heute morgen die Fehlermeldungen in der Strukturansicht weg. Bin gespannt darauf, was es braucht, bis sie wieder da sind. Erwartet hätte ich, dass die Fehlermeldungen nach dem ersten Durchsteppen wieder da wären...

Am Fehler selbst hat sich nichts geändert. Entgegen meinem ersten Beitrag muss ich mich allerdings etwas korrigieren: Ich habe die Liste mal unter 'Überwachte Ausdrücke' eingetragen. Wenn nun beim durchsteppen die Unit des Datenmoduls aktiv wird, steht unter dem Eintrag der Liste "nicht verfügbarer Wert". Ist die Ausführungsposition bei Durchsteppen auf der entsprechenden Zeile und wenn ich die Maus über den Listenbezeichner halte, erhalte ich genau diese Meldung.


Gruss
Delbor