Guten Abend,
ich erstelle per runtime die Komponente TUniConnection
Delphi-Quellcode:
Connect := TUniConnection.Create(nil);
Connect.Port := MYSQL_PORT;
Connect.ProviderName := MYSQL_PROVIDER;
Connect.Server := MYSQL_SERVER;
Connect.Username := MYSQL_USERNAME;
Connect.Database := MYSQL_DATABASE;
Connect.Password := MYSQL_PASSWORD;
Connect.Options.DisconnectedMode := True;
Connect.Options.LocalFailover := True;
Connect.OnConnectionLost := ConnectionConnectionLost; // <-----
Connect.Connect;
Delphi-Quellcode:
procedure ConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
begin
RetryMode := rmReconnectExecute;
end;
Leider funktioniert die Zuweisung so nicht.
(E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur')
Wenn ich das über eine Klasse regel
Zitat:
type
TUni_connection = class
private
public
procedure ConnectionConnectionLost(Sender: TObject;
Component: TComponent; ConnLostCause: TConnLostCause;
var RetryMode: TRetryMode);
end;
erhalte ich den Fehler (wärend der Laufzeit), EReadError "Ungültiger Eigenschaftswert"
Wie löse ich das am besten?