Quelques petites questions

Version imprimable

26/03/2010, 18h05
__sPiKe__

Quelques petites questions
Bonjour à tous,

voilà dans mon programme pour chercher si il y a un anniversaire aujourd'hui je teste LE jour de l'année avec celui de la date de naissance de la personne, par exemple :
Code:

1 2 3 4 5 6 7 TDate d = Now() ; TDate date = Q_Ajouter->FieldByName("dateNaissance")->AsDateString; if(DayOfYear(date) == DayOfYear(d)) { HAPPY BIRTHDAY ! }
Bref ce code marche, mais pas pour toutes les années, j'explique :
Des fois j'ai un décalage d'un jour entre la vraie date d'anniversaire et celle que je trouve, notamment avec les années 2000 et 1840.
Evidemment j'ai pensé aux années bissextiles, mais je sais pas comment vérifier cette théorie, et surtout comment remédier à ce problème !

Second problème, j'ai un TImage qui affiche donc une image, j'aimerai qu'il libère l'image pour qu'il redevienne "vide" si possible, y a une méthode pour ça ?

Merci bcp.
26/03/2010, 18h22
sat83
Pour ton problème de date, tu peux utiliser la fonction DecodeDate, puis tester le jour et le mois.
Code:

1 2 3 4 5 6 7 WORD y1, m1, d1, y2, m2, d2; TDate d1= Date(); TDate d2 = [...] DecodeDate(d1, y1, m1, d1); DecodeDate(d2, y2, m2, d2); if( (d1==d2) && (m1==m2)) ///[...]
Pour ton problème d'image, tu peut effectuer un delete pour libérer l'image, puis affecter NULL...

Yep merci beaucoup j'ai testé le DecodeDate et il marche impeccable, me reste à tester pour l'image.

J'ai un autre problème :

Je souhaite que mon programme se lance au démarrage de Windows, j'ai utilisé la méthode du tuto de Builder, à savoir :
Code:

1 2 3 4 5 TRegistry *Reg = new TRegistry(); Reg->RootKey = HKEY_LOCAL_MACHINE; Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false); Reg->WriteString("AnniversaireM", "C:\\Users\\__sPiKe__\\Desktop\\Projets\\Anniversaire\\Debug\\AnniversaireM.exe"); delete Reg;
Ensuite mon programme se connecte à une BdD MS Access :
Code:

1 2 3 4 5 6 7 8 9 AnsiString strDir = "..\\BdD\\BdDAnniversaire.mdb" ; try{ ADOConnection1->ConnectionString ="Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Extended Properties=""DBQ=" + (AnsiString)strDir + ";DefaultDir=" + (AnsiString)strDir + ";Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" + (AnsiString)strDir + ";MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5" + ";SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"; ADOConnection1->Open();
Lorsque mon PC démarre il lance bien le programme, mais il ne trouve pas la base de données ! Je ne sais pas pourquoi.. Une idée ?

29/03/2010, 18h00
Crayon

Change ton path relatif vers un path absolu. C'est juste une idée, qui a des chances de ne pas fonctionner :D
29/03/2010, 18h19
__sPiKe__

Finalement j'ai mis le chemin complet de la base de données et ça fonctionne :)
29/03/2010, 19h52
kmaniche

Bonjour,

Si tu veux faire un chemin dynamique, tu peux utiliser :

Code:

String RepApp = ExtractFilePath(Application -> ExeName) ;

ensuite tu utilises RepApp pour accéder à la BDD.
29/03/2010, 20h55
__sPiKe__

Interessant, je vais tester ça, merci bien je vous tiens au courant :=)
31/03/2010, 07h28
__sPiKe__

Pour libérer le TImage de son image n'y a-t'il pas un autre moyen que de le détruire ?
31/03/2010, 08h27
sat83

Citation:

Envoyé par __sPiKe__

Pour libérer le TImage de son image n'y a-t'il pas un autre moyen que de le détruire ?

Affecter la valeur NULL à sa propriété Picture...

Mais que souhaite tu faire exactement? Si c'est juste pour masquer l'image, utilise la propriété Visible:

Code:

Image1->Visible = false ;
31/03/2010, 08h50
__sPiKe__

Voici le contexte :

La personne remplie un formulaire, choisie sa photo, et lorsqu'elle clique sur le bouton "Envoyer" le TImage se libère.

Citation:

Affecter la valeur NULL à sa propriété Picture...

C'est exactement ce que je voulais, merci :)
31/03/2010, 09h08
__sPiKe__

Une autre question, peut-on mettre un cadre autour d'un TIMage ?
31/03/2010, 09h31
sat83

Tu peux utiliser un TBevel, ou alors placer ton TImage dans un TPanel pour avoir un effet de cadre.
31/03/2010, 09h42
kmaniche
Si tu cherches à dessiner manuellement un cadre autour du TIMage, tu peux tracer une rectangle par exemple :
Code:

1 2 ... -> Canvas -> Rectangle(X, Y, X', Y') ;
:f1:
31/03/2010, 16h42
__sPiKe__

Le truc c'est que mon TImage est dynamique, il s'adapte à la forme de l'image qu'il contient, je vais exploiter vos solutions, merci beaucoup.
31/03/2010, 17h17
kmaniche

Avec la solution que t'as donné sat83, tu peux mettre AutoSize du TBevel à true :lol:
31/03/2010, 17h37
__sPiKe__

