Discussion :

[KRis]

Bonjour à tous,

Voilà mon problème :
Je charge un fichier JPG dans un Timage qui fait 10 Mo par exemple.
J'insère ce JPG dans ma BDD Interbase par le code ci-dessous et la taille de celle -ci augmente de 67 Mo...
Je suppose que mon image a été inséré sous format BMP.
Est-il possible d'insérer au format JPG ? si oui comment ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  SQLQ.SQL.Add('insert into IMAGE (IMAGE) values (:IMAGE)');
 
  SQLQ.ParamByName('IMAGE').Assign(UneTimage.Picture.Bitmap);
 
  Try
    SQLQ.ExecSQL();
    Showmessage('Insertion OK');
  Except on E : Exception do
    begin
      Showmessage('Erreur : ' + E.Message);
    end;

Merci d'avance !

[Rayek]

Peut être avec ParamByName('IMAGE').LoadFromFile(CheminImage,ftBlob) que ca te copiera le fichier dans la base sans le transformer

[Mjm]

En ce qui me concerne j'utilise les Stream et je n'ai pas de pb, voici un exemple simplifié utilisant UIB (Avec IBX c'est quasi identique)

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
 
Procedure Image(N:Integer);
Var  Stre : TMemoryStream;
     Trs: TjvUIBTransaction ;
Begin
  Stre:=TMemoryStream.Create;
  Gen_Jpeg.SaveToStream(Stre);// (Gen_Jpeg est du type : TJpegImage et contient une image)
  DBImages.Connected:=True;
  Trs := TjvUIBTransaction.Create(Nil);
  Trs.DataBase:=DBImages;
  Trs.Options := [tpReadCommitted, tpNoWait, tpRecVersion];
  with TJvUIBQuery.Create(nil) do
    begin
      Transaction := Trs;
      Try
       SQL.Text := INSERT INTO T_SCAN (Numero,Image) VALUES (N,:Blob);// N est un N° défini dans mo applic)
       ParamsSetBlob('blob', Stre);
       Execute;
       Close(etmCommit);
      Finally
       Free;
      End;
    end;
  FreeAndNil(Stre);
  FreeAndNil(Trs);
  DBImages.Connected:=False;
end;

[KRis]

merci beaucoup, je teste cette solution ;-)

[KRis]

La seule différence qui me pose problème avec le code de Mjm, c'est que moi j'ai une image dans un TImage, que je souhaite envoyer vers un TJpegImage, pour pouvoir insérer le Jpeg au format Jpeg dans la base...

et voici comment je procède :
je sauvegarde vers un TMemoryStream le TImage, que j'aimerais recharger dans un TJpegImage...

Code :

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

1
2
3
4
 
  UneTImage.Picture.Graphic.SaveToStream(UnStream);
  UnStream.Seek(0,soFromBeginning);
  UneTJpegImage.LoadFromStream(UnStream);

mais ce code plante sur la dernière ligne avec le message suivant :
"le Projet x.exe a déclenché la classe d'exception EJPEG avec le message 'Erreur JPEG #53'"...

je n'arrive donc pas à recharger le Stream dans le TJpegImage... quelqu'un aurait - il une idée ?

Merci d'avance.

[KRis]

J'ai réussi à contourner le problème précédent, en évitant les stream par le code suivant :

Code :

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

1
2
 
  UneTJpegImage.Assign(UneTImage.Picture.Bitmap);

j'obtiens donc un TJpegImage, parfait !

mais un problème en soulevant un autre, je constate que si je charge un Jpeg trop gros (environ > 2Mo) , lors de l'affectation du paramètre pour insertion dans la base :

Code :

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

1
2
3
4
5
 
  ...
  SQLQ.SQL.Add('insert into IMAGE (IMAGE) values (:IMAGE)');
  SQLQ.ParamByName('IMAGE').Assign(UneTJpegImage);
  ...

j'ai le message d'erreur suivant : "le projet x.exe a déclenché la classe d'exception EOutOfResources avec le message "Espace insuffisant pour traiter cette commande"".... ?

Quelqu'un aurait - il une idée ? cela ressemble à un problème de mémoire ?

[KRis]

Après plusieurs test, je commence à croire que ce problème "EOutOfResources" semble incontournable...

l'insertion d'un gros Bitmap ne pose pas de problème, mais si je transforme ce Bitmap en Jpeg (par la classe TJpegImage), ce message apparait (pour les images dont la taille dépasse environ 2 Mo)...

Voilà, si quelqu'un a une idée, ou a déjà été confronté à ce problème, n'hésitez pas à me le faire savoir !

Merci.

[Hrothberht]

Après plusieurs test, je commence à croire que ce problème "EOutOfResources" semble incontournable...

l'insertion d'un gros Bitmap ne pose pas de problème, mais si je transforme ce Bitmap en Jpeg (par la classe TJpegImage), ce message apparait (pour les images dont la taille dépasse environ 2 Mo)...

Voilà, si quelqu'un a une idée, ou a déjà été confronté à ce problème, n'hésitez pas à me le faire savoir !

Merci.

Je reconnais le problème de sauver un objet TJpegImage (qui est assigné un TBitmap). La solution pour moi était:

Code :

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

1
2
3
4
5
6
7
8
bmp := TBitmap.Create;
bmp.HandleType := bmDIB;
bmp.Width := 4412; // for example
bmp.Height := 5637;
... // some actual filling of the bmp takes place here
jpg := TJpegImage.Create;
jpg.Assign(bmp);
jpg.SaveToFile('c:\tmp.jpg');

Regarde aussi ici

[edam]

et ici, sa te convient???