Discussion :

[Magohamoths]

Bonsoir,

Avec tlibimp.exe j'ai généré un tlb.
Dans le tlb j'ai les définitions ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
    function Get_IsSucceeded(out Message: WideString): WordBool; safecall;
 
    property IsSucceeded[out Message: WideString]: WordBool read Get_IsSucceeded;
 
    function TConnection.Get_IsSucceeded(out Message: WideString): WordBool;
    begin
        Result := DefaultInterface.IsSucceeded[Message];
    end;

Ce qui me gène c'est le

Code :

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

property IsSucceeded[out Message: WideString]

que je ne comprends pas au niveau syntaxe.

Dans mon code je l'appel comme ça

Code :

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

Result := FConnMaitre.IsSucceeded[MyMessage];

ça fonctionne mais à la fermeture de l'exe j'ai un runtime error ?

Q1 : Comment fonctionnne cette déclaration ?

Q2 : Mon appel est'il correcte ?

Merci

[ShaiLeTroll]

un paramètre de sortie sur une property c'est original !

dans ton appel

Code :

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

Result := FConnMaitre.IsSucceeded[MyMessage];

MyMessage est vide AVANT l'appel
MyMessage contient peut-être quelque chose !
On peut penser que cela reste vite en cas de succès et que cela joue le role de GetLastError en cas d'echec !

ton code pourrait être

Code :

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

1
2
3
4
5
6
var
  MyMessage: string;
begin
  if not FConnMaitre.IsSucceeded[MyMessage] then
    ShowMessage(MyMessage);
end;

Pense au Free de FConnMaitre, tu as peut-être oublié de libérer l'objet d'où le RunTime Error (217 ???)

Je te déconseille de modifier le TLB généré
Il est plus prudent de faire un objet qui encapsule (par héritage ou composition à ta préférence) cet objet COM
Si tu as modifié un DESTRUCTOR n'oublie pas le inherited Destroy

Code :

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

1
2
3
4
5
6
destructor TCoquille.Destroy();
begin
  FreeAndNil(FConnMaitre);
 
  inherited Destroy();
end;