TuniConnection

[youuu]

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?

[himitsu]

Indem du das machst, was da steht?

Das darft halt keine Prozedur, sondern muß eine Methode sein.

[youuu]

Hm, hast noch meinen 2. Versuch gesehen über eine Klasse? Damit startet das Programm, allerdings meckert es dann, siehe 1. Post.

[himitsu]

TUni_connection ist auch instanziiert?

Und wo tritt denn diese Exception auf?

[youuu]

Ja ist initialisiert.

Fehler beim Lesen von Connection.OnConnetionLost: Ungültiger Eigentschaftswert


Edit: Ok Fehler liegt woanderst.

[himitsu]

Du lässt jetzt das Event über den FormDesigner/Objektinspektor zuweisen?

Wenn ja, dann muß diese Event published sein.

[mkinzler]

Oder man verwendet eine anonyme Methode:

Delphi-Quellcode:

connect.OnConnectionLost := procedure (Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
begin
  RetryMode := rmReconnectExecute;
end;

[himitsu]

Aber nicht laut der Deklaration.
http://www.devart.com/unidac/docs/in...ficoptions.htm

Für mich sieht das nur nach einer Methode aus.
Und wenn anonyme Methoden gehen würden, dann hätte man auch die Prozedur zuweisen können, da derartige Referenzen/Zeiger alle 3 Varianten enthalten können.

[mkinzler]

Lut Delphihilfe sollte es funktionieren:

http://docwiki.embarcadero.com/RADSt...onyme_Methoden

[Sir Rufo]

Zitat von mkinzler:

Lut Delphihilfe sollte es funktionieren:

http://docwiki.embarcadero.com/RADSt...onyme_Methoden

Wo steht das da?

Dort wird nur der umgekehrte Fall beschrieben

Delphi-Quellcode:

type
  TFoo = class
    procedure Bar( Sender : TObject );
  end;

procedure Bar( Sender : TObject );
begin
end;

procedure test;
var
  LEvent : TNotifyEvent;
  LProc : TProc<TObject>;
  LFoo : TFoo;
begin
  LProc := LFoo.Bar;
  LProc := Bar;
  LProc := procedure ( Sender : TObject ) 
  begin
  end;

  LEvent := LFoo.Bar;
  // der Rest geht nicht
  LEvent := Bar;
  LEvent := procedure ( Sender : TObject )
  begin
  end;
end;