Il n'y a pas d'AutoSize avec le TBevel :?
01/04/2010, 08h38
sat83
Mail il y a un Autosize sur les Panel.
Tu peux également jouer avec les propriétés BevelInner et BevelOuter pour modifier l'apparence du cadre autour.

Après, si tu souhaite bien marquer la cadre autour de l'image, plutot que d'utiliser Autosize tu peux garder un écart (par exemple 5) entre le bord du Panel et le bord de l'image:
Code:

1 2 3 4 5 6 7 //[...] //CHARGEMENT DE L'IMAGE //[...] Image1->Top = 5 ; Image1->Left = 5; Panel->Width = Image1->Width + 10 ; Panel->Height= Image1->Height+ 10 ;

L'idée du Panel marche très bien :D

Autre question :

Je veux que mon programme se lance au démarrage comme je l'ai dit plus haut, seulement voilà je voudrai qu'on ai le choix de le lancer ou non avec un TCheckBox, voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 void __fastcall TAnniversaire::CheckBox1Click(TObject *Sender) { TRegistry *Reg = new TRegistry(); Reg->RootKey = HKEY_LOCAL_MACHINE; if(CheckBox1->Checked){ Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false); Reg->WriteString("AnniversaireM", "C:\\Users\\__sPiKe__\\Desktop\\Projets\\Anniversaire\\Debug\\AnniversaireM.exe"); }else{ Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true); Reg->DeleteValue("AnniversaireM"); } delete Reg; }
Ça me parait faux, d'autant plus que mon programme doit garder en mémoire si le TCheckBox est coché ou non...

Voici le post duquel je me suis inspiré : http://www.developpez.net/forums/d12...nce-demarrage/

01/04/2010, 21h47
kmaniche

Il suffit de d'enregistrer également l'état du CheckBox dans le registre :ccool:
01/04/2010, 21h56
__sPiKe__

Oui c'est bien mon idée, mais voulais surtout savoir comment faire :mrgreen:
03/04/2010, 18h27
__sPiKe__

Re, j'arrive à pas à enregistrer l'état de mon CheckBox, quelqu'un a une idée ? J'essaie de mettre en application ce qui est dit dans la FAQ mais rien n'y fait :cry:

http://cpp.developpez.com/faq/bcb/?page=systemeregistre

Une idée ?

Bon finalement après avoir bidouillé mon code j'en suis arrivé à ça et ça a l'air de marcher :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
__fastcall TAnniversaire::TAnniversaire(TComponent* Owner)
	: TForm(Owner)
{
  TRegistry *Reg = new TRegistry();
  Reg->RootKey = HKEY_LOCAL_MACHINE;
  Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false);
  if(Reg->ValueExists("Checked")){
	CheckBox1->Checked = true;
  }else{
	CheckBox1->Checked = false;
	Reg->DeleteValue("AnniversaireM");
  }
  delete Reg;
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TAnniversaire::FormClose(TObject *Sender, TCloseAction &Action)
{
  TRegistry *Reg = new TRegistry;
  Reg->RootKey = HKEY_LOCAL_MACHINE;
  Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",true);
  if ( CheckBox1->Checked ){
	Reg->WriteBool("Checked",true);
	Reg->WriteString("AnniversaireM", Application->ExeName);
  }else{
	Reg->DeleteValue("Checked");
  }
  Reg->CloseKey();
  delete Reg;
}

Sa marche, est-ce que c'est correct ? Je l'espère :ccool:

03/04/2010, 19h29
Crayon

Tu enregistres la propriété Checked de ton contrôle avec WriteBool?

Pour lire tu peux utiliser ReadBool.
03/04/2010, 19h36
__sPiKe__

Euh ouais, si il est coché je j'enregistre le Boolean "Checked" à true,
ce qui me permet de le tester lors que démarrage du programme...

Peut-être que je devrais simplement enregistrer un nom "Checked" dans le registre et tester si il existe ou non comme je l'ai fait dans l'initialisation de mon programme.

Mon dernier message est arrivé quelques secondes après le tiens, donc je ne l'avais pas encore lue, c'est pourquoi ce que je dit n'a pas de sens par rapport à ce que tu as écris.

Tu devrais utiliser HKEY_CURRENT_USER à la place de HKEY_LOCAL_MACHINE, car dans beaucoup de cas les ordinateurs dans les bureaux n'ont pas les droits d'admin et ne peuvent donc pas écrire à cet endroit.

Voici mon code pour ce genre de truc:
Code:

1 2 3 4 5 6 7 8 9 10 11 TRegistry *reg = new TRegistry(); try { reg->RootKey = HKEY_CURRENT_USER; reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false); MaVal = reg->ValueExists(Application->Title); } catch (...) { // Valeur par défaut } delete reg;
Et:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 TRegistry *reg = new TRegistry(); reg->RootKey = HKEY_CURRENT_USER; if(reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", false)) { try { reg->WriteString(Application->Title, Application->ExeName); } catch(...) { // L'écriture dans le registre a échoué } } reg->CloseKey(); delete reg;
Comme tu vois, c'est pratiquement la même chose toi. Disons, qu'il n'y a pas 100 000 façon de le faire :)

03/04/2010, 20h32
__sPiKe__

Ah ok donc je vais mettre ça dans le HKEY_CURRENT_USER !

Merci beaucoup. :ccool: