Pb Transtypage Property IDispatch

Bonsoir à tous,

Pour ceux que ça interesse, voici la solution:
Rappel du Pb:

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
 
// Fichier Excel2000.pas
_Workbook = interface(IDispatch)
    ['{000208DA-0000-0000-C000-000000000046}']
	....
	....
// La propriété posant problème...  	
      property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
end;
 
// Fichier Office2000.pas
DocumentProperties = interface(IDispatch)
    ['{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}']
    ...
    function Get_Item(Index: OleVariant; lcid: Integer; out ppIDocProp: DocumentProperty): HResult; stdcall;
 
end;
 
DocumentProperty = interface(IDispatch)
    ['{2DF8D04E-5BFA-101B-BDE5-00AA0044DE52}']
    ...   
    function Get_Value(lcid: Integer; out pvargRetVal: OleVariant): HResult; stdcall;
    ...
end;

Nous retrouvons en effet les méthodes nous intessant:
CustomDocumentProperties.Get_Item['Nom Prop].Get_Value...

Méthode pour Lire une propriété dans notre classeur...

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
30
31
32
33
34
35
36
37
38
39
40
41
42
 
uses
    Variants, VarUtils, Excel2000, Office2000;
 
function TWbInstance.GetDocumentProperties(PropName: string): OleVariant;
const
// GUID de l'Interface CustomProperties
   IID_DocumentProperties: TGUID = '{2DF8D04D-5BFA-101B-BDE5-00AA0044DE52}';
var
   IProps  : DocumentProperties;
   IProp   : DocumentProperty;
   Value   : OleVariant;
begin
   Result:= UnAssigned;
   if(ExcelApp.Workbooks.Count <> 0)then
   begin
      ExcelApp.ActiveWorkbook.CustomDocumentProperties.QueryInterface(IID_DocumentProperties, IProps);
      if Assigned(IProps)then
      try
         IProps.Get_Item(PropName, 0, IProp);
         IProp.Get_Value(0, Value);
         Result:= Value;
      finally
         IProp:= nil;
         IProps:= nil;
         VariantClear(TVarData(Value));
      end;
   end;
end;
 
// Méthode appelante...
function TWbInstance.GetWorkPath: string;
var
   V : OleVariant;
begin
   Result:= '';
   V:= GetDocumentProperties('WorkPath');
   if not VarIsEmpty(V)then
   begin
      Result:= VarToStr(V);
   end;
end;

Voila c'est tout

Laurent