afficher dbimage

Question

Bonjour, 
je veux insérer et afficher deux image jpeg automatiquement dans une base de donnée paradox (2 dbimage), et ça me donner un message d'erreur 'image bitmap incorrect'.
Aidez moi svp!!!!!!! :(

cs_cantador · Answer

Bonjour,

le composant DBImage n'accepte que les images Bitmap (bmp)
d'où l'erreur obtenue.
il est donc nécessaire de déclarer d'une part le champ de stockage de la base en mode graphique (type G)
et d'autre part, d'effectuer une conversion Jpg vers Bmp

si tu cales, on te donnera un exemple de code...

cs_cantador · Answer

voilà un code :

---------------uses jpeg;---------------procedure TForm1.Button1Click(Sender: TObject);var  MyJpg: TJpegImage;  Bmp: TBitmap;begin  if not table1.Active then    table1.Open;  try     table1.Append;     { table en mode ajout }  MyJpg := TJpegImage.Create;  MyJpg.LoadFromFile('c:\MonFichier.jpg'); {emplacement du Jpg}  Bmp := TBitmap.Create;  Bmp.Assign(MyJpg);  DBImage1.Picture.Bitmap := Bmp;  Bmp.Free;  MyJpg.Free;    table1.Post;           { sauvegarde }  finally    table1.Close;         { fermeture }  end;end; 
 
il y a d'autres solutions possibles selon le résultat souhaité..

sp40 · Answer

Sujet mainte fois répondu...
Au hasard, deux posts qui traitent du sujet...
http://codes-sources.commentcamarche.net/forum/affich-956002-image-dans-une-base-de-donnee
http://codes-sources.commentcamarche.net/forum/affich-896158-dbgrid

Faut chercher un peu zouzou

cs_cantador · Answer

@simonpelloquin:

la solution proposée est simple et ne fait pas appel à Stream.
mais c'est vrai, le sujet a largement déjà été débattu !
et il faudrait connaître aussi la version de delphi utilisée..

cs_cantador · Answer

pas de soucis simonpelloquin !

c'est un peu toujours la même histoire qui se répète.
DelphiFr intégré désormais dans CCM est devenu un produit de consommation courante..
mais ça reste vivant, débridé et convivial.

cs_MAURICIO · Answer

Bonjour Messieurs, 

Avant que delphifr ne fut, il y avait déjà ceux qui posaient des questions et ceux qui collaient les liens d' un temps que ces premiers n' ont pas connus. 

Je vous trouve bien courageux de continuer à alimenter cette machine qui ne se lâsse pas de nous lâsser ... 

Certains sont partis bien avant le passage à CCM, d' autres ont décroché juste après, avec le coeur pleins de regrets d' un temps qui a fait son temps. 
La vérité est que la nouvelle génération que l' on attendait tous, n' a pas assimilée pour devenir créative et généreuse. Elle a juste fait copier/coller au grand regret de ceux qui attendaient un signe de renouveau. 

Sur ce, bon Noel à vous, et désolé zouzou pour ce commentaire ...

Mauricio

Caribensila · Answer

Un petit bonjour à tous en passant ici par hasard...

Ici où le temps semble s'être figé, comme les sujets de conversation ;)
Sodade ! Comme dirait Cesaria Evora, n'est-ce pas Mauricio.

JOYEUX NOEL A TOUS !

sp40 · Answer

Waaaaa !!
Cari !!! Ça alors ! 
Bonnes fêtes à toi aussi !
(Et à tous les anciens aussi ;))

Afficher dbimage

8 réponses

Votre réponse

Discussions similaires