Discussion :

[Patrick25300]

Bonjour

Dans la FAQ pour avoir des menus supplémentaires pour Turbo Delphi Pro, il y a une explication pour les menus “Importer un composant” et “Librairie de type”

Voici l’explication de la FAQ:
Créez le répertoire suivant :$(BDS)\include\atl\
Créez dans ce répertoire un fichier vide nommé : ATLBASE.H

J’ai créé ces répertoires ci-dessous, mais rien n’y fait, ces menus n’apparaissent pas, même grisés

C:\$(BDS)\include\atl\ATLBASE.H
C:\Program Files\$(BDS)\include\atl\ATLBASE.H
C:\Program Files\Borland\BDS\include\atl\ATLBASE.H
C:\Program Files\Borland\$(BDS)\include\atl\ATLBASE.H

J’ai fait comme il est dit sur le post de « Charlie_Movietone » du 22.01.2008, et ça marche, mais les menus de ci-dessus, c’est peut-être plus pratique…

Merci à tous
Patrick

[Pedro]

Salut
Euh visiblement, tu n'as pas compris une chose: $(BDS) représente le chemin complet d'installation de Turbo soit, par défaut:

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\Program Files\Borland\BDS\4.0\

Donc en fait, si le répertoire est :

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

$(BDS)\include\atl\

dans ce cas, par défaut, il faut que tu crées

Code X :

Sélectionner tout - Visualiser dans une fenêtre à part

c:\Program Files\Borland\BDS\4.0\include\atl\

Rééessaie et dis-nous si ça fonctionne

[EDIT]
Je viens de regarder la FAQ et effectivement, à ta décharge, ce n'est pas exepliqué que $(BDS) représente quoi que ce soit. Nous allons corriger ça

[Patrick25300]

Bonjour
Effectivement c'est bien cela ($BDS) correspond au chemin d'installation.
Et du coup CA marche!!
Merci

[gaby277]

Bonjour,
J'ai essayé avec Turbo Delphi Explorer Win 32.
ça marche aussi !
Heu enfin... le menu est rajouté, quand on importe un .tlb ça crée l'unité .pas, mais ça n'ajoute pas les composants dans la palette (faut pas rêver !).
Je ne sais pas si ça présente un intéret.

[Pedro]

Bonjour,
J'ai essayé avec Turbo Delphi Explorer Win 32.
ça marche aussi !
Heu enfin... le menu est rajouté, quand on importe un .tlb ça crée l'unité .pas, mais ça n'ajoute pas les composants dans la palette (faut pas rêver !).

Il faudrait que tu essaies d'ajouter ce .pas à un package et nous dire si ça fonctionne

Je ne sais pas si ça présente un intéret.

Si bien sûr: grâce à toi, on sait que ça peut marcher aussi pour la version Explorer de Turbo

[gaby277]

Bonjour,
J’ai essayé : à priori ça marche
Ça permet de créer à l’exécution des composants que l'on ne peut ajouter à la palette, par exemple ADOX catalog.

Bien sur on peut faire la même chose avec « catalog := CreateOleObject('ADOX.Catalog'); »
Mais on ne bénéficie notamment pas de l’affichage automatique des procedure, function ,property quand on tape le « . ».

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
unit Unit1;
uses
  Windows, … ,   ADOX_TLB;
….
procedure TForm1.Button1Click(Sender: TObject);
var
  Filename: string;
  Moncatalog: Tcatalog;
 
begin
  // On crée une base ACCESS en créant adox catalog à l'exécution
 // le composant  ADOX catalog ne peut pas être ajouté dans Delphi turbo explorer
  Filename := ExtractFilePath(Application.ExeName) + 'baseVide10.mdb';
  Moncatalog := tcatalog.create(self);
  Moncatalog.create1('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
end;
end.

Nota : Il y a quelques erreurs, faciles à rectifier, à la compilation de adox_tlb.pas (des apostrophes dans des chaînes de caractères).

[Pedro]

Il faudrait que tu essaies d'ajouter ce .pas à un package et nous dire si ça fonctionne

Je viens de m'apercevoir de l'énormité que j'ai écrite: Bien évidemment, il n'est pas possible d'installer un package dans la version Explorer de Turbo

Bonjour,
J’ai essayé : à priori ça marche
Ça permet de créer à l’exécution des composants que l'on ne peut ajouter à la palette, par exemple ADOX catalog.

Impeccable