différence typage objet Delphi /VB

Bonjour,

voila je suis débutant en Delphi et en VB, et je dois utiliser un objet com pour lesquels j'ai des exemples en VB que je souhaite convertir en Delphi.

En VB j'ai ça :

Code:

---

1 2	Dim ObjetClient As IBOClient3 ObjetClient = BaseCpta.FactoryClient.Create

---

En VB le create me renvoie un objet IBIPersistObject qui n'est donc pas du type IBOClient3, mais pourtant ça marche.

En Delphi, l'équivalent :

Code:

---

1 2	var ObjetClient : IBOClient3; ObjetClient := BaseCpta.FactoryClient.Create;

---

et la Delphi me dit ce qui est logique :
Types incompatibles : IBOClient3 et IBIPersistObject


Pourquoi VB l'accepte alors qu'on a déclaré le bon typet pas Delphi ?

est-ce que ceci fonctionne ?

Code:

---

1 2 3

var ObjetClient : IBOClient3; ObjetClient := BaseCpta.FactoryClient.Create as IBOClient3;

---

c'est à dire de demander à l'objet retourné l'interface attendue :)

Ouaah, merci ça marche, encore un truc de plus que j'ai appris. Je suis des tutoriels mais je n'était pas encore arrivé là !

Citation:

---

Envoyé par Paul TOTH

est-ce que ceci fonctionne ?

Code:

---

1 2 3

var ObjetClient : IBOClient3; ObjetClient := BaseCpta.FactoryClient.Create as IBOClient3;

---

c'est à dire de demander à l'objet retourné l'interface attendue :)

---

Juste par curiosité, quelle est la (les) différence avec:

Code:

---

1 2 3

var ObjetClient : IBOClient3; ObjetClient := IBOClient3(BaseCpta.FactoryClient.Create);

---

Merci.

Citation:

---

Envoyé par peter27x

Juste par curiosité, quelle est la (les) différence avec:

Code:

---

1 2 3

var ObjetClient : IBOClient3; ObjetClient := IBOClient3(BaseCpta.FactoryClient.Create);

---

Merci.

---

Dans le premier cas tu invoques (enfin Delphi le fait pour toi) IUnknown.QueryInterface, dans le second cas tu indiques à Delphi que ce qu'il pense être un type en est en réalité un autre.

voici un code qui met cela en valeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

type Interface1 = Interface ['{6C723D5D-FE43-4C50-B0B2-777E73CAF16D}'] procedure test; end;   Objet1 = class(TInterfacedObject, Interface1) procedure Test; end;   procedure Objet1.Test; begin ShowMessage('Test'); end;   procedure TForm1.FormCreate(Sender: TObject); var o1 : Objet1; un : IUnknown; i1 : Interface1; begin o1 := Objet1.Create; un := o1; i1 := un as Interface1; i1.Test; // "Test" i1 := Interface1(un); i1.Test; // plantage EAccessViolation à l'adresse 1 end;

---

l'access violation montre bien qu'on cherche à lire l'adresse de la première fonction de l'interface alors qu'elle n'existe pas car contrairement à ce qu'on dit à Delphi, "un" n'implémente pas Interface1 :)

Citation:

---

Envoyé par Paul TOTH

l'access violation montre bien qu'on cherche à lire l'adresse de la première fonction de l'interface alors qu'elle n'existe pas car contrairement à ce qu'on dit à Delphi, "un" n'implémente pas Interface1 :)

---

OK, merci !