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__]

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