Discussion :

[yendre]

Bonjour à tous,
J'ai une base de données que j'ai créée sur paradox7 (j'utilise delphi7).
Dans ma base, j'ai un champ appelé IMAGE constituée d'image bmp de chaque enregistrement. Je voudrais dans mon application, afficher une image
dans un objet Timage. Je vous donne le code que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var MS : TMemoryStream;
 
Begin
 
MS: TMemoryStream.Create;
 
With Query1 Do
 
begin
 
Active :=False;
SQL.Clear;
SQL.Add('Select IMAGE from " Chemin complet de la table" ');
ExecSQL;
Active:=True;
End;
 
Try
TBlobField(Query1.FieldByName('IMAGE')).saveToStream(MS);//Sauver  MS.Position:=0;//On se delplace au debut du stream
Image1.Picture.Bitmap.LoadFromStream(MS);// On affiche l'image
Finally
MS.Free;//Liberer la memoire
end;
 
end;

J'ai le message suivant:

Le projet rangetest.exe a provoqué une classe d'exception EInvalidGraphic
avec le message Image bitmap incorrecte'. Processus stoppé. Utilisez Pas-pas ou exécuter pour continuer.

S'il vous plaît, j'ai besoin d'aide car cela des jours que je cherche des solutions.
Merci.

[ero-sennin]

Salut,

L'erreur vient du fait que tu essaies d'ouvrir un format d'image non pris en compte par le composant TImage (logiquement c'est ce que veut dire l'erreur).

Ensuite, personnellement je ne fais pas comme toi pour charger mes images (j'ai jamais essayé cette méthode).

Je fais ceci :

Code :

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

Image1.Picture.LoadFromFile

Le soucis, je pense c'est que tu veux affecté une image portant l'extension jpg à un Bitmap ce qui n'est pas bon.

Ce que je ferai c'est :
1) Dans la BDD, je fais ma requête
2) Je lis la colonne comportant le chemin complet de l'image à charger
3) Je fais un LoadFromFile comme cité ci dessus.

J'espère que ma réponse te conviendra
A+

