Discussion :

[annemarie]

bonjour,

j'ai un soucis et je tourne en rond. Je dois interfacer un objet com et l'affection d'une chaine de caractère à un champ texte à un objet de l'interface génère une erreur dans la ndll.dll. J'ai un exemple en VB qui marche.

Si quelqu'un a une idée.

Code VB qui marche

Code :

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

1
2
3
4
5
6
  If Engine.GetSceneByName("Webcams_duel", SceneObj) Then
            Dim TextObj As xpTextObject
 
            If SceneObj.GetObjectByName("Webcam1_text", TextObj) Then
                TextObj.Text = 'toto'
            End If

TLB de l'objet com

Code :

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

1
2
3
4
5
6
7
 
 IxpTextObject = interface(IxpTexturedObject)
    ['{A64CFD48-EC26-4C6F-8D7C-78F2B9F211C0}']
    function Get_Text: WideString; safecall;
    procedure Set_Text(const Text: WideString); safecall;
    .....
    property Text: WideString read Get_Text write Set_Text;

Mon code

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
 
var
  SceneObj: IxpScene;
  BaseObject: IxpBaseObject;
  TextObj: IxpTextObject;
 
begin
      .......
      if SceneObj.GetObjectByName('Webcam1_text', BaseObject) then
      begin
        TextObj := BaseObject as IxpTextObject;
        if TextObj <> nil then
        begin
          TextObj.Text := 'toto';   <-- endroit du plantage ntdll.dll
        end;
      end;

Dans le TLB il y a aussi les objets TxpTextObject mais je ne sais pas comment associer l'interface à l'objet.

les dev se font en D7 mais l'équivalent en D2010 a donné la même chose.
Bref je suis en panne ....

[Rayek]

Pourquoi passer par BaseObject dans le GetObjectByName ?
Si on regarde le code VB, TextObj est directement passé dans cette fonction

Code :

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

1
2
3
4
5
6
7
8
 
  if SceneObj.GetObjectByName('Webcam1_text', TextObj ) then
      begin
        if TextObj <> nil then
        begin
          TextObj.Text := 'toto';   
        end;
      end;

[annemarie]

je passe par le BaseObject car le GetObjectByName demande en delphi un IxpBaseObject et non un IxpTextObject. J'ai essayé et à la compilation, il ne veut pas faire le transtypage.
Par contre cela me donne l'idée de'essayer le transtypage inverse ... je vais essayer

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
 
// *********************************************************************//
// Déclaration de CoClasses définies dans la bibliothèque de types        
// (REMARQUE: On affecte chaque CoClasse Ã* son Interface par défaut)      
// *********************************************************************//
  xpEngine = IxpEngine;
  xpScene = IxpScene;
  xpAnimController = IxpAnimController;
  xpBaseObject = IxpBaseObject;
 
....
 
IxpScene = interface(IDispatch)
    ['{CA823AF9-A276-4875-B3E1-655B5076D5DB}']
    function GetObjectByName(const Name: WideString; out BaseObject: xpBaseObject): WordBool; safecall;

[annemarie]

A force de bidouille en espérant comprendre et avouant que ça me dépasse un peu j'ai réussi à le faire marcher. Une petite explication des experts serait la bien venue pour les blondes (et blonds) qui tricottent en Delphi. Et une amélioration de tout ça me semblerait nécessaire ....

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
 
var
  SceneObj: IxpScene;
  BaseObject: IxpBaseObject;
  TextObjI: IxpTextObject;
  TextObj: TxpTextObject;
 
    if Engine.GetSceneByName(XpressScene, SceneObj, False) then
    begin
      if SceneObj.GetObjectByName('Webcam1_text', BaseObject) then
      begin
        TextObjI := BaseObject as IxpTextObject;
        TextObj := TxpTextObject.Create(self);
        try
          TextObj.ConnectTo(TextObjI);
          if TextObj <> nil then
          begin
            TextObj.Text := 'toto';
          end;
        finally
          TextObj.Disconnect;
          TextObj.Free;
        end;

