Discussion :

[sessime]

Bonjour la communauté,
J'aierais savoir si Mysql a les capacités de faire en quelques sortes de l'archivage des documents(pdf,excel,word) c'est a dire stocker sous mysql ses documents et les restituer à tout moment des que l'utilisateur en a bésoin.

[Alexandre T]

Insertion d'images dans un champ BLOB : pour et contre

Image, PDF, XLS, même combat.

[sessime]

Salut Alexandre,
j'en suis conscient pour le pour et le contre dans la faq mais c'est la procedure pour proceder à ces insertions et uploads.
Je suis moi dans un environnement client serveur(delphi et mysql) et si j'utilise des chemins droits d'acces peuvent me poser des problemes surtout aujourd'hui(2003 server par exemple),donc je cherche la technque d'insertion et d'upload.

[Maximil ian]

C'est plus un problème Delphi : je déplace dans ce forum.

[Rayek]

Cette future QR te permettra da faire ce que tu souhaites

[QR] Comment insérer et récupérer un fichier dans un champ de type BLOB ?

Cette QR prendra exemple avec les composants ADO mais elle est fonctionnel avec n'importe quel composant de base de données.

Dans les exemples qui vont suivres, on considèrera que nous travaillons sur la structure de table suivante :

Id : Champ auto incrémenté
Nom : Champ texte/varchar de 100 en taille
Fichier : Champ Blob

A- L'insertion
Il y a 2 méthodes pour insérer des documents (Images ,Documents Texte, programmes, etc ...) dans une base de données :

1- Par chargement

a- Avec une requete

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
 
if OpenDialog.execute then
  With AdoQuery do
  begin
    Close;
    SQL.Clear;
    SQL.add('insert into MaTable(Nom,Fichier)');
    SQL.Add('Values(:PNom,:PFichier)');
    ParamCheck := True;
    Parameters.ParamByName('PNom').Value := ExtractFileName(OpenDialog.Filename);
    Parameters.ParamByName('PFichier').LoadFromFile(OpenDialog.Filename, ftBlob);
  try
    ExecSQL;
  Except on E:Exception do
    begin
      Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
       E.Message);
    end;
  end; 
end;

b- Avec une table

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
 
if OpenDialog.execute then
  With AdoTable do
  begin
     // Met la table en mode insertion de données
     Append; 
    // enregistrement du nom de fichier dans la base de données
    FieldByName('Nom').asString := ExtractFileName(OpenDialog.Filename);
    // Enregistrement du fichier dans la base de données
    (FieldByName('Fichier') as TBlobField).LoadFromFile(OpenDialog.Filename, ftBlob);
  try
     // On ajoute dans la base de données
     Post; 
  Except on E:Exception do
    begin
      // On annule la tentative d'ajout dans la base de données
      Cancel; 
      Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
        E.Message);
    end;
  end; 
end;

2- Par assignation

Cette méthode nécessite que l'on connaisse à l'avance le type de données que l'on va transmettre à la base de données.
Dans les deux exemples qui vont suivre, nous utiliseront des images.

a- Avec une Requete

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
 
var
  Img : TBitmap;
begin
  if OpenDialog.execute then
  try
     img := TBitmap.Create;
     img.LoadFromFile(OpenDialog.FileName);
    With AdoQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert into MaTable(Nom,Fichier)');
      SQL.Add('Values(:PNom,:PFichier)');
      ParamCheck := True;
      Parameters.ParamByName('PNom').Value := ExtractFileName(OpenDialog.Filename);
      Parameters.ParamByName('PFichier').Assign(Img);
      try
        ExecSQL;
      Except on E:Exception do
        begin
          Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
          E.Message);
        end;
      end; 
    end;
  finally
    img.free;
  end;
end;

b- Avec une Table

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
 
var
  Img : TBitmap;
begin
  if OpenDialog.execute then
  try
     img := TBitmap.Create;
     img.LoadFromFile(OpenDialog.FileName);
     With AdoTable do
    begin
     // Met la table en mode insertion de données
     Append; 
     // enregistrement du nom de fichier dans la base de données
     FieldByName('Nom').asString := ExtractFileName(OpenDialog.Filename);
     // Enregistrement du fichier dans la base de données
     FieldByName('Fichier').Assign(Img);
     try
       // On ajoute dans la base de données
       Post; 
     Except on E:Exception do
       begin
         // On annule la tentative d'ajout dans la base de données
          Cancel; 
         Showmessage('Erreur lors de l'insertion de l''image dans la base de données : ' + 
          E.Message);
       end;
     end; 
   end;
  finally
    img.free;
  end;
end;

B- La récupération

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  sPath : String
begin
  With AdoTable do
  begin
    // Récupération du nom du fichier
    sPath := ExtractFilePath(Application.ExeName) + FieldByName('Nom').AsString;
    // sauvegarde du fichier
    TBlobField(FieldByName('Fichier')).SaveToFile(sPath);
  end;
end;

[Meryjean]

pardonner moi est ce que je peux suivre la même procédure pour SQL server 2008!!

[Rayek]

Oui cela fonctionnera.

La QR est indépendante du système de base de données.
Il faut juste avoir les bon format de champs.

[ShaiLeTroll]

Personnellement, j'utilise le stockage de fichier PDF en BLOB Zippé en Level 9, c'est plutôt stable !
Sinon on stocke très régulièrement des XML en BLOB, cela fonctionne très bien aussi !

Par contre, il est important d'avoir une Tableau dédié au Blob (avec quelques champs de recherche) et éviter le SELECT * lorsque l'on souhaite lister le fichier, la récupération du BLOB ne doit être faite qu'au moment utile !