Discussion :

[mestressat]

Bonjours à tous.

Travaillant toujours sous DELPHI 6 EDITION PERSONNELLE, et ne souhaitant pas changer de version, j'aurai besoin de créer un "objet automation".
Malheureusement, cette version personnelle ne dispose pas d'assistant à cet effet.
Connaîtriez-vous un programme ou plugin qui me permettrait de pallier l'absence d'assistant et de m'aider dans la création d'un tel objet ?
A défaut, pensez vous qu'il soit possible de tout faire "à la main" ?

D'avance merci pour vos précisions.

Un delphiplodocus

[ShaiLeTroll]

Pour ma part je l'ignore, le code d'un objet automation, peut être tapé, par contre le problème c'est la TLB, tu dois cherche un editeur de TLB (chez Microsoft, tu dois quand même avoir tlibimp.exe fourni), ... ou voir sur le CD de Delphi ou dans program files, si l'éditeur de TLB n'est pas lançable en ligne de commande

Juste comme ça, ton programme tu le distribue ?

le DPR

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
 
library MonObjet;
 
uses
  SysUtils,
  Classes,
  ComServ,
  MonObjet_Impl in 'MonObjet_Impl.pas' {MonObjetImpl: CoClass},
  MonObjet_TLB in 'MonObjet_TLB.pas',
 
 
{$R *.TLB}
 
{$R *.res}
 
exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;
 
begin
 
end.

le 'MonObjet_Impl.pas'

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
unit MonObjet_Impl;
 
{$WARN SYMBOL_PLATFORM OFF}
 
interface
 
uses
  Windows, ActiveX, Classes, ComObj, StdVcl, SysUtils,
  Contnrs,
  MonObjet_Impl_TLB;
 
type
  TMonObjetImpl = class(TAutoObject, IMonObjet)
  protected
    les méthodes en stdcall ou safecall; // ça c'est pas évident à mettre la bonne syntaxe en utilisant un editeur externe, entre les Disp Interface, le Dual, ...
  end;

enfin le 'MonObjet_TLB.pas', le pire à mon avis (sans compter le fichier .TLB lui même)

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
 
unit MonObjet_TLB;
 
  LIBID_MonObjet: TGUID = '{un GUID, voir CreateGUID et GUIDToString}';
 
  IID_IMonObjet: TGUID = '{un GUID}';
  CLASS_MonObjetImpl: TGUID = '{un GUID}';
 
type
 
  IMonObjet = interface;
  IMonObjetDisp = dispinterface; // ne me demande pas, je te simplifie le fichier généré par l'éditeur ...
 
  MonObjetImpl = IMonObjet;
 
// *********************************************************************//
// Interface   : IMonObjet
// Indicateurs : (4416) Dual OleAutomation Dispatchable
// GUID        : {le GUID IID_IMonObjet}
// *********************************************************************//
  INeoScopeLAD = interface(IDispatch)
    ['{le GUID IID_IMonObjet}']
    les déclarations
  end;

[Paul TOTH]

Pour ma part je l'ignore, le code d'un objet automation, peut être tapé, par contre le problème c'est la TLB, tu dois cherche un editeur de TLB (chez Microsoft), ...

Juste comme ça, ton programme tu le distribue ?

entre nous, vu comment le TLB editor est bugué (en tout cas en version 5), ça serait pas mal d'avoir une alternative

EDIT: et je ne suis pas le seul à le penser

[ShaiLeTroll]

J'utilise celui de D7, je n'ai pas trop de soucis, mais je suis TRES TRES précautionneux (je l'ai bcp utilisé pendant 2 ans, je sais par réflexe, les choses à ne pas faire), surtout que je dois souvent faire des objets utilisable en .NET donc safecall alors les fonction qui renvoie des interfaces tout en étant safecall, ils n'ont pas prévu de mettre **IMonInterface on a que *IMonInterface dans l'Editeur ... j'ai galéré pour le comprendre ...

[Paul TOTH]

J'utilise celui de D7, je n'ai pas trop de soucis, mais je suis TRES TRES précautionneux (je l'ai bcp utilisé pendant 2 ans, je sais par réflexe, les choses à ne pas faire), surtout que je dois souvent faire des objets utilisable en .NET donc safecall alors les fonction qui renvoie des interfaces tout en étant safecall, ils n'ont pas prévu de mettre **IMonInterface on a que *IMonInterface dans l'Editeur ... j'ai galéré pour le comprendre ...

ah mais y'a une blague aussi entre D5 et D2005...je ne sais plus dans quel sens ça le fait, mais pour une même TBL l'un des deux te fait un _TBL.pas en safecall et pas l'autre

[ShaiLeTroll]

ça doit être par ce que safecall peut être remplacé par un stdcall avec un HResult en retour, par contre, uniquement pour une procédure pas pour une fonction ! du moins je pense ... après j'ignore les autres différnces entre safecall et stdcall+HResult

[Paul TOTH]

ça doit être par ce que safecall peut être remplacé par un stdcall avec un HResult en retour, par contre, uniquement pour une procédure pas pour une fonction ! du moins je pense ... après j'ignore les autres différnces entre safecall et stdcall+HResult

oui c'est ça, en fait les deux sont équivalent, soit tu as une fonction qui retourne un HResult (que tu vas généralement tester avec un OleCheck() ou autre), soit tu as une procédure safecall qui teste automatiquement le HResult caché pour lever une exception

je n'ai plus en tête le détail, mais quand tu coches je ne sais plus quelle option dans le TLB editor, D5 te fait des safecall alors que D2005 te fait des HResult...c'est très chiant quand tu partages le même TBL entre un projet D5 et un projet D2005