BASES DE DONNÉES ET LES PHOTOS

Commentaire de omnia le 13/08/2007 16:29:31

Salut, un conseil pour tes prochaines source pense a supprimer tous les fichier de compilation (*.obj) et les fichiers Thumbs.db

sinon je n'utilise pas bortland mais si j'ai bien compris tu utilise une base de donnée pour référencé le comptenu d'un répertoire ?

sa n'aurait pas été plus rapide de traité le comptenu du répertoire directement en API plustot qu'utiliser une base de donnée access de plus étant assez, lourd il serait intéressant par contre que tu rempisse ta base de donnée de tes images, pour une exportation c'est sympa quand tu as ta base de donnée ton exe et tes dll plutot que tout un tas de répertoire.

Bon codage et bonne continuation :p

Commentaire de BruNews le 13/08/2007 19:49:07 administrateur CS

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(OpenPictureDialog1->Execute()) {
    Table1->Edit();
    Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    Table1->FieldByName("photo")->AsString = OpenPictureDialog1->FileName;
    DBEdit1->Text = OpenPictureDialog1->FileName;
    Table1->Post();
  }
}

void __fastcall TForm1::DBEdit1Change(TObject *Sender)
{
  if(DBEdit1->Text !="" ) {
    try {
      AnsiString cheminn;
      cheminn = Table1->FieldByName("photo")->AsString;
      Image1->Picture->Bitmap->LoadFromFile(cheminn);
    }
    catch(...) {}
  }
  else
    Image1->Picture->Bitmap->LoadFromFile("C:\\dbphoto\\photo\\blank.bmp");
}

void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Table1->Close();
  Table1->Open();
}
------------------------------------------
Voila tout le "code"...
Tu penses vraiment que ces qlqs lignes de sabir interprété apportent quoi que ce soit en prog à celui qui les lira ?