Discussion :

[seb8810]

[FONT=monospace]
Bonjour,

J'ai un champ blob dans une table dans une bd Firebird contenant une image au format JEPG.
Je souhaiterais afficher cette image sur une Form.

Voici le code que j'utilise :

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
 
 
procedure TForm1.Button4Click(Sender: TObject);
var
  PhotoJPEG: TJPEGImage;
  PhotoStream: TMemoryStream;
begin
 
  IBOPhoto.Open;
  IBOPhoto.First;
 
  PhotoStream := TMemoryStream.Create;
  IBOPhotoPHOTO.SaveToStream(PhotoStream);
 
 
  try
    PhotoJPEG := TJPEGImage.Create;
    try
      PhotoJPEG.LoadFromStream(PhotoStream);
      Image2.Picture.Assign(PhotoJPEG);
    finally
      FreeAndNil(PhotoJPEG);
    end;
  finally
    FreeANdNil(PhotoStream);
  end;
  IBOPhoto.Close;
 
end;

Apres l exécution du code une exception de type EJPEG se produit avec le message d'erreur "Erreur JPEG #42" . De quoi cela viens t il selon vous?

Merci d avance.[/Font]

[anapurna]

salut

il faut faire [FONT=monospace]
[/FONT]

Code :

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

PhotoStream.Seek(0,0);

avant le loadFromStream

@+ Phil

[seb8810]

Merci, cette exception ne se produit plus.
Par contre j ai maintenant ""Erreur JPEG #53"

Où puis je trouver la signification de ces codes d'erreur pas très parlant?

[anapurna]

salut

essai cela :

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
 
procedure TForm1.Button4Click(Sender: TObject);
var
   PhotoJPEG: TJPEGImage;
   PhotoStream: TStream;
begin  
  IBOPhoto.Open;  
  IBOPhoto.First;  PhotoStream:=IBOPhoto.CreateBlobStream(IBOPhotoPHOTO, bmRead);
if assigned(PhotoStream) then
begin
  PhotoStream.Position := 0;
  PhotoJPEG := TJPEGImage.Create;    
  try      
    PhotoJPEG.LoadFromStream(PhotoStream);
    Image2.Picture.Assign(PhotoJPEG);
  finally      
  FreeANdNil(PhotoStream); 
end;  
finally  
end;  
IBOPhoto.Close;
end;

@+ Phil

[seb8810]

Ca ne compile pas :s

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
 
 
procedure TForm1.Button4Click(Sender: TObject);
var
   PhotoJPEG: TJPEGImage;
   PhotoStream: TStream;
begin  
  IBOPhoto.Open;  
  IBOPhoto.First;  PhotoStream:=IBOPhoto.CreateBlobStream(IBOPhotoPHOTO, bmRead);
if assigned(PhotoStream) then
begin
  PhotoStream.Position := 0;
  PhotoJPEG := TJPEGImage.Create;    
  try      
    PhotoJPEG.LoadFromStream(PhotoStream);
    Image2.Picture.Assign(PhotoJPEG);
  finally      
  FreeANdNil(PhotoStream); 
end;  
finally   >>>>End attendu mais finally trouvé
end;  
IBOPhoto.Close;   >>>> Déclaration attendue mais IBOPhoto trouvé
end;   >>>>> . attendu mais ; trouvé

En remaniant un peu le code je suis arrivé a cela :

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
 
procedure TForm1.Button4Click(Sender: TObject);
var
  PhotoJPEG: TJPEGImage;
  PhotoStream: TStream;
begin
  IBOPhoto.Open;
  IBOPhoto.First;
  PhotoStream:=IBOPhoto.CreateBlobStream(IBOPhotoPHOTO, bmRead);
  if assigned(PhotoStream)then
  begin
    PhotoStream.Position := 0;
    PhotoJPEG := TJPEGImage.Create;
    try
      PhotoJPEG.LoadFromStream(PhotoStream);
      Image2.Picture.Assign(PhotoJPEG);
    finally
    FreeANdNil(PhotoStream);
  end;
  IBOPhoto.Close;
end;
end;

Ca se compile mais ca produit encore cette erreur #53

[anapurna]

salut

regarde ici les codes erreur
google

a priori tu as un probleme de memmoire

@+ Phil

[seb8810]

Apparemment les composant IBOObjects gèrent mal la récupération des champs Blob.

J'ai donc utilise les composant Interbase ( TIBTable, TIBConnection et TIBTransaction ).

voici le code me permettant l affichage d'une image issue de la BD.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button4Click(Sender: TObject);
var
  CheminImage: String;
begin
  IBTable1.Open;
  IBTable1.First;
  CheminImage:= 'c:\test.JPEG';
  IBTable1PHOTO.SaveToFile(CheminImage);
  Image1.Picture.LoadFromFile(CheminImage);
end;

Merci pour le coup de main