TStrings en automation

Version imprimable

01/09/2017, 11h31
Papy214

TStrings en automation

Bonjour

Je reprends par nécessité un vieux tuto sur les server com qui était basé sur Delphi 5.
C'est un simple TMemo qu'il automatiser.
Le tuto dit à un moment de creér une propriété de type IStrings mais ça n'existe pas dans la liste de choix.
Que faudrait-il prendre en remplacement ?

J'ai oublié de préciser que je suis sur Tokyo
01/09/2017, 14h42
ShaiLeTroll

C'est à toi d'ajouter via l'Editeur de TLB * IStrings, il doit falloir ajouter le type dans la biblothèque pour que ton utilisateur puisse l'utilise car il lui faut connaitres les GUID et DispID pour son binding
Si tu donnais le lien vers le tutoriel D5 cela aiderait !

Personnellement, je retournais une interface dédiée de mon cru avec un Count et Items, car souvent les items était rarement juste une liste de chaine mais plutôt une liste de record

Citation:

Si tu donnais le lien vers le tutoriel D5 cela aiderait !

C'est le bouquin d'Eric Harmon : "DELPHI COM programming" . Il n'est pas sur le net.

Le tuto présente la création d'un "server out of process" avec un simple TMemo pour lequel on peut changer la couleur, la fonte, ou le texte.
Le programme en lui-même est ridiculement petit.
L'ajout des fonctions appelées par l'interface est simple aussi.
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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 unit Unit24; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm24 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; FontDialog1: TFontDialog; ColorDialog1: TColorDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Déclarations privées } public function GetColor: TColor; procedure SetColor(AColor: TColor); function GetFont: TFont; procedure SetFont(AFont: TFont); function GetText: TStrings; procedure SetText(AText: TStrings); end; var Form24: TForm24; implementation {$R *.dfm} procedure TForm24.Button1Click(Sender: TObject); begin if FontDialog1.Execute then Memo1.Font.Assign(FontDialog1.Font); end; procedure TForm24.Button2Click(Sender: TObject); begin if ColorDialog1.Execute then Memo1.Color := ColorDialog1.Color; end; function TForm24.GetColor: TColor; begin Result := Memo1.Color; end; function TForm24.GetFont: TFont; begin Result := Memo1.Font; end; function TForm24.GetText: TStrings; begin Result := Memo1.Lines; end; procedure TForm24.SetColor(AColor: TColor); begin Memo1.Color := AColor; end; procedure TForm24.SetFont(AFont: TFont); begin Memo1.Font.Assign(AFont); end; procedure TForm24.SetText(AText: TStrings); begin Memo1.Lines.Assign(AText); end; end.
Après, le tuto dit d'aller dans le "Type Library Editor" et:

Citation:

Add a read/write property named Text, and set the Type to IStrings