[Paul TOTH]

c'est pour le moins étrange...as-tu regardé le constructeur et les méthodes ConnectTo et SetText de TxpTextObject ?

[annemarie]

Cela ressemble à ça. Etant une bille dans les interfaces et l'OleServer, j'aime bien quand çà marche et déteste quand ça marche pas. Mais je ne me suis jamais aventurée plus loin... A tort surement ... mais bon.

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
30
31
32
33
34
35
36
37
38
 
TxpTextObject = class(TOleServer)
  private
    FIntf: IxpTextObject;
....
  protected
    procedure InitServerData; override;
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  property DefaultInterface: IxpTextObject read GetDefaultInterface;
 
.........
 
constructor TxpTextObject.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TxpTextObjectProperties.Create(Self);
{$ENDIF}
end;
 
procedure TxpTextObject.ConnectTo(svrIntf: IxpTextObject);
begin
  Disconnect;
  FIntf := svrIntf;
  ConnectEvents(FIntf);   //--procedure du OleServer
end;
 
 
procedure TxpTextObject.Set_Text(const Text: WideString);
  { Avertissement : cette propriété Text a un setter et un getter dont
    les types ne concordent pas. Delphi n'a pas pu générer une
    propriété de cette sorte et utilise donc un Variant à la place. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Text := Text;
end;

[Paul TOTH]

COM c'est pas ce qu'il y a de plus simple en même temps

ceci dit je vois commentaire très intéressant dans le code, selon Delphi il y a un problème entre le getter et le setter...

essaie de faire la même chose

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
 
var
  SceneObj: IxpScene;
  BaseObject: IxpBaseObject;
  TextObj: IxpTextObject;
  iVariant: OleVariant;
 
begin
      .......
      if SceneObj.GetObjectByName('Webcam1_text', BaseObject) then
      begin
        TextObj := BaseObject as IxpTextObject;
        if TextObj <> nil then
        begin
          iVariant := TextObj;
          iVariant.Text := 'toto';   <-- endroit du plantage ntdll.dll
        end;
      end;

voir même plus haut dans le code si c'est possible (iVariant := BaseObject, ou carrément iVariant au niveau de GetObjectByName)...en fait avec un Variant tu passes pas une dispinterface et l'invocation est dynamique (sans contrôle à la compilation), avec une Interface la structure est définie à la compilation et si elle est mal définie ça plante à l'exécution


quand à l'objet TxpTextObject il permet de récupérer les évènements COM de l'objet COM associé (OnChange, etc...)

[ShaiLeTroll]

Pour l'utilisation de OleVariant
Si tu veux pousser le sujet cherche Late Binding (classiquement en VB Script) et Early Binding (typique en Delphi)

Sinon, ce n'est pas spécialement le COM qui est complexe mais souvent l'implémentation douteuse qui ne respecte pas les fondamentaux Automation !

Pour ConnectTo, ça c'est une bidouille Borland des "composants enveloppe" (wrapper)
C'est souvent le symptôme d'une utilisation de Late Binding au sein d'un Early Binding parce que justement la TLB n'est pas conforme (la dessus on peut faire tout et n'importe quoi d'ailleurs, le .NET est bcp plus rigoureux à ce sujet)

Est-ce que tes XPBaseObject on un rapport à la couche eXpress Persistent Objects de DevExpress ?
Ou est-ce totalement autre chose ?

[annemarie]

non cela n'a rien à voir avec les Dev Express que j'utilise au demeurant, mais il s'agit du pilotage d'un moteur graphique sur carte Matrox. Le moteur se pilote en COM.

Je vais étudier tous vos commentaires et liens, en tout cas merci beaucoup.

[videaste]

bonjour,

je ne sais pas si tu travaille encore sur le ROSS mais si tu veux on peut s'échanger des infos

a+

videaste