BDE et Delphi 12.3

Version imprimable

25/06/2025, 12h09
DevJak68

BDE et Delphi 12.3
Bonjour,
pour les besoins d'un très ancien projet j'ai téléchargé le BDEInstall.exe pour RADStudio 12 depuis le site Embarcadero. L'installation faite, j'ai rajouté dans les chemins de recherche d'un paquet : C:\Program Files (x86)\Embarcadero\Studio\23.0\source\data\bde
Malgré tout ce paquet ne compile pas : dans le fichier BDE.pas les lignes suivantes
Code:

1 2 3 {$L IDPAS32.OBJ} {$L DBI.OBJ} {$L INTFPAS.OBJ}
indiquent 'fichier introuvable'
25/06/2025, 14h33
ShaiLeTroll

Le projet est bien en 32 bits ?

Lorsqu'un projet devient veillissant ou alors que la maintenance est rare (quelques jours par an), il peut être intéressant de conserver un WMWare ou une VirtualBox, avec le Delphi de l'époque installé, le source (en plus d'un gestionnaire type SVN ou GIT), une base de données de test ... tout l'environnement nécessaire pour compiler et debuggeur l'application.
Alors, oui ça consomme pas mal de stockage, 3 disque virtuels : 2 voire 4Go pour l'OS (disque à part), 2Go pour Delphi, nGo pour la Base.
25/06/2025, 15h52
DevJak68

oui projet VCL 32 bits
25/06/2025, 16h26
ShaiLeTroll

Il n'y a pas un fichier BDE.dcu déjà fourni a utiliser plutôt que compiler BDE.pas ?

Désactiver l'option "VCL de debogage" si elle l'est.
25/06/2025, 16h31
DevJak68

j'ai fait une recherche sur le disque C avant d'installer le BDE fourni pae Embarcadero et il n'y avait pas de fichier relatif au bde. Donc pas le choix
25/06/2025, 16h44
ShaiLeTroll

Ce n'est pas le sens de ma question, est-ce que le BDEInstall.exe fourni les DCU pour chaque version de Delphi (un exe différent pour chaque version), je n'utilise plus le BDE depuis D5, alors je ne connais pas ce qu'installe BDEInstall.exe, par curiosité, je ferais un coup de 7-zip dessus pour voir si il contient les fichiers ou si il les téléchargement

Après installation, avez-vous chercher les fichiers DCU et OBJ pour les déplacer éventuellement si mal placé, voir faut les dupliquer

C:\Program Files (x86)\Embarcadero\Studio\23.0\lib\win32\debug
C:\Program Files (x86)\Embarcadero\Studio\23.0\lib\win32\release
25/06/2025, 16h58
ALWEBER

1 pièce(s) jointe(s)

J'ai delphi XE11 et XE12. J'ai désinstallé la version existante et j'ai réinstallé via le BDE INstall pour xe12 téléchargé depuis le site Embarcadero et tout semble OK
Dans le uses tu remplace dbtable par bde.dbtable

Pièce jointe 668348

le code ci-dessous compile sous XE3 sur une VM mais pas sous Delphi 12 sur mon PC malgré l'installation du BDE fourni par Embarcadero
je ne vois pas ce qu'il faut désinstaller avant

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
 
package IddTot1XE;
 
{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS OFF}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'IddTot1XE'}
{$RUNONLY}
{$IMPLICITBUILD OFF}
 
