property type array avec parametre out

Bonsoir,

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

Code:

---

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:

---

property IsSucceeded[out Message: WideString]

---

que je ne comprends pas au niveau syntaxe.

Dans mon code je l'appel comme ça

Code:

---

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

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

dans ton appel

Code:

---

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:

---

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:

---

1 2 3 4 5 6

destructor TCoquille.Destroy(); begin FreeAndNil(FConnMaitre);   inherited Destroy(); end;

---