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 !