Passage de CLX à VCL

**JP.NUAGE** · 23/03/2018, 11h37

Bonjour à tous

Je'ai une application qui fonctionne sans soucis en CLX. Je suis en train de la passer en VCL. Et je suis confronté à une erreur à la compilation. (Delphi 7)
Dans une unité j'utilise la bibliothèque Comport. Tous les modules de cette bibliothèque sont dans un dossier Cport. Ce dossier est, bien entendu, déclaré dans le chemin des bibliothèques, puisque, comme je viens de l'écrire, en CLX tout fonctionne. Mais quand je compile en VCL, j'ai le message suivant pour le module CportTrmSet

[Erreur] CPortTrmSet.pas(101): Identificateur non déclaré : 'TranslateProperties'

et voilà le code

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
unit CPortTrmSet;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, CPortCtl;
 
type
  TComTrmSetForm = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox2: TComboBox;
    Label2: TLabel;
    ComboBox3: TComboBox;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
procedure EditComTerminal(ComTerminal: TCustomComTerminal);
 
implementation
 
uses gnugettext;
 
{$R *.DFM}
 
// show terminal setup dialog
procedure EditComTerminal(ComTerminal: TCustomComTerminal);
begin
  with TComTrmSetForm.Create(nil) do
  begin
    CheckBox1.Checked := ComTerminal.LocalEcho;
    CheckBox2.Checked := ComTerminal.SendLF;
    CheckBox3.Checked := ComTerminal.WrapLines;
    CheckBox4.Checked := ComTerminal.Force7Bit;
    CheckBox5.Checked := ComTerminal.AppendLF;
    ComboBox1.ItemIndex := Integer(ComTerminal.Caret);
    ComboBox2.ItemIndex := Integer(ComTerminal.Emulation);
    Edit1.Text := IntToStr(ComTerminal.Columns);
    Edit2.Text := IntToStr(ComTerminal.Rows);
    ComboBox3.ItemIndex := Integer(ComTerminal.ArrowKeys);
    if ShowModal = mrOK then
    begin
      ComTerminal.LocalEcho := CheckBox1.Checked;
      ComTerminal.SendLF := CheckBox2.Checked;
      ComTerminal.WrapLines := CheckBox3.Checked;
      ComTerminal.Force7Bit := CheckBox4.Checked;
      ComTerminal.AppendLF := CheckBox5.Checked;
      ComTerminal.Caret := TTermCaret(ComboBox1.ItemIndex);
      ComTerminal.Emulation := TTermEmulation(ComboBox2.ItemIndex);
      try
        ComTerminal.Columns := StrToInt(Edit1.Text);
      except
        ComTerminal.Columns := 80;
      end;
      try
        ComTerminal.Rows := StrToInt(Edit2.Text);
      except
        ComTerminal.Rows := 24;
      end;
      ComTerminal.ArrowKeys := TArrowKeys(ComboBox3.ItemIndex);
    end;
    Free;
  end;
end;
 
procedure TComTrmSetForm.FormCreate(Sender: TObject);
begin
  TP_Ignore (self,'ComboBox1');
  TP_Ignore (self,'ComboBox2');
  TP_Ignore (self,'ComboBox3');
  TP_Ignore (self,'Edit1');
  TP_Ignore (self,'Edit2');
  TranslateProperties (self,'cport');    <<<<<< Plantage sur cet ordre
end;
 
end.

J'ai mis cet ordre en commentaire, juste pour voir la suite. Je n'ai pas été déçu ! Le module CportSetup ne trouve pas la classe TComComboBox. Or cette classe est bien définie dans un module CPortCtl et voila le début de CportSetup

Code :

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

1
2
3
4
5
6
7
8
9
unit CPortSetup;
 
{$I CPort.inc}
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, CPort, CPortCtl;

Ce que je ne m'explique pas est pourquoi en CLX je n'ai aucun pb et ces deux messages en VCL

**cantador** · 23/03/2018, 13h54

bonjour JP.NUAGE,

tu as du observer qu'il n'y a plus de rubriques
Composants CLX dans le forum..
@+

**cantador** · 23/03/2018, 13h59

mais ouf, il y a de la doc:

https://delphi.developpez.com/cours/...pos#compos-clx

les unités étant différentes CLX et VCL
peut-être un souci de USES..
?
@+

**JP.NUAGE** · 23/03/2018, 14h46

Il n'y a plus de forum CLX, mais mon problème est en VCL ! Comport est une bibliothèque en VCL : il suffit de regarder les USES ! C'est bien là que le bas blesse ! Utilisée dans mon application de départ sans rien changer dans les USES, elle ne fonctionne pas dans une application VCL.

**cantador** · 23/03/2018, 15h33

cool JP.NUAGE..

CPort, CPortCtl :
CLX ou VCL ?

@+

**JP.NUAGE** · 23/03/2018, 16h09

Bonne question ! Je viens de contrôler.
Aucun des *.pas de la bibliothèque n'utilise de Qxxxx. Donc rien de CLX. Il n'y a aucun {$R *.xfm}, ni de {$R *.dfm} d'ailleurs mais un {$I CPort.inc} (je ne sais pas à quoi cela correspond !)

