PROCEDURE POUR INTEGRER UN BLOB DANS UNE BASE DE DONNÉES PARADOX

Commentaire de f0xi le 05/08/2006 04:47:32 administrateur CS

salut, interressant pour les debutants, toute fois elle gagnerais en utilitée declarée comme suis :



function WriteBlobFile(Table : Ttable; const Field, FileName : string) : boolean;
var blob,fs : Tstream;
begin
  result := false;
  if (not FileExists(FileName)) or (not Assigned(Table)) then exit;
  blob := nil;
  fs   := nil;
  try
    blob := table.CreateBlobStream(table.FieldByName(Field),bmWrite);
    blob.Seek(0,soFromBeginning);
    try
      fs := Tfilestream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      blob.CopyFrom(fs, fs.size);
  result := true;
    finally
      fs.Free;
    end;
  finally
    blob.Free;
  end;
end;


comme ça peu importe l'utilisation d'un OpenDialog ou autre ...
il suffit juste d'indiquer le nom de fichier.
le retour boolean permet de savoir si le fichier a bien été inscrit dans la table.
en cas de fichier inexistant ou d'objet TTable non alloué on ne doit pas aller plus loin.
les objets ne se declarer pas en VAR ... mais sans parametres.
les autres arguments peuvent etre declarer CONST c'est mieux.


exemple d'utilisation :

if OpenDialog1.execute then
   if not WriteBlobFile(MaTable, 'Image', OpenDialog1.FileName) then
      MessageDlg('Erreur d''ecriture du fichier dans la table...',mtWarning,[mbOk],0);

Commentaire de Delphiprog le 06/08/2006 22:58:18 administrateur CS

Ce type de code est souvvent demandé dans le forum et c'est bien de l'avoir publié.
Je rejoins tout à fait Foxi pour ses remarques constructives (sauf peut-être pour l'affectation à Nil des deux pointeurs blob et fs qui ne sont pas d'une grande utilité ici).

Je sens que tu vas devoir te coller à l'opération inverse, c'est à dire la lecture. En effet, écrire dans un champ blob est une opération assez facile. En revanche, la lecture est plus délicate quand on peut y trouver des contenus de nature différentes : images, sons, etc.
Alors, bon courage et n'oublies pas que toutes les images ne sont pas des jpeg !

Commentaire de labchara le 07/08/2006 13:17:51

Merci pour ce petit code , en effet la partie champs memo est peu developpé sur les livres et les sites de delphi, d'ailleurspour ma part je cherche toujours une methode simple pour lire le cotenu des champs binaire avec bdd sql.

Commentaire de ghassenus le 07/08/2006 19:06:40

OK voila mon Ideé en claire ( J'utulise un Fichier flash mais rien n'empêche d'utiliser tout autre type de Fichier)
[CODE]
procedure TForm2.Button1Click(Sender: TObject);
Var TF:TBlobField;
begin
  TF:=Table1.FieldByName('Ani') as TBlobField ;
  TF.SaveToFile('.\SF_Temp.swf');
  TE.free;
  SF1.LoadMovie(0,ExtraCtFilePatH(Application.ExeName)+'SF_Temp.swf');
SF1.Play;
end;
[/CODE]

Commentaire de blatour le 07/08/2006 20:00:15

Re bonjour,

Pour ceux que ça intéresse voici une fonction que j'ai écrite pour tester le format de certains fichier (Gif, Jpeg et BitMap) et on l'affecte à un TImage :

Appelle de la fonction :

LitPhoto(TBlobField(NomTable.FieldByName('NomChamp')), ComposantTImage);
Exemple :
  LitPhoto(TBlobField(qryProduit.FieldByName('PRD_PHOTO')), formProduit.imgPhoto);

La fonction :

Procedure LitPhoto(Champ : TBlobField ; var Image : TImage);
var
  lStr : TMemoryStream;
  lTete : array[0..6] Of Char;
  lGif : TGifImage;
  lJpg : TJPEGImage;
  lImg : tBitMap;
begin
  If Not Champ.IsNull then ' On test si le champ est nul
  begin
    lStr := TMemoryStream.Create; ' On créé un MemoryStream
    Try
      Champ.SaveToStream(lSTr); ' On affecte le contenu du champ dans le MemoryStream
      lStr.Position := 0;
      lStr.Read(lTete[0], Length(lTete)); ' On lit les 6 premiers caractères que l'on place dans la variable lTete
      lStr.Position := 0;
      If (Ord(lTete[0]) = 71) And (Ord(lTete[1]) = 73)
           And (Ord(lTete[2]) = 70) then ' Test pour savoir si c'est un Gif
      begin
        lGif := TGIFImage.Create;
        Try
          lGif.LoadFromStream(lStr);
          Image.Picture.Assign(lGif);
        Finally
          lGif.Free;
        end;
      end
      else If (Ord(lTete[0]) = 255) And (Ord(lTete[1]) = 216)
           And (Ord(lTete[2]) = 255) then ' Test pour savoir si c'est un jpeg
      begin
        lJpg := TJPEGImage.Create;
        Try
          lJpg.LoadFromStream(lStr);
          Image.Picture.Assign(lJpg);
        Finally
          lJpg.Free;
         end;
      end
      else ' Sinon c'est un bitmap
      begin
        lImg := TBitmap.Create;
        Try
          lImg.LoadFromStream(lStr);
          Image.Picture.Assign(lImg);
        Finally
          lImg.Free;
        end;
      end;
    Finally
      lStr.Free;
    end;
  end
  else
    Image.Picture.Graphic := Nil;
end;

Et voilà. En espérant que ça vous aide.

Commentaire de Delphiprog le 07/08/2006 22:33:59 administrateur CS

@blatour:
C'est pas mal et c'est surement une des voies à suivre sauf en ce qui concerne le cas par défaut, toujours un peu scabreux. Quid des png et autres formats ?

Commentaire de blatour le 08/08/2006 10:46:46

Salut DelphiProg,

Oui mais dans mon cas, je n'avais à faire qu'à ces 3 types de fichiers ;-).
C'est juste un exemple sortant d'une de mes sources.

