Discussion :

[thierrybo]

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 :

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

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 :

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

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 ?

[Paul TOTH]

est-ce que ceci fonctionne ?

Code delphi :

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

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

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

[thierrybo]

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à !

[peter27x]

est-ce que ceci fonctionne ?

Code delphi :

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

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 delphi :

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

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

Merci.

[Paul TOTH]

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

Code delphi :

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

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 :

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
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

[peter27x]

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 !