Discussion :

[Jimy Neutron]

Bonjour à tous,

Pour sauvegarder la configuration d'un TComPort (Objet de CPortLib), j'ecrit les parametres dans un registre.
Jusqu'a lors pas de PB.
Mais pour rappeller la derniere configue par la lecture du registre, alors là...

La propriété Port du TComPort : Form1->ComPort->Port , reclame un TString, alors que la valeur sortante de mon registre est un AnsiString.
D'où:

Code :

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

1
2
3
4
5
6
 
Form1->CPort1->Port=(reg->ReadString("PortRx"));
 
donne l'erreur:
 
[Lieur Erreur] Unresolved external '__fastcall Cport::TCustomComPort::SetPortA(const System::AnsiString)' referenced from E:\TSAII 2005\MARC\PROJET RS232\ANALYSEUR_RS232.OBJ

Et la c'est hors connaissance pour moi...

Could you help me, please

[Djob]

Je ne connais pas TComPort et n'ai pas d'aide dessus...

mais en ce qui concerne le parametre voulu : un TString au lieu d'un String ,
peut être qu'en faisant :

...

Code :

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

1
2
3
TStringList * lst = new TStringList();
lst->Add(reg->ReadString("PortRx"));
Form1->CPort1->Port=lst;

....ça peut passer si effectivement la propriété Port est un TString...

[Jimy Neutron]

Merci de ton aide DJob, mais ça ne marche pas mieux...
Cette fois je retrouve le message d'erreur:

Code :

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

[C++ Erreur] Analyseur_RS232.cpp(652): E2034 Impossible de convertir 'TStringList *' en 'AnsiString'

C'est un problème de transtypage...et la touche F1 n'est plus suffisante!

Merci à toute l'aide venue,

[bakaneko]

Je viens de regarder l'aide de TComPort et la méthode Port réclame un String en Delphi.
Or le String Delphi égale un AnsiString en C++Builder. Je pense donc que ton erreur vient d'ailleurs...

[Jimy Neutron]

Pour faire au plus simple, j'ai creer une nouvelle appli avec 1 bouton et un ComPort.

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
      AnsiString Port="COM1";
      Form1->ComPort1->Port=Port;
 
}

Et j'ai toujours le même message...que je ne comprend pas!

Code :

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

[Lieur Erreur] Unresolved external '__fastcall Cport::TCustomComPort::SetPortA(const System::AnsiString)' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\ESSAI_RS232CBOX.OBJ

[bakaneko]

Tu es sûr de bien avoir installé le composant TComPort???
cf ce tutorial.

Si ce n'est pas ça, je ne pourrais pas beaucoup plus t'aider...

[Jimy Neutron]

bonjour bakaneko

La librairie est installée via le tutorial que tu me propose. Je pense donc qu' elle est bien installée. Je l'ai d'ailleurs installé sur mes deux PC, et c'est le même resultat. A n'y rien comprendre!

Je ne ferme pas ce post pour le moment, si quelqu'un pouvait ecrire le code ci-dessus sur son PC et me rapporter ce qu'il en resulte...

Merci à tous,

[Fbartolo]

Il y a bien un bogue sur l'écriture directe du N° de Port (la méthode est inaccessible).

Moi je passe par le SetupDialog() et sauvegarde dans fichier Ini, existe de la même façon pour enregistrer/lire dans registre.

c'est du global mais cela fonctionne.

Donc la lecture du N° est accessible mais pas l'écriture

[DjmSoftware]

bonsoir,
quelle version du Composant utilise tu
dans la version 2.64 la méthode d'écriture du Port s'appelle

Code :

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

1
2
 
void __fastcall _SetPort(const AnsiString Value);

cordialement

[Fbartolo]

C'est bien ça, la méthode est bien définie, mais n'est pas accessible.
et c'est bien la 2.64

dans Cport.hpp:

Code :

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

1
2
3
4
5
6
7
8
 Private:
....
void __fastcall SetPort(const AnsiString Value);
....
Public:
....
__property AnsiString Port = {read=FPort, write=SetPort};
...

Mais :

• [C++ Erreur] Test1.cpp(27): E2247 '_fastcall TCustomComPort::SetPortA(const AnsiString)' n'est pas accessible

[Djob]

+1

version 2.64 fraichement telechargée

[Lieur Erreur] Unresolved external '__fastcall Cport::TCustomComPort::SetPortA(const System::AnsiString)' referenced from .....

j'ai suivi le tutorial pourtant...

sinon:
SetPortA defini ANSI
SetPortW defini UNICODE ...je crois ?

NB :J'ai installé des composants unicodes (TNT) aussi , je sais pas si ça a un rapport...

du coup ça m'a un peu enervé...
j'ai mis

Code :

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

#define SetPortA SetPort

avant les includes de comport... ( c'est un peu brutal je sais.... )
mais ça à l'air de compiler

mais j'ai toujours pas compris pourquoi on a une distinction automatique entre ansi et unicode ....


NB : Apparemment y'a une version 3.0 en telechargement , peut être qu'il n'y a plus ce probleme ....

[Fbartolo]

J'avais pas pensé à ça.

Cela compile et ça marche...

[Djob]

Je pense avoir compris d'ou vient cette fichue erreur :


TComport utilise Windows.h qui inclu automatiquement Winspool.h
dans lequel il y a les fonctions SetPortA et SetPortW :
suivi d'un joli :

Code :

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

1
2
3
4
5
 
#ifdef UNICODE
#define SetPort  SetPortW
#else
#define SetPort  SetPortA

Or TComport utilise aussi une fonction SetPort privée en interne...
d'ou confusion pour BCB....
Si la fonction s'appelait SetPortCom ou autre y'aurait pas eu ce probleme ..


NB : on peut mettre aussi :

Code :

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

#define SetPortA SetPort

dans le CPort.hpp ( pour eviter de le mettre à chaque fois dans l'application )

[Jimy Neutron]

Hello!

Je suis ravi d'avoir soulevé votre intérêt, mais là vous discutez à un niveau un peu haut pour moi.
Alors, que dois-je faire pour que:

Code :

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

Form1->ComPort1->Port=AnsiString  ... fonctionne

Merci à vous

[Fbartolo]

En résumer de Djob:

ouvrir le fichier CPort.hpp, intoduire:

Code :

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

 #define SetPortA SetPort

juste avant les includes comme ça:

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
 
// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved
 
// (DO NOT EDIT: machine generated header) 'CPort.pas' rev: 6.00
 
#ifndef CPortHPP
#define CPortHPP
 
#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#define SetPortA SetPort     // Modif Fernand le 19/12/05 pour choix com
#include <Registry.hpp>	// Pascal unit
.......

[atomsk]

Bonjour,

Bien que ce poste commence un peu à dater, il m'a permi de résoudre mon problème!!
Je n'utilise pas CPort.h mais je cherchais juste à pouvoir appeller une fonction de l'API Win32 pour ouvrir un répertoire.

Ayant un problème avec shlobj.h en rajoutant

Code :

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

 #define SetPortA SetPort

au tout début de mon header de l'appli principale, ca à compilé tout de suite!

Et dire que je m'embetais à effacer sans arrêt mes *.obj après une compil pour en refaire une...

[Crayon]

Pour ceux qui ont ce problème avec C++Builder 2010, vous pouvez le faire d'une façon plus général comme ceci:

Code :

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

1
2
3
4
5
#ifdef UNICODE
#define SetPortW SetPort
#else
#define SetPortA SetPort
#endif // !UNICODE

Il se peut aussi que cette ligne doive être supprimée à cause d'un problème de déclaration multiple:

Code :

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

	__fastcall EComPort(int ACode);

[Jimy Neutron]

Merci à tous pour votre riche participition..

Ce forum est un véritable outils de travail, encore merci