Probleme generation d un Jpeg issus d un champ blob "Erreur Jpeg#53"

Version imprimable

[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:

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]

16/05/2006, 12h51
anapurna

salut

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

Code:

PhotoStream.Seek(0,0);

avant le loadFromStream

@+ Phil
16/05/2006, 13h46
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?

salut

essai cela :

Code:

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

Ca ne compile pas :s

Code:

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:

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 :(

17/05/2006, 11h36
anapurna

salut

regarde ici les codes erreur
google

a priori tu as un probleme de memmoire

@+ Phil

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:

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 ;)