PS : je suis allé regardé à l'adresse que tu m'as donnée cantador et j'ai bien fait. Tu viens de m'éviter une autre conversation : CLX ne m'intéressait pas trop, mais j'ai trouvé comment créer un composant et ça c'est cool !!! J'ai un composant perso fait part une autre personne (perdue de vue) sous CLX qui m'ennuie ! Tu devines ce que je vais faire ! Alors

**cantador** · 23/03/2018, 17h31

Comme quoi, il faut juste quelque fois un peu de piment..
un autre lien pour {$I CPort.inc} :

https://www.developpez.net/forums/d2...2005-a/http://

bien content que tu as réglé ton souci

@bientôt

**JP.NUAGE** · 23/03/2018, 17h47

Ben non, il n'est pas réglé !

L'histoire du composant c'est un autre souci, mais qui n'a rien à voir avec Comport ! Et le dernier lien que tu m'as donné tombe sur "Page not found"

**SergioMaster** · 23/03/2018, 18h06

Bonjour,

le message d'erreur me fait penser qu'il s'agit plutôt d'un problème avec l'unité gnugettext.
Ce qui me fait dire ça ? le fait que dans le message il y ait le mot Translate or , a mon avis, il s'agit justement d'un des boulots de cette unité, gérer les traductions !
à méditer .....

Autre point, que contient le fichier .inc ?

**cantador** · 23/03/2018, 22h33

@JP.NUAGE
désolé pour le lien, un copier coller malheureux..

j'ai trouvé ce post, mais sous toutes réserves :

https://www.developpez.net/forums/d2...delphi-2005-a/

@+

**JP.NUAGE** · 24/03/2018, 07h27

Trop fort SergioMaster

: j'ai contrôlé le contenu du dossier Cport contenant tous les Cp***. Il n'y avait pas gnugettext. Je l'ai ajouté et bingo, plus de message !

Ceci dit, j'ai tout de même une question, mais je peux considérer le pb résolu !

Ma question : mes définitions de bibliothèques sont les mêmes, que je travaille en CLX ou en VCL. Le programme gnugettext était jusqu'à il y a peu dans un dossier totalement à part. Et il n'est pas dans un des dossiers utilisés uniquement par l'appli CLX. Alors pourquoi CLX fonctionne et pas VCL ? Faut-il chercher la solution dans ce qui suit ?

Cport.inc :

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
{ ComPort Library global definitions }
 
{$B-}
{$X+}
{$H+}
 
{$IFDEF VER110}     { C++ Builder 3 }
  {$ObjExportAll On}
{$ENDIF}
 
{$IFDEF VER120}     { Delphi 4 }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_4}
{$ENDIF}
 
{$IFDEF VER125}     { C++ Builder 4 }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_4}
  {$ObjExportAll On}
{$ENDIF}
 
{$IFDEF VER130}     { Delphi 5 and C++ Builder 5 }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_5}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
{$ENDIF}
 
{$IFDEF VER140}     { Delphi 6 and C++ Builder 6}
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_6_OR_HIGHER}
  {$DEFINE DELPHI_6}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
{$ENDIF}
 
{$IFDEF VER150}     { Delphi 7 }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_6_OR_HIGHER}
  {$DEFINE DELPHI_7_OR_HIGHER}
  {$DEFINE DELPHI_7}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
  {$WARN UNSAFE_TYPE OFF}
  {$WARN UNSAFE_CODE OFF}
  {$WARN UNSAFE_CAST OFF}
{$ENDIF}
 
{$IFDEF VER170}     { Delphi 2005 (Delphi 9) }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_6_OR_HIGHER}
  {$DEFINE DELPHI_7_OR_HIGHER}
  {$DEFINE DELPHI_9_OR_HIGHER}
  {$DEFINE DELPHI_9}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
  {$WARN UNSAFE_TYPE OFF}
  {$WARN UNSAFE_CODE OFF}
  {$WARN UNSAFE_CAST OFF}
{$ENDIF}
 
{$IFDEF VER180}     { Delphi 2006 (10) C++ Builder 2006 (10) }
  {$DEFINE DELPHI_4_OR_HIGHER}
  {$DEFINE DELPHI_5_OR_HIGHER}
  {$DEFINE DELPHI_6_OR_HIGHER}
  {$DEFINE DELPHI_7_OR_HIGHER}
  {$DEFINE DELPHI_9_OR_HIGHER}
  {$DEFINE DELPHI_10_OR_HIGHER}
  {$DEFINE DELPHI_9}
  {$IFDEF BCBNOTDELPHI}
    {$ObjExportAll On}
  {$ENDIF}
  {$WARN UNSAFE_TYPE OFF}
  {$WARN UNSAFE_CODE OFF}
  {$WARN UNSAFE_CAST OFF}
{$ENDIF}

**SergioMaster** · 26/03/2018, 16h28

Faut-il chercher la solution dans ce qui suit ?

Non pas dans le fichier Cport.inc, plutôt un problème de chemins de recherche du projet en VCL

Passage de CLX à VCL

Composants VCL Delphi

Discussions similaires

Partager

Partager