Discussion :

[Paounet]

Ayant réussi à intégrer Jedi cl/vcl issu de 10.3.2 avec difficulté j'ai chargé mon prog précédent(fait avec 10.3.2)
un message

violaltion d'accès à l'adresse 50060665 dans le module rtl270.bpl. Lecture de l'adresse 006A002C
-> [50060665]{rtl270.bpl } System.TMonitor.Destroy (Line 19543, "System.pas" + 1) + $9

Toutes mes unités sont visibles dans la fenêtre Projets.
Toutes sont accessibles en conception(Fiche et code) à l'exception de la fiche principale
Menu.pas. Lorsque je veux passer en conception Delphi se fige complètement et m'oblige
à passer par ALT+CTRL+DEL.

Si je ne charge pas cette fiche (Menu.pas) et que je compile et exécute le programme il n'y a
pas de problème...

Si quelqu'un a eu ce genre de problème avec cette version mal fagotée. D'avance Merci !

Début de Menu.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
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
 
unit Menu;
 
interface
 
uses
  Winapi.Windows,System.SysUtils, System.Variants,System.Classes,
  Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus,
  PngImage, System.DateUtils,System.StrUtils, Vcl.ComCtrls, Vcl.ExtCtrls,
  System.ImageList, Vcl.ImgList,System.UITypes,Vcl.Buttons, System.Types,
  Vcl.StdCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids,Datasnap.DBClient, ABSMain,
  MMSystem, Jpeg, Vcl.MPlayer,System.Win.Registry,Vcl.HtmlHelpViewer;
 
type
  TForm_Menu = class(TForm)
    Database: TABSDatabase;
    Table_Clients: TABSTable;
    Table_Produits: TABSTable;
    Table_Commandes: TABSTable;
    Table_Cde_Produits: TABSTable;
    Table_Factures: TABSTable;
    Table_ClientsNumero: TStringField;
    Table_ClientsNom: TStringField;
    Table_ClientsAdresse: TStringField;
    Table_ClientsCode_Postal: TStringField;
    Table_ClientsVille: TStringField;
    Table_ProduitsReference: TStringField;
    Table_ProduitsLibelle: TStringField;
    Table_ProduitsPrix_HT: TCurrencyField;
    Table_ProduitsStock: TSmallintField;
    Table_Cde_ProduitsNum_Cde: TStringField;
    Table_Cde_ProduitsReference: TStringField;
    Table_Cde_ProduitsQuantite: TSmallintField;
    Table_Cde_ProduitsPrix_HT: TCurrencyField;
    Table_Cde_ProduitsTaux_Remise: TFloatField;
    Table_Cde_ProduitsTaux_TVA: TFloatField;
    DataSource: TDataSource;
    Table_CommandesNum_Cde: TStringField;
    Table_CommandesDate_Cde: TStringField;
    Table_CommandesNumero: TStringField;
    Table_FacturesNum_Fact: TStringField;
    Table_FacturesDate_Fact: TStringField;
    Table_FacturesNum_Cde: TStringField;
    Table_FacturesNom: TStringField;
    Table_FacturesBrut: TCurrencyField;
    Table_FacturesRemise: TCurrencyField;
    Table_FacturesTVA: TCurrencyField;
    Table_FacturesNet: TCurrencyField;
    Table_Paiements: TABSTable;
    Table_PaiementsNum_Fact: TStringField;
    Table_PaiementsPaye: TBooleanField;
    Table_PaiementsMode: TStringField;
    Table_PaiementsDate_Paiements: TStringField;
    Table_ProduitsVignette: TBlobField;
    Liste: TImageList;
    Logo: TImage;
    ClicLogo: TImage;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table_ProduitsAfterScroll(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormMouseEnter(Sender: TObject);
    procedure LogoClick(Sender: TObject);
    procedure LogoMouseEnter(Sender: TObject);
    procedure LogoMouseLeave(Sender: TObject);
    procedure ClicLogoClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
 
	private           { Déclarations privées }
 
	public
        ...................
        ........................
	implementation
 
Uses Init, Maj_Clients,Maj_Produits,Maj_Commandes,Maj_Cde_Produits,
     Maj_Factures,Maj_Paiements,Sauvegarde,Archivage,Ajout_Clients,
		 Ajout_Produits,Ajout_Cdes,Ajout_Facture,Ajout_Paiements,Catalogue,
     Listing_clients,Listing_produits,Listing_cdes,Listing_factures,
		 Listing_paiements,Requete_stocks,Requete_commandes,Requete_Fact,About,
		 Cadeau;
 
{$R *.dfm}
{$R MyResources.res}              // supprimer Gestfact.dres car doublon avec MyResources.res

[SergioMaster]

Bonjour,

c'est quoi ce composant TABSDatabase ?
Il serait intéressant (voire recommandé) de mettre toutes ces tables dans un datamodule plutôt que dans la fiche principale.
Cela dit cela n'a rien à voir avec le message, quoique ....
Ouvrir le dfm en mode texte (notepad++ ou autre) et voir si Database et les Table_xxx sont active si c'est le cas les mettre à false.

[Paounet]

c'est quoi ce composant TABSDatabase ?

C'est un composant de database issu de ComponentAce
qui remplace aventageusement l'ex BDE de Bordland.

Voir sur le site de ComponentAce
Pièce jointe 605167

J'utilise dans mon prog des compo usuels plus ceux de Jedi VCL et ComponentAce.
Comme je l'ai déjà dit je peux compiler et exécuter le progr. Mais impossible
de charger la fiche initiale qui fige Delphi 10.4.2 !
Je n'arrive pas à solutionner ce problème.

[pprem]

S'il y a des fichiers .identcache ou .local dans le dossier du projet, fermer Delphi, supprimer ces fichiers, relancer Delphi et retester.

[Paounet]

Ne fonctionne toujours pas après effacement des fichiers..

Remarque : Lorsque je charge le Programme par Gestfact.dproj delphi se fige et impossible
de s'en sortir exception faite par ALT+CTRL+DEL mais
lorsque je charge le même progr par Gestfact.dpr, j'accède à Delphi IDE avec ce message
cité lors de mon premier message. Toutes mes unités sont accessibles sauf la 1ère.

D'avance Merci pour ton aide.