contains
  Bde.BdeConst,
  Bde.DBTables,
  Bde.SMINTF,
  Bde,
  Data.Db,
  Data.DBCommon,
  Data.DBCommonTypes,
  Data.DbConsts,
  Data.FmtBcd,
  Data.SqlTimSt,
  System.Actions,
  System.AnsiStrings,
  System.Character,
  System.Classes,
  System.Contnrs,
  System.DateUtils,
  system.Diagnostics,
  System.Generics.Collections,
  System.Generics.Defaults,
  System.HelpIntfs,
  System.IniFiles,
  System.Internal.ExcUtils,
  System.IOUtils,
  System.Masks,
  System.MaskUtils,
  system.Math,
  System.RTLConsts,
  System.Rtti,
  System.StrUtils,
  System.SyncObjs,
  System.SysConst,
  System.SysUtils,
  System.TimeSpan,
  System.Types,
  System.TypInfo,
  System.UIConsts,
  System.UITypes,
  System.Variants,
  System.VarUtils,
  System.WidestrUtils,
  System.Win.ComConst,
  System.Win.ComObj,
  System.Win.Registry,
  System.Win.StdVCL,
  System.ZLib,
  Vcl.ActnList,
  Vcl.AxCtrls,
  Vcl.Buttons,
  Vcl.CheckLst,
  Vcl.Clipbrd,
  Vcl.ComCtrls,
  Vcl.ComStrs,
  Vcl.Consts,
  Vcl.Controls,
  Vcl.DBActns,
  Vcl.DBCGrids,
  Vcl.DBCtrls,
  Vcl.DBGrids,
  Vcl.DBLogDlg,
  Vcl.DBPWDlg,
  Vcl.Dialogs,
  Vcl.ExtCtrls,
  Vcl.ExtDlgs,
  Vcl.FileCtrl,
  Vcl.Forms,
  Vcl.Graphics,
  Vcl.GraphUtil,
  Vcl.Grids,
  Vcl.Imaging.jconsts,
  Vcl.Imaging.jpeg,
  Vcl.ImgList,
  Vcl.ListActns,
  Vcl.Mask,
  Vcl.Menus,
  Vcl.OleConst,
  Vcl.OleCtnrs,
  Vcl.OleCtrls,
  Vcl.Outline,
  Vcl.Printers,
  Vcl.StdActns,
  Vcl.StdCtrls,
  Vcl.Tabnotbk,
  Vcl.Themes,
  Vcl.ToolWin,
  Vcl.VDBConsts,
  Vcl.WinHelpViewer,
  VclTee.chart,
  VclTee.series,
  VclTee.tecanvas,
  VclTee.teeconst,
  VclTee.TeeFilters,
  VclTee.TeeFunci,
  VclTee.TeeHtml,
  VclTee.teengine,
  VclTee.TeeProcs,
  VclTee.TeeSpline,
  Winapi.ActiveX,
  Winapi.CommCtrl,
  Winapi.FlatSB,
  Winapi.ImageHlp,
  Winapi.Mapi,
  Winapi.msxml,
  Winapi.MSXMLIntf,
  Winapi.MultiMon,
  Winapi.PenInputPanel,
  Winapi.PsAPI,
  Winapi.RichEdit,
  Winapi.ShellAPI,
  Winapi.SHFolder,
  Winapi.ShlObj,
  Winapi.UxTheme,
  Winapi.Wincodec,
  Winapi.Windows;
 
end.

26/06/2025, 10h54
ShaiLeTroll

Pourquoi tous ces uses ?
Vous utiliser les fonctions BDE bas-niveaux en plus du TTable\TQuery ?
26/06/2025, 11h01
DevJak68

en fait je reprend un projet dont le programmeur est absent pour une durée indéterminée. Il n'y a pas de doc. Le programme a été développé sous Delphi 5 / Delphi XE3
J'essaye seulement de le compiler sous Delphi 12
26/06/2025, 14h07
ShaiLeTroll

Preuve que conserver des machines virtuelles pour pérenniser le développement, c'est pas comme si on le répète depuis 20 ans, j'ai du travailler sur des projets D7 que je reportais en D3, un seul poste en D3 ... dès que j'ai pu, je l'ai virtualisé pour le sécuriser.
L'emploi suivant c'était du D5, D6 et D7, avec une lib interne qui avait "forké" selon tel ou tel projet, j'ai tout passé en Virtual Box.

Oublie D12, si ta VM DXE3 fonctionne, ne perd pas plus ton temps, utilise la, duplique la ...
Surtout si tu as un budget limite pour travailler sur l'application, tu as une VM XE3 qui fonctionne, bosse dessus et basta !
Passer de XE3 à D12, tu prends un risque avec des régressions ou du code non compatible (va savoir ce qu'à écrit ton collègue absent)

Et question conne, as-tu pensé à prendre les OBJ de la WM XE3 pour les copier dans D12 ?
l'OBJ c'est lié à un DLL, je ne crois pas que cela soit lié à une version de Delphi

Tu tentes de compiler le DPK mais as-tu regardé si il n'y avait un déjà un BPL fourni, compatible Design Time et Run Time ?
Pour te simplifier la vie, un jour, oublie le RAD, créé les TTable\TQuery et TDataBase en RunTime à la volée, cela évite d'avoir le package installée, j'ai pratique du BDE Paradox avec 100% de TQuery crée à la volée (multi-thread oblige avec un TDataBase par thread, puis remplacer par TIBQuery et TIBConnection)