PS: Penses à mettre les balises de code (le # dans la barre de menu)

[ALWEBER]

De manière plus simple si tu reprends l'exemple "fishfact.dpr" de borland
Tu peux ajouter un objet Image1 de type Timage et mettre

Code :

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

  Image1.Picture.Assign(DBImage1.Picture);

[ShaiLeTroll]

Peux-tu nous fournir le code qui a écrit l'image, car dans le blob, tu as quoi ? un Bitmap ? un objet TImage stocké comme si il était en DFM, ...


Sinon Assez, d'accord avec ero-sennin, Au lieu de stocker l'image en blob, la stocker dans dans un sous répertoire de la base par exemple, et mettre le nom du fichier (si partiel, il serait par défaut BASEDIR\IMAGE\..., si complet, ben complet quoi ...) et ensuite faire le LoadFromFile ... sinon tu va tuer tes tables paradox, très rapidement ...

[yendre]

Je vous envoie le code utilisé pour l'affectation des images bmp à la base de données :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Procedure TForm1.FormCreate(Sender:TObject);
Var Image 1, Image2, Image3 : TBitmap ;
Var redrandom1,redrandom2,redrandom3 : String ;
Var A,B,C: String;
begin
 
// Initialisation 
redrandom1:='redrandom1';
redrandom2:='redrandom2';
redrandom3:='redrandom3';
 
A:='A' ;
B:='B' ;
C:='C' ;
 
// Remplissage de la base de données avec les enregistrements
 
Image1:=Tbitmap.Create ;
Image1.LoadfromFile('repertoire+redrandom1.bmp');
Table1.InsertRecord([1,redrandom1,A,Image1]);
 
Image2:=Tbitmap.Create ;
Image2.LoadfromFile('repertoire+redrandom2.bmp');
Table1.InsertRecord([2,redrandom2,B,Image2]);
 
Image3:=Tbitmap.Create ;
Image3.LoadfromFile('repertoire+redrandom1.bmp');
Table1.InsertRecord([3,redrandom3,C,Image3]);
end;

Je rapelle que ma base de données est constituée de quatre champs :
ORDRE, NOM,ETIQUETTE, et IMAGE respectivement l'ordre dans la base, le nom de chaque image, etiquette (lettre qui apparaitra au survol de la souris) et <BLOB BINAIRE>.
Merci d'avance

[ShaiLeTroll]

Effectivement, tu enregistre tout l'objet, quoi que, je ne sais même pas ce que cela fait ? enregistre le pointeur ? met l'image en Stream ... si c'est bon, j'ai parcouru le code de InsertRecord, cela utilise la persistance (ce que je disais quand j'évoquais la DFM)

tu devrais vérifier la taille renvoyé par "MS.Size" est bien supérieur à Zéro ou vérifier IsNull ... juste pour la rigueur

Sinon il me semble qu'InsertRecord fait appel à SetFields pour gérer le remplissage entre un Blob et un TBitMap (qui dérive de TInterfacedPersistent et implémente IStreamPersist)

essaye

Code :

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

1
2
 
Image1.Picture.Bitmap.Assign(TBlobField(Query1.FieldByName('IMAGE'))):

voir si un create avant le assign est nécessaire

Code :

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

Image1.Picture.Bitmap := TBitmap.Create();

Logiquement le Assign du TBitMap va appeler celui de son ancêtre dans TPersistent, et celui ci devrait appeler le AssignTo de TBlobField qui devrait utiliser TInterfacedPersistent (via IStreamPersist) pour lire le BitMap dans le blob ... bon tu ce que je dis viens de mon étude des unités DB et Graphic ... toujours source d'inspiration ...

[ALWEBER]

Voilà une procedure qui marche (voir exemple dans le fichier zip ci joint) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Image1 : TBitmap ;
  redrandom1,redrandom2,redrandom3 : String ;
  A,B,C: String;
begin
// Initialisation
redrandom1:='redrandom1';
redrandom2:='redrandom2';
redrandom3:='redrandom3';
 
A:='A' ;
B:='B' ;
C:='C' ;
 
// Remplissage de la base de données avec les enregistrements
Table1.Open ;
Table1.Edit ;
Image1:=Tbitmap.Create ;
Image1.LoadfromFile('redrandom1.bmp');
Table1.InsertRecord([1,redrandom1,A,Image1]);
Image1.FreeImage ;
 
Image1.LoadfromFile('redrandom2.bmp');
Table1.InsertRecord([2,redrandom2,B,Image1]);
Image1.FreeImage ;
 
Image1.Free ;
 
Table1.close ;
end;

[ShaiLeTroll]

Effectivement la méthode du TDBImage ...

Juste pour aider yendre, tu dois mettre renseigner DataField et DataSource comme tu as l'habitude avec des champs DB (TDBEdit, ...)

Sinon voici le code pour charger l'image

Code :

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

1
2
3
4
5
6
procedure TDBImage.LoadPicture;
begin
  if not FPictureLoaded and (not Assigned(FDataLink.Field) or
    FDataLink.Field.IsBlob) then
    Picture.Assign(FDataLink.Field);
end;

C'est bel et bien un Assign du Field dans l'Image ...

ceci doit fonctionner aussi alors et comme Picture est créé, le assign suffit ...

Code :

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

Image1.Picture.Assign(TBlobField(Query1.FieldByName('IMAGE')));

[yendre]

Vraiment encore une fois, je vous remercie beaucoup pour ce soutien. C'est très sympa de votre part.
J'avais un problème d'internet, ça y est c'est revenu.
ShaiLeTroll, ton message de 10h 58min m'a beaucoup arrangé. Effectivement,
Ta proposition de code :

Code :

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

1
2
3
 
Image1.Picture.Bitmap := TBitmap.Create();
Image1.Picture.Bitmap.Assign(TBlobField(Query1.FieldByName('IMAGE')));

marche très bien.

Aussi merci à ALWEBER, pour le raffinement de mon code de remplissage de la base de données. Je teste ce que vous m'avez envoyé cet après-midi et je vous en dirai.
Merci à tous.

[ShaiLeTroll]

Attention aux fuites mémoires, chaque bitmap créé devrait surement être libéré ... essaye de voir si tu peux faire "Picture.Assign" au lieu de "Picture.Bitmap.Assign"

[yendre]

Bonjour,
J'aimerais savoir s'il existe une fonction dans Delphi 7 qui permet de tirer aléatoirement n nombres différents parmis n nombres différents :
exemple : 1,2,3,4
resultat : 2, 1,4,1
Merci d'avance.

[ShaiLeTroll]

Randomize, Random, ... cela renvoi des valeurs à virgule, ... faut arrondir

normalement, on ne change pas de sujet, et clic sur Résolu