Discussion :

[Neuromancien2]

Bonjour,

Dans une unité, j'ai défini l'interface suivante :

Code :

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

1
2
3
ICustomer = interface
    procedure Update;
end;

Dans une autre unité, j'ai défini la classe suivante qui implémente cette interface :

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
TActivitySector = class(ICustomer)
    FName : string;
    FSquareEconomy : TSquareEconomy;
    FWorkers : integer;
    FWare : TWare;
    FProduction : integer;
    { Liste des ressources utilisées par le secteur }
    FRessources : array of TWare;
    constructor Create(ASquareEconomy: TSquareEconomy);
    procedure ComputeProduction;
    procedure Update;
 end;
 
procedure TActivitySector.Update;
begin
  //
end;

A la compilation j'obtiens les erreurs suivantes :

Code :

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

1
2
3
economy.pas(13,21) Error: No matching implementation for interface method "IUnknown.QueryInterface(const TGuid,out <Formal type>):LongInt;StdCall" found
economy.pas(13,21) Error: No matching implementation for interface method "IUnknown._AddRef:LongInt;StdCall" found
economy.pas(13,21) Error: No matching implementation for interface method "IUnknown._Release:LongInt;StdCall" found

[Alcatîz]

Bonjour !

Je n'ai jamais géré les objets COM avec Free Pascal mais il me semble que les trois méthodes du type IUnknown sont déclarées comme abstract et que leur implémentation est réalisée dans la classe tInterfacedObject.

Comme ceci ça devrait passer :

Code :

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

1
2
TActivitySector = class(tInterfacedObject)
...

J'espère ne pas avoir dit de c***