Discussion :

[Chupakabra]

bonjour tous,

j'ai un gros souci avec une utilisation des plus basique dans les BPL.
je souhaite assigné une procedure X à une propriété (evenement perso) d'un Object chargé depuis un bpl.
malheureusement je me retrouve avec le message 'pas assez de parametres originaux'.
J'ai l'impression que Delphi ne veut pas que j'assigne ma methode comme on peut le faire avec des TNotifyEvent habituellement et demande les parametres necessaires a l'appel de cette methode.

j'ai testé SetPropValue SetMethodProp mais rien ne marche. voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
type
  TEventError = procedure (CatchException: Exception;TypErr: TEnumErr; Mess: String) of Object;
...
procedure ThrowError(CatchException: Exception;TypErr: TEnumErr; Mess: String);
...
property ErrorEvent : TEventError read FOnErrorEvent write FOnErrorEvent;
...
  //v : variant avec throwError assigné à ErrorEvent
  if IsPublishedProp(LoadObject,'OnErrorEvent') then 
  begin
    v := ErrorEvent;
    SetPropValue(LoadObject,'OnErrorEvent',v);
  end;
 
   ou
 
   //v: Tmethod
    v := ThrowError;
    SetMethodProp(LoadObject,'OnErrorEvent',v);

Quelqu'un est t il deja passé par là?

[Pedro]

Salut
déjà il y a un truc bizarre:
Tu déclares ta propriété ErrorEvent puis tu testes sur OnErrorEvent...
Ensuite, tu pourrais nous montrer comment tu assignes v?

[Chupakabra]

c'est parce que OnErrorEvent est la propriete de l'objet chargé.
et sinon je prends juste une variable dans ma procedure qui fait cet appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
var v : variant;
 ou
var v : TMethod;

mais rien ne passe.

[Chupakabra]

Je vais pas me casser la tete je vais tester la chose suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if IsPublishedProp(TeachObject,'OnErrorEvent') then
            begin
              v.Data := Self;
              v.Code := MethodAddress('ThrowError');
              SetMethodProp(TeachObject,'OnErrorEvent',v);
            end;

Advienne que pourra je recompile tout ca en test

[Chupakabra]

Ca marche! ca tombe bien parce que je vais meme pouvoir aller en week end le coeur leger.

J'aurais du repartir de la base des le debut.

Par contre juste pour prevenir, si throwerror ne passe pas en published Code sera a nil et creera des Runtime Error si l'evenement OnErrorEvent est appelé. Le test "if Assigned(OnErroEvent) then" dans le paquet ne changera rien à la donne. C'est fort dommage.

Le mieux serait encore de rajouter un if Code<>nil apres le methodaddress pour coder proprement. mais je ne vois pas exactement comment proteger le code dans le paquet...