Discussion :

[PadawanDuDelphi]

Bonjour,

Je suis débutant, et j'ai un problème pour l'ajout d'un composant créer par une autre personne. Cette personne a été chargé de faire passer le logiciel de Delphi7 à Delphi 2005.

Au départ j'avait un message d'erreur "F1026 Fichier RAGrid.dcu". Cette unité contenait la création des compôsants (avec la procedure Register).

Ensuite j'ai essayé de construire le fichier dpk, afin d'obtenir un fichier bpl, et je l'ai ajouté avec composant/Installer package...Mais cette fois j'ai eu un message:

"erreur: impossible d'executer un projet à moins qu'une application hôte ne soit définie"

Si quelqu'un a une piste ou un indice pour me sortir de ce pétrin, toutes les idées sont les bienvenues...

Merci par avance.

@+.

[Laurent Dardenne]

Salut,
tu as bien choisi un package pour ton projet ?
Communique-nous le source du .dpk

[PadawanDuDelphi]

Merci pour votre aide,

Voici le fichier dpk:

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
package gridD7;
 
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$IMPLICITBUILD OFF}
 
requires
  rtl,
  vcl;
 
contains
  QRAGrid in 'QRAGrid.pas',
  URenderer in 'URenderer.pas',
  UController in 'UController.PAS',
  USequenceGridController in 'USequenceGridController.PAS',
  UBitmapRenderer in 'UBitmapRenderer.pas',
  UColorRenderer in 'UColorRenderer.PAS',
  RAGrid in 'VCL\RAGrid.pas',
  UBitmapRendererVCL in 'VCL\UBitmapRendererVCL.pas',
  UColorRendererVCL in 'VCL\UColorRendererVCL.PAS',
  UControllerVCL in 'VCL\UControllerVCL.PAS',
  URendererVCL in 'VCL\URendererVCL.pas',
  USequenceGridControllerVCL in 'VCL\USequenceGridControllerVCL.PAS',
  UInterfaces in 'UInterfaces.PAS',
  UEditorControllerVCL in 'VCL\UEditorControllerVCL.PAS',
  UEditorsVCL in 'VCL\UEditorsVCL.PAS',
  UFSelectionItem in 'VCL\UFSelectionItem.pas' {FSelectionItem},
  UMiscRenderersVCL in 'VCL\UMiscRenderersVCL.PAS',
  UGridInitializerVCL in 'VCL\UGridInitializerVCL.PAS',
  UGridRegionVCL in 'VCL\UGridRegionVCL.PAS',
  ULinearInitializerVCL in 'VCL\ULinearInitializerVCL.PAS',
  UGridIterator in 'VCL\UGridIterator.pas',
  rmLib in 'rmLib.pas';
 
end.

Ensuite j'ai les fichiers .pas associés, par exemple (au passage j'ai enlevé toutes les fonctions et les procedures):

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
unit QRAGrid;
 
 
 
interface
 
uses
  SysUtils, Classes, types, controls, Grids, Graphics;
 
type
 
  TBaseRenderer = class;
  TBaseController = class;
  TRelevantPosition = (rpRow, rpColumn, rpCell);
 
  TRAGrid = class (TStringGrid)
  private
    CellControllers: Array of Array of TList;
    CellRenderers: Array of Array of TList;
    FControllers: TList;
    FRenderers: TList;
    PreviousColCount: Integer;
    PreviousRowCount: Integer;
    Bmp:TBitmap;
  protected
 
  public
    constructor create(AOwner:TComponent); override;
 
  TBaseRenderer = class (TComponent)
  private
  protected
  public
  published
  end;
 
  TBaseController = class (TComponent)
  private
  protected
    procedure Change; virtual; abstract;
  public
  published
  end;
 
procedure Register;
 
function sortByOrder(item1, item2:pointer):Integer;
 
implementation
 
{$R *.dcr}
 
uses UColorRenderer, UBitmapRenderer, USequenceGridController, URenderer, math,
     RAGrid, URendererVCL, UColorRendererVCL, UBitmapRendererVCL, USequenceGridControllerVCL,
  UEditorControllerVCL, UEditorsVCL, UMiscRenderersVCL, UGridInitializerVCL,
  ULinearInitializerVCL, UGridRegionVCL;
 
procedure Register;
begin
  RegisterComponents('test', [TRAGrid]);
  RegisterComponents('Test', [TBackGroundColorRenderer]);
  RegisterComponents('Test', [THeaderRenderer]);
  RegisterComponents('Test', [TTextColorRenderer]);
  RegisterComponents('Test', [TBitmapRenderer]);
  RegisterComponents('Test', [TSequenceGridController]);
  RegisterComponents('Test', [TSpinController]);
  RegisterComponents('Test', [TBitmapBarRenderer]);
  RegisterComponents('Test', [TBlankRenderer]);
  RegisterComponents('test', [TRAGridVCL]);
  RegisterComponents('Test', [TBackGroundColorRendererVCL]);
  RegisterComponents('Test', [THeaderRendererVCL]);
  RegisterComponents('Test', [TTextColorRendererVCL]);
  RegisterComponents('Test', [TBitmapRendererVCL]);
  RegisterComponents('Test', [TSequenceGridControllerVCL]);
  RegisterComponents('Test', [TSpinControllerVCL]);
  RegisterComponents('Test', [TBitmapBarRendererVCL]);
  RegisterComponents('Test', [TBlankRendererVCL]);   
  RegisterComponents('Test', [TEditorShowerControllerVCL]);
  RegisterComponents('Test', [TTextEditorVCL]);
  RegisterComponents('Test', [TChooseValueEditorVCL]);
  RegisterComponents('Test', [TFocusRectDrawer]);  
  RegisterComponents('Test', [TCountLinearInitializerVCL]);
  RegisterComponents('Test', [TConstantGridInitializerVCL]);
  RegisterComponents('Test', [TEventGridInitializerVCL]);
  RegisterComponents('Test', [TStringsLinearInitializerVCL]);    
  RegisterComponents('Test', [TGridRegionVCL]);
 
end;
 
 
 
{
*********************************** TRAGrid ************************************
}
constructor TRAGrid.create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  FRenderers := TList.Create;
  FControllers := TList.Create;
  bmp:=TBitmap.create;
 
end.

Et toutes les autres unitées utilisent QRAGrid...

Merci.
@+.

[Laurent Dardenne]

Dans BDS place toi dans l'onglet du projet puis clic droit sur le nom de ton projet.bpl ensuite clique sur "Compile" et enfin "Install".
Qu'est-que cela donne ?
Là j'ai l'impression que tu essais d'exécuter ton package...

[PadawanDuDelphi]

Merci pour ton aide, mais je n'arrive pas à trouver projet.bpl dans l'onglet projet...(j'utilise delphi 2005 au fait)
Je suis complètement perdu là...

Ce qui est bizarre c'est que j'ai pu ajouter mon .bpl à mes packages et que dedans si je clique sur "composant" je vois tous les compo que mon prédécesseur à creer, mais ils n'apparaissent pas dans la palette d'outil de Delphi...

A+.

[Laurent Dardenne]

Merci pour ton aide, mais je n'arrive pas à trouver projet.bpl dans l'onglet projet...(j'utilise delphi 2005 au fait)
Je suis complètement perdu là...

Le projet.bpl c'est un exemple, remplace-le par le nom de ton package.