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;

[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