Discussion :

[Papy214]

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

[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

[Papy214]

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 :

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
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:

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é :-(

[Cirec]

Bonjour,

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

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
{ 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,
@+

[Papy214]

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

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

Merci

[Cirec]

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,
@+

[SergioMaster]

Bonjour,
pour Tokyo IStrings est déclaré dans System.Win.StdVCL

[Cirec]

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

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

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

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

Cordialement,
@+

[Papy214]

IStrings sont acceptés dans les 3

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

[Cirec]

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 :

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
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;
  };
 
};

[Papy214]

:-(

et le code de TMemoIntf ???