Hi zusammen
@Bra: Ich hab das Result := False; mal eingefügt. Allerdings hatte ich noch einen kleinen Test vor:
Delphi-Quellcode:
procedure TServerInfoFrame.Button2Click(Sender: TObject);
var ConnOk : String;
begin
if FDMySQLDml.FDConnectionMySql.Connected then
ConnOK := 'FDMySQLConnection := True;'
else
ConnOK := 'FDMySQLConnection := False;';
Showmessage(ConnOK);
end;
Vorgängig hatte ich meinen Funktionsaufruf deaktiviert:
Delphi-Quellcode:
// if not FDMySQLDml.DefineContentmasterConnection then ;
// begin;
// ShowMessage(' Die Verbindung konnte nicht hergestellt werden');
// // An dieser Stellle muss geeignet reagiert werden können
// end;
//// FDMySQLDml.DefineContentmasterConnection;
Die da festgelegte Verbindungsdefinition wurde also nicht ausgeführt.
Jetzt gab ConnOK True zurück.
Dabbei wurden offensichtlich die Definitionen aus dem
OI verwendet. Nicht ganz verstanden habe ich, wieso meine eigen Funktion False zurückgibt, da ich an Result ja explizit True zugewiesen habe.
Gruss
Delbor