Mais pour ceux que ça intéresse,le format BitMap commence par les 2 caractères suivants : 'BM'.
Codage héxadécimal : 42 4d

Bon codage à tous.

Commentaire de blatour le 08/08/2006 12:53:32

De rien.

En plus avec le TMemoryStream, tu peux aussi tester le format du fichier comme je l'ai montré (ou par une autre méthode) et après enregistrer directement le contenu dans un fichier avec la bonne extension si nécessaire :

// Test du contenu
  lStr.Position := 0; ' Il faut toujours remettre la position du curseur au début du Stream
  lStr.SaveToFile(NomFichier + Extension);

Et le tour est joué.

Commentaire de blatour le 08/08/2006 13:53:41

Il faut regarder au niveau de ces contrôles s'ils disposent d'une propriété "LoadFromStream". Si ce n'est pas le cas, il faut passer par l'enregistrement sur le disque dur.

Mais après lecture du fichier par le composant, il est tout à fait possible de supprimer le fichier du disque dur après utilisation. Ce qui n'est pas génant en soit.

Commentaire de blatour le 11/08/2006 10:21:43

Bonjour,

Je n'utilise pas ces composants. Je suppose que ça doit être possible.

Commentaire de smail21 le 23/12/2006 13:26:35

je m'excuses mais je me perd dans vos codes sources!
je n'arrive pas à les essayer! car je ne sai spas comment dois-je paramétrer mes composants à utiliser.
mon problème est de pouvoir enregistrer des images (aux formats divers) dans une table (champs de type Bolb) donc je vous demande de m'aider et em dire comment dois-je faire

car pour le format BMP ça ne pose pas de probleme j'utilise une table et un OpenDialog.
j'attends vos réponses
merci

Commentaire de smail21 le 27/12/2006 11:35:15

merci beaucoup GHASSENUS!

ça marche très bien sauf qu'il n'accepte que des image BMP ou icone, mais il ne me donne pas la main pour enregistrer des GIF ou JPeg car mes utilisateurs peuvent insérer n'importe quel type d'image!
comment faire?

Commentaire de blatour le 27/12/2006 13:19:34

Salut, peux tu nous faire aussi passer ta procedure "RemplirBlob" stp ?

Crd.

Commentaire de smail21 le 27/12/2006 13:35:19

est-ce que le problème n'est pas dans le type du champs? car il est déclaré String et moi mon champs image est de type Graphic!?

donc j'ai deux problèmes :
1- l'erreur du point attendu mais ) trouvé
2- l'enregistrement des images de types jpg

Commentaire de blatour le 27/12/2006 13:57:08

Essaies ça :

procedure TForm1.remplirblob( var table:Ttable;opd:TOpenPictureDialog;champ:string);
//champ designe le champs de la table alloué au BLOB
begin
  TBlobField(Table.FieldByName(Champ)).LoadFromFile(opd.FileName);
end;

Par contre, mettre var pour la table, à mon avis, ça ne sert à rien.

Crd.

Commentaire de smail21 le 27/12/2006 15:37:21

@Blatour : ça ne marche pas c'est toujours le même message
quant à la procedure de Foxi, il me dit: erreur d'écriture dans le flux :(

Commentaire de ghassenus le 01/01/2007 12:54:51

pour enregistrer l'image dans la table voici le code
//ceici est la fonction de remplissage amélioté par F0xi
function WriteBlobFile(Table : Ttable; const Field, FileName : string) : boolean;
var blob,fs : Tstream;
begin
  table.edit;
  result := false;
  if (not FileExists(FileName)) or (not Assigned(Table)) then exit;
  blob := nil;
  fs   := nil;
  try
    blob := table.CreateBlobStream(table.FieldByName(Field),bmWrite);
    blob.Seek(0,soFromBeginning);
    try
      fs := Tfilestream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      blob.CopyFrom(fs, fs.size);
  result := true;
    finally
      fs.Free;
    end;
  finally
    blob.Free;
    table.Refresh;
  end;
end;
/// ceci est la procedure à appeler lorsqu'on appui sur le bouton choix d'image!
procedure TAj_ele.OKClick(Sender: TObject);
Var fn:string;
begin
if Opd1.execute then
begin
    fn:=opd1.FileName;
   if not WriteBlobFile(eleve, 'ph', fn) then
      MessageDlg('Erreur d''ecriture du fichier dans la table...',mtWarning,[mbOk],0);
end;
image1.Picture.LoadFromFile(opd1.FileName);
end;