image dans une base de donnéeRésolu

Question

Salut tout le monde

comment enregistrer une image (Jpeg,bmp......) dans une base de données, c'est a dire avec un enregistrement et puis l'afficher dans un dbimage
  merci

Ali_usto · Accepted Answer

Voila un bout de code que j'ai trouvé dans ce site et qui marche tres bien

pour enregistrer l'image dans la table voici le code
//ceici est la fonction de remplissage amélioté par F0xi
function WriteBlobFile(Table : Ttable; const Field, FileName : string) : boolean;
var blob,fs : Tstream;
begin
  table.edit;
  result := false;
  if (not FileExists(FileName)) or (not Assigned(Table)) then exit;
  blob := nil;
  fs   := nil;
  try
    blob := table.CreateBlobStream(table.FieldByName(Field),bmWrite);
    blob.Seek(0,soFromBeginning);
    try
      fs := Tfilestream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      blob.CopyFrom(fs, fs.size);
  result := true;
    finally
      fs.Free;
    end;
  finally
    blob.Free;
    table.Refresh;
  end;
end;
/// ceci est la procedure à appeler lorsqu'on appui sur le bouton choix d'image!
procedure TAj_ele.OKClick(Sender: TObject);
Var fn:string;
begin
if Opd1.execute then
begin
    fn:=opd1.FileName;
   if not WriteBlobFile(eleve, 'ph', fn) then
      MessageDlg('Erreur d''ecriture du fichier dans la table...',mtWarning,[mbOk],0);
end;
image1.Picture.LoadFromFile(opd1.FileName);
end;

sp40 · Answer

Salut,

Quelle base de donnée utilise tu ?

Simon

Ali_usto · Answer

J'utilise une base de donnée paradox

cs_cantador · Answer

il faut utiliser le type graphique "G" qui est en fait un blob..

cantador

Ali_usto · Answer

J'ai utilisé le type graphique il m'a ecrit  mais j'ai pas su comment l'utiliser par la suite   est ce que vous pouvez m'apporter encore un peut plus d'explication    

  merci

sp40 · Answer

Salut, 
De mémoire, il me semble que tu peux faire :
MaTable.Append;
...
MaTableMonChampBLOB.Assign([image en BMP ou jpeg);
MaTable.Post;

Simon

Ali_usto · Answer

ça ne veut pas marcher , est ce qu'il n yaurais pas une sourcee dans ce site ou il y a un exemple sur  sa ...   j'ai cherché mais rien trouvé

et est cec que je peux pas le faire a partir du module de base de donnée

cs_cantador · Answer

tu as un exemple dans la demo de borland (frame/DB/ je crois..)
merci de cliquer "reponse acceptée"

cantador

Ali_usto · Answer

Ok j'ai vu l'exemple je vais essayer de le voir de plus pret  et le comprendre encore mieux
   merci     a bientot

Ali_usto · Answer

Je vais voir dabord l'exemple et le comprendre encore mieux pour cliquer sur reponse accepté

yvessimon · Answer

Bonjour,


En utilisant DBImage c'est plus simple pour les images bmp.


Une image prend becoups de place.


La base de donnée va grossir tres vite avec le nombre d'enregistrement.

Salutations

yvessimon

sp40 · Answer

Re salut,


Exemple d'enregistrement d'un bitmap dans un champ graphique

Ça marche... maintenant, les plus forts que moi te diront si c'est propre (mais ça c'est une autre histoire...)


Attention, ça ne marche que pour les BMP

cf -> aide delphi TBLOBTYPE ftGraphics 


Si tu veux convertir un jpeg en bmp, tu as une function sur la JCL JPegToBitmap

(JCL et JVCL téléchargeable sur SourceForge)

Si c'est un autre format... je sais pas


procedure TFdepart.Button1Click(Sender: TObject);

var

   MyBMP : TBitmap;

begin

     MyBMP :=  TBitmap.Create;

     MyBMP.LoadFromFile( Nom du fichier bmp );

     TBL.Active : = True;

     TBL.Append;

     TBLnum.AsInteger := 1;

     TBLimg.Assign(MyBMP);

     TBL.Post;

     MyBMP.Free;

end;


Voilà 

Si ça marche pas, merci de nous indiquer le message d'erreur, des fois ça peut aider...

Simon

cs_cantador · Answer

LoadFromFile(Nom du fichier bmp);
c'est bien à condition d'avoir quelques images à montrer, mais si tu en as plusieurs centaines, là çà devient problématique de stoker tous les fichiers et autre argument, les BDD sont de plus en plus performantes et stockent de plus en plus de quantités impressionnates de données.

@bientôt

cantador

sp40 · Answer

