Discussion :

[__sPiKe__]

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 :

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

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.

[sat83]

Pour ton problème de date, tu peux utiliser la fonction DecodeDate, puis tester le jour et le mois.

Code :

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

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...

[__sPiKe__]

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 :

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

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 :

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

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 ?

[Crayon]

Change ton path relatif vers un path absolu. C'est juste une idée, qui a des chances de ne pas fonctionner

[__sPiKe__]

Finalement j'ai mis le chemin complet de la base de données et ça fonctionne

[kmaniche]

Bonjour,

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

Code :

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

String RepApp = ExtractFilePath(Application -> ExeName) ;

ensuite tu utilises RepApp pour accéder à la BDD.

[__sPiKe__]

Interessant, je vais tester ça, merci bien je vous tiens au courant :=)

[__sPiKe__]

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

[sat83]

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 :

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

Image1->Visible = false ;

[__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.

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

C'est exactement ce que je voulais, merci

[__sPiKe__]

Une autre question, peut-on mettre un cadre autour d'un TIMage ?

[sat83]

Tu peux utiliser un TBevel, ou alors placer ton TImage dans un TPanel pour avoir un effet de cadre.

[kmaniche]

Si tu cherches à dessiner manuellement un cadre autour du TIMage, tu peux tracer une rectangle par exemple :

Code :

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

1
2
 
... -> Canvas -> Rectangle(X, Y, X', Y') ;

[__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.

[kmaniche]

Avec la solution que t'as donné sat83, tu peux mettre AutoSize du TBevel à true

[__sPiKe__]

Il n'y a pas d'AutoSize avec le TBevel

[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 :

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

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 ;

[__sPiKe__]

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

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 :

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

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/

[kmaniche]

Il suffit de d'enregistrer également l'état du CheckBox dans le registre

[__sPiKe__]

Oui c'est bien mon idée, mais voulais surtout savoir comment faire