comment transtyper, ou faire avaler un TComPort en UnicodeString

Version imprimable

bonjour à tous, décidément, je ponds souvent sur ce forum...

Je souhaite manipuler le registre windows pour stocker des variables pour mon application. Hors, mes paramètres sont du genre un peu particulier...

J'ai écrit ce code :
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 TRegistry *Reg = new TRegistry; if (Reg->OpenKey("\\Software\\KVBSoft\\Promis",false)) { try { ComPortMODEM->Port = Reg->ReadString("ComPortModem"); ComPortMODEM->BaudRate = Reg->ReadString("BaudRateModem"); ComPortMODEM->DataBits = Reg->ReadString("DataBitsModem"); ComPortMODEM->FlowControl = Reg->ReadString("FlowControlModem"); ComPortMODEM->Parity = Reg->ReadString("ParityModem"); ComPortMODEM->StopBits = Reg->ReadString("StopBitsModem"); } catch (Exception &exception) { Application->ShowException(&exception); } catch(...) { } ComPortMODEM->Connected = true ; } Reg->CloseKey(); delete Reg;
et j'ai pleins d'erreur du genre

[BCC32 Erreur] Form_Main.cpp(32): E2034 Impossible de convertir 'UnicodeString' en 'TBaudRate'

j'ai essayé de transtyper dans tout les sens ,mais rien n'y fait :

Code:

ComPortMODEM->Port = (TComPort)Reg->ReadString("ComPortModem");

erreur :

[BCC32 Erreur] Form_Main.cpp(31): E2285 Impossible de trouver une correspondance pour 'TComPort::TComPort(UnicodeString)'

là je suis bien bloqué... Vous avez une idée ?

merci !

22/09/2009, 19h15
blondelle

Salut kressano
Peut etre en utilisant WideString, WideChar, c_str()......
22/09/2009, 19h34
henderson

Salut !

Il faudrait tester si TRegistry::ReadInteger sert à quelque chose !

A plus !
22/09/2009, 19h38
kressano
hello blondelle,

j'ai déjà testé avec le constant char, mais ça bug quand même :
Code:

1 2 3 ComPortMODEM->Port = Reg->ReadString("ComPortModem").c_str() ;
j'ai un link error dans un .OBJ .

je teste WideString...

Henderson :

Comme le disait Jésus : ''Hein ?'' Romains 15-1 verset 2

Le paramètre ComPort n'est pas integer à ma grande déception... mais je vais fouiller ta remarque...
22/09/2009, 20h03
kressano

bon bah, pas plus d'avancé...

soit je sais pas coder et j'utilise c_str n'importe comment, soit c'est pas adaptable. Grrrr !

et je ne sais pas utiliser widestring.
22/09/2009, 20h15
henderson

Salut !

Citation:

ComPortMODEM->BaudRate ...
ComPortMODEM->StopBits ...

A mon avis ... c'est pas du texte !
StopBits ... c'est 0, 1 ...

A plus !
22/09/2009, 20h25
henderson
Salut !

Par contre, s'il s'agit de valeurs stockées sous forme de texte, dans ce cas :
Code:

1 2 Machin->Truc = Reg->ReadString(blabla).ToInt();
A plus !

Effectivement, j'ai gratté dans tout les sens, et j'ai fait ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
void __fastcall TForm_Principale::FormClose(TObject *Sender,
	  TCloseAction &Action)
{
 
 
	TRegistry *Reg = new TRegistry;
	Reg->OpenKey("\\Software\\KVBSoft\\Promis",true);
	Reg->WriteString("ComPortModem",ComPortMODEM->Port);
	Reg->WriteInteger("BaudRateModem",ComPortMODEM->BaudRate);
	Reg->WriteInteger("DataBitsModem",ComPortMODEM->DataBits);
	//Reg->WriteString("FlowControlModem",ComPortMODEM->FlowControl);
	//Reg->WriteString("ParityModem",ComPortMODEM->Parity);
	Reg->WriteInteger("StopBitsModem",ComPortMODEM->StopBits);
	Reg->CloseKey();
	delete Reg;
 
	ComPortMODEM->Connected = false ;
	ComPortGPS->Connected = false ;
 
}

ça marche nickel pour ce bout de code.
Au contraire des autres paramètres, le 'Port' n'est pas un entier, il est enregistré en String dans le registre et apparaît sous la forme COM1.
Par contre, pour lire, j'ai modifié comme suit :

Code:

1
2
3
4
5
6
7
8
9
 
 
//ComPortMODEM->Port =(TComPort)Reg->ReadString("ComPortModem") ;
ComPortMODEM->BaudRate = Reg->ReadInteger("BaudRateModem");
ComPortMODEM->DataBits = Reg->ReadInteger("DataBitsModem");
//ComPortMODEM->FlowControl = Reg->ReadString("FlowControlModem");
//ComPortMODEM->Parity = Reg->ReadString("ParityModem");
//ComPortMODEM->StopBits = Reg->ReadString("StopBitsModem");
//c_str()     WideString

Je dé commante la ligne ComPortMODEM et j'ai une sale erreur genre 'pas de correspondance....

Hé les copains, ça y est j'ai trouvé le bug !!!

je suis allé visiter cette page :

http://www.developpez.net/forums/d79...tring-tstring/

J'ai relu le fil de long en large et en travers, j'ai rien capté. J'ai fait la soluce proposée, touche F9 défoncée, ça marche !!!

hé hop ! résolu...

Je me demande encore comment j'ai fait pour trouver ce topic, sachant que Google et le moteur de recherche n'a rien pû faire pour moi....

Bref : voila le code complet pour ceux qui veulent....

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
 
// A la création de la fiche, on lit d'abord les infos pour le Modem puis pour le GPS
void __fastcall TForm_Principale::FormCreate(TObject *Sender)
{
	TRegistry *Reg = new TRegistry;
	// MODEM
	if (Reg->OpenKey("\\Software\\KVBSoft\\Promis\\Modem",false))   // ouverture du registre
	{
		ComPortMODEM->Port = (Reg->ReadString("ComPortModem")) ;    // lecture du Port
		ComPortMODEM->BaudRate = Reg->ReadInteger("BaudRateModem"); //            Baud
		ComPortMODEM->DataBits = Reg->ReadInteger("DataBitsModem"); //            Bit de donnée
	}
	else
	{                                     // si la clé n'existe pas, on affiche la boite de dialogue
		ComPortMODEM->ShowSetupDialog (); // du port Com MODEM
	}
	Reg->CloseKey();                      // on ferme le registre
	// GPS
	if (Reg->OpenKey("\\Software\\KVBSoft\\Promis\\GPS",false)) // ouverture du registre
	{
		ComPortGPS->Port = (Reg->ReadString("ComPortGPS")) ;    // lecture du Port
		ComPortGPS->BaudRate = Reg->ReadInteger("BaudRateGPS"); //            Baud
		ComPortGPS->DataBits = Reg->ReadInteger("DataBitsGPS"); //            Bit de donnée
	}
	else
	{                                     // si la clé n'existe pas, on affiche la boite de dialogue
		ComPortGPS->ShowSetupDialog ();   // du port com GPS
	}
	Reg->CloseKey();                      // on ferme le registre
	delete Reg;                           // et on détruit la variable dynamique
 
	do
	{
		try
		{
			ComPortMODEM->Connected = true ;     // connection du modem
		}
		catch (Exception &exception)             // si erreur
		{
			MessageBox(NULL,"Le port Com est déjà pris.",NULL,MB_OK|MB_ICONSTOP);
			ComPortMODEM->ShowSetupDialog ();
		}
	}
	while (ComPortMODEM->Connected == false) ;
	do
	{
		try
		{
			ComPortGPS->Connected = true ;       // connection du GPS
		}
		catch (Exception &exception)             // si erreur
		{
			MessageBox(NULL,"Le port Com est déjà pris.",NULL,MB_OK|MB_ICONSTOP);
			ComPortGPS->ShowSetupDialog ();
		}
	}
	while (ComPortGPS->Connected == false) ;
 
	if (ComPortMODEM->Connected == true) { Image1->Visible = true; } // image pour débugger
	if (ComPortMODEM->Connected == true) { Image2->Visible = true; } // image pour débugger
}

ya peut etre encore des erreurs alors laissez moi le temps de fignoler