-> Cantador 
J'ai pas tout compris...  
L'exemple montre comment enregistrer un bitmap dans une base de donnée paradox (je pense que ça marche également pour fb), ce qui répond à la question posée, non ? ()
Qu'entends-tu par des centaines de fichiers ?

Simon

Ali_usto · Answer

///////////////////////     
    TBLnum.AsInteger := 1;
      TBLimg.Assign(MyBMP);
  //////////////////////////
  j'ai pas bien compris cette partie des instruction  que representent   tblnum et tblimg

   merci

Ali_usto · Answer

Oui cantador a raison    
                
                LoadFromFile(Nom du fichier bmp);
  tu ne vas pa a chaque fois changer le nom du bmp  si t'as beaucup d'images sa devient plus interessant la solution que tu proposes

Ali_usto · Answer

J'ai toujours pas trouver de reponse a ma question

yvessimon · Answer

Bonjour,

Si l'image est enregistrée dans la base il est necessaire de la visualiser.


Aussi en utilisant dbimage il est possible de visualiser avant l'enregistrement. et après

Salutations

yvessimon

sp40 · Answer

a Ali_usto


Sur :

TBLnum.AsInteger := 1;

TBLimg.Assign(MyBMP);

A priori, TBL c'est une table...

A priori, num c'est un champ integer

A priori, img c'est un champ graphique


A propos de mon code :

Ça explique comment faire entrer un bmp dans une table contenant un champ de type graphique. 
Pour l'exemple, j'ai choisi de créer un bmp avec un loadfromfile...
mais c'est un détail, ce qui est important, c'est la façon
d'enregistrer ce bmp dans la table ! (ce qui, je pense, répond à ta
question initiale). Après, si tu récupères une image autrement, c'est
une autre histoire...

Simon

Ali_usto · Answer

Ok je vois j'ai saisi    je vais essayer ta methode  et voir si ça va marcher   
  merci

Ali_usto · Answer

Ok je vois j'ai saisi    je vais essayer ta methode  et voir si ça va marcher   
  merci

Ali_usto · Answer

out le monde j'ai trouvé une mthode qui charge la photo dans le dbimage mais , l'image ne s'enregistre pas   :

procedure TMainfrm.dbimageClick(Sender: TObject);
begin
if OuvrirPhoto.Execute then
dbimage.Picture.LoadFromFile(OuvrirPhoto.FileName);
end;

ouvrirphoto --> openpicturedialogue...

  je l'ai soutiré dasn un exemple ou sa maeche bien ,  mais quand je l'ai essayé moi , elle ne veut pas marcher

sp40 · Answer

Salut,
tu pourrais me dire où trouver ton exemple qui marche ?

Simon

sp40 · Answer

Resalut....
euh, chez moi ça marche et ça marche pas ! 
Je m'explique :
Sur un nouvel enregistrement, pas de problème. La table est en insertion grace au append appelé sur le clic Nouveau, le DBImage est vide et on peut y charger une photo qui est insérée dans l'enregistrement.
Mais en modification ...
D'accord, si tu cliques sur la photo, tu peux en charger une autre. 
Mais si tu cliques sur Modifier .... la photo n'est pas enregistrée (normal, il n'y a que la date de naissance qui est mise à jour). J'ai essayé de faire un "update" sans succès...
Pire... si tu changes la photo et que tu cliques sur une autre ligne de la grille... message d'erreur. 
La seule solution que j'ai trouvée, c'est d'avoir un TImage dans lequel on charge une photo et un ajout sur le bouton Modifier : 
EtudiantPhoto.Assign(Image1.Picture);
Etudiant.Post;
Là, l'image est bien actualisée dans la base.
Sur l'aide delphi (Delphi 5), on trouve ceci :
TDBImage affiche une image contenue dans un champ BLOB de l'enregistrement en cours d'un ensemble de données.
Ça veut peut être dire qu'on ne peut pas s'en servir pour modifier des photos existantes... La question mérite d'être approfondie... à moins que quelqu'un ait déjà expliqué la chose sur le site... à voir.
Si tu trouves, fais en profiter les autres !!! 

Simon

Ali_usto · Answer

Ok conte sur moi , je vais continuer a rechercher encore , parcee que j'en ai vraiment besoin pour mon projet , et je te tiendrais au courant   je conte sur toi aussi  s'il y a du nouveau  
 
 ciao  @+

wafaa2007 · Answer

bonjour tout le monde

Ali_usto · Answer

Bonjour a toi aussi Wafaa , que nous vaut l'honneur de ta presence ici,  est ce que t'aurais pas une reponse pour notre question

si c'est la cas ça nous ferait tres plaisir

mouloud261 · Answer

merci simonpelloquin c'est marcher bien

Image dans une base de donnée

28 réponses

Votre réponse

Discussions similaires