Problème, ce type existait peut-être en D5 mais pas dans Tokyo.
Alors je veux bien ajouter le type IStrings quelque part, mais le tuto n'en parle pas quand je le suis pas à pas.
C'est pour ça que je me dis qu'un nouveau type équivalent doit exister mais tous ceux que je vois ne ressemble pas vraiment à ce qui est demandé :-(

Bonjour,

je sais pas si ça peut aider mais dans l'unité "StdVcl.pas" (System.Win.StdVCL.pas) il y a ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ Collection Interface for TStrings }
 
  IStrings = interface(IDispatch)
    ['{EE05DFE2-5549-11D0-9EA9-0020AF3D82DA}']
    function Get_ControlDefault(Index: Integer): OleVariant; safecall;
    procedure Set_ControlDefault(Index: Integer; Value: OleVariant); safecall;
    function Count: Integer; safecall;
    function Get_Item(Index: Integer): OleVariant; safecall;
    procedure Set_Item(Index: Integer; Value: OleVariant); safecall;
    procedure Remove(Index: Integer); safecall;
    procedure Clear; safecall;
    function Add(Item: OleVariant): Integer; safecall;
    function _NewEnum: IUnknown; safecall;
    property ControlDefault[Index: Integer]: OleVariant read Get_ControlDefault write Set_ControlDefault; default;
    property Item[Index: Integer]: OleVariant read Get_Item write Set_Item;
  end;

Cordialement,
@+

04/09/2017, 09h35
Papy214

Je vais ajouter ça et voir ce que ça donne.

Mais c'est tiré de quelle version de Delphi ? D5 ?

Merci
04/09/2017, 12h52
Cirec

Citation:

Envoyé par Papy214

Je vais ajouter ça et voir ce que ça donne.

Mais c'est tiré de quelle version de Delphi ? D5 ?

Merci

tout ce que je peux te dire c'est qu'elle est présente au moins depuis D7

Cordialement,
@+
04/09/2017, 14h24
Papy214

ça fonctionne pas trop mais j'ai trouvé un site avec l'extrait du livre pour la démo.

http://www.informit.com/articles/art...30494&seqNum=4

Pour le IStrings, je peux le saisir mais au refresh du code, Delphi le remplace par un IDispatch*
Et si je le saisis dans le code sans modifier le ridl, Delphi ne trouve pas les fonctions correspondantes dans l'interface et part en erreur :-(

Bon, c'est pas d'une importance extrême mais comme je vais devoir taper dans les objets COM sous peu, j'essaie de comprendre au maximum.
04/09/2017, 14h40
Cirec
quand on regarde le Listing 4.6 MemoCli Application—MainForm.pas
en fin de page on y voit bien l'utilisation de l'unité StdVcl:
Code:

1 2 3 4 5 6 ... implementation uses ActiveX, AXCtrls, StdVCL; ...
et on peut aussi y lire:

Citation:

6. Add ActiveX, StdVCL, and AxCtrls to the uses clause of the interface section of the unit, as these units define IFont, IStrings, and the GetOLEXxx procedures respectively.

le problème vient peut être de la version de Delphi utilisée !?
en tous cas le StdVcl.pas de D7 et celui de D2009 sont identiques.
pour les autres je ne sais pas, je n'ai pas les sources des dernières versions .
Mais je pense pas que soit le cas.
04/09/2017, 14h58
Papy214

Citation:

le problème vient peut être de la version de Delphi utilisée !?

C'est un peu ce que je pense aussi, d'où mon interrogation sur le remplacement de ce type.
Pourtant, si il existe encore, pourquoi Delphi le corrige à chaque refresh du code, mystère.
Surtout quand on lit plus haut:

Citation:

Add a read/write property named Font, and set the Type to IFontDisp. You won't find IFontDisp in the drop-down list of types, but the Type Library Editor will accept the declaration if you type it in.

Ça fonctionne. On pourrait penser que ça le ferait aussi pour IStrings, mais en fait non.
04/09/2017, 16h45
SergioMaster

Bonjour,
pour Tokyo IStrings est déclaré dans System.Win.StdVCL
05/09/2017, 14h10
Cirec

Bon,
j'ai tenté le tuto sous D7, D2009 et Tokyo 8O

premier point bizarre IFontDisp & IStrings sont acceptés dans les 3
avec D7, par contre, lors du rafraichissement de l'implémentation il indique une erreur "doit être de type pointeur" sur Font et Text ...
impossible d'aller plus loin :calim2:

en revanche avec D2009 & Tokyo j'arrive à la fin du tuto les projets semblent fonctionner mais à la connexion erreur "Interface non supportée":bug:

si quelqu'un d'autre a envie d'essayer ^^

Cordialement,
@+
05/09/2017, 14h12
Papy214

Citation:

IStrings sont acceptés dans les 3

mais quand tu utilises le bouton de refresh d'implémentation, Tokyo ne change pas le type ????

Citation:

Envoyé par Papy214

mais quand tu utilises le bouton de refresh d'implémentation, Tokyo ne change pas le type ????

euh ben non
voici le fichier généré :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
// ************************************************************************ //
// AVERTISSEMENT
// -------
// Ce fichier est généré par l'importateur ou l'éditeur de bibliothèques de types.
// Sauf les erreurs de syntaxe, l'éditeur analysera les modifications apportées au fichier.
// Toutefois, lors de l'application de changements via l'éditeur, ce fichier sera régénéré
// et les commentaires et les changements de formatage seront perdus.
// ************************************************************************ //
// Fichier généré le 05/09/2017 13:11:31 (- $Rev: 12980 $, 13929547).
 
[
  uuid(69A22360-1900-4EAB-93C3-3A579B1C9E2E),
  version(1.0)
 
]
library MemoSrv
{
 
  importlib("stdole2.tlb");
  importlib("stdvcl40.dll");
 
  interface IMemoIntf;
  coclass MemoIntf;
 
 
  [
    uuid(B0E3CBA9-7D84-4D4F-8001-9EDE6B10EA8D),
    helpstring("Interface dispatch pour MemoIntf Objet"),
    dual,
    oleautomation
  ]
  interface IMemoIntf: IDispatch
  {
    [propget, id(0x000000C9)]
    HRESULT _stdcall Color([out, retval] OLE_COLOR* Value);
    [propput, id(0x000000C9)]
    HRESULT _stdcall Color([in] OLE_COLOR Value);
    [propget, id(0x000000CA)]
    HRESULT _stdcall Font([out, retval] IFontDisp* Value);
    [propput, id(0x000000CA)]
    HRESULT _stdcall Font([in] IFontDisp Value);
    [propget, id(0x000000CB)]
    HRESULT _stdcall Text([out, retval] IStrings* Value);
    [propput, id(0x000000CB)]
    HRESULT _stdcall Text([in] IStrings Value);
  };
 
  [
    uuid(3977B99F-3BBE-467E-BBA0-AE95ECF3F3A1),
    helpstring("MemoIntf Objet")
  ]
  coclass MemoIntf
  {
    [default] interface IMemoIntf;
  };
 
};

05/09/2017, 14h38
Papy214

:-(

et le code de TMemoIntf ???

1 pièce(s) jointe(s)

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit MemoIntf;
 
{$WARN SYMBOL_PLATFORM OFF}
 
interface
 
uses
  ComObj, ActiveX, AXCtrls, MemoSrv_TLB, StdVcl;
 
type
  TMemoIntf = class(TAutoObject, IMemoIntf)
  protected
    function Get_Color: OLE_COLOR; safecall;
    function Get_Font: IFontDisp; safecall;
    procedure Set_Color(Value: OLE_COLOR); safecall;
    procedure Set_Font(const Value: IFontDisp); safecall;
    function Get_Text: IStrings; safecall;
    procedure Set_Text(const Value: IStrings); safecall;
 
  end;
 
implementation
 
uses ComServ, MainForm;
 
function TMemoIntf.Get_Color: OLE_COLOR;
begin
 Result := Form1.GetColor;
end;
 
procedure TMemoIntf.Set_Color(Value: OLE_COLOR);
begin
 Form1.SetColor(Value);
end;
 
function TMemoIntf.Get_Font: IFontDisp;
begin
 GetOleFont(Form1.GetFont, Result);
end;
 
function TMemoIntf.Get_Text: IStrings;
begin
 GetOleStrings(Form1.GetText, Result);
end;
 
procedure TMemoIntf.Set_Font(const Value: IFontDisp);
begin
 SetOleFont(Form1.GetFont, Value);
end;
 
procedure TMemoIntf.Set_Text(const Value: IStrings);
begin
 SetOleStrings(Form1.GetText, Value);
end;
 
initialization
  TAutoObjectFactory.Create(ComServer, TMemoIntf, Class_MemoIntf,
    ciMultiInstance, tmApartment);
end.

il y a du nouveau ;)
sous Tokyo ça fonctionne à moitié, tous les boutons Set fonctionnent mais pas les Get :(
en fait le recensement de MemoSrv.exe ne fonctionne pas mais celui MemoSrv.tlb se fait !! ??
Pièce jointe 309430

Cordialement,
@+

05/09/2017, 15h05
Papy214

Et moi je comprends de moins en moins ...
J'ai copier-coller ton ridl pour remplacer le mien et maintenant les types restent en place.
Bon, en tous cas ça compile maintenant.
J'ai plus qu'à faire le client ce soir tranquille à la maison

Merci

La suite surement pour bientôt :)
05/09/2017, 15h19
Cirec

je te rassure je ne comprends pas plus :mrgreen:
si quelqu'un a une explication je suis preneur ;)
(*) petite rectification GetColor fonctionne

Bonne chance pour la suite :mrgreen:
06/09/2017, 11h44
ShaiLeTroll

1 pièce(s) jointe(s)

Sinon, voici un vieux projet pour fournir un TTreeView pour Navision, c'est vieux et fait avec Delphi 7
Une arborescence c'est un poil plus complexe qu'un TMemo mais cela peut donner des idées
06/09/2017, 16h31
Papy214

Je vais étudier ça. Merci Shai !
ça sera peut-être que ce w-e par contre, sur mon D7 à la maison