TMemoryStream vers BLOB en utilisant l'API Mysql

**Dj_Will** · 15/12/2006, 22h11

Salut à tous,

Voilà une journée que j'essaye par tous les moyens de stocker une image bmp dans une base de donnée mysql en utilisant l'API Mysql et que je n'arrive à rien. Les données de mon image sont stockées dans un TMemoryStream et je ne vois pas comment construire ma requette pour aller l'écrire, ou le lire dans ma base de données.
Je commence à désespérer alors je suis ouvert à toute proposition qui me ferai avancer d'un pas...

Merci d'avance

**cmen76** · 18/12/2006, 09h52

Je ne suis pas sûr de comprendre ce que tu entends par API mySQL, mais au delà de tout middleware, la manipulation devrait se faire par le biais d'un champ de type TBLOBField, sur lequel existent les méthodes LoadFromStream et SaveToStream...

**Dj_Will** · 18/12/2006, 10h40

Pour moi l'API Mysql c'est le libmysql.dll que j'utilise avec mysql.pas...

**cmen76** · 18/12/2006, 14h24

Peut-être alors en passant par un TFileStream et en y copiant le TMemoryStream, et après :

Code :

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

1
2
3
UPDATE table
SET blob_column=LOAD_FILE("lefichier")
WHERE ...;

**rvzip64** · 18/12/2006, 14h27

J'ai pas de solution à apporter, mais je trouve que c'est un peu de la bidouille de passer par un fichier.

**cmen76** · 18/12/2006, 15h19

euh... certes

**Dj_Will** · 18/12/2006, 16h02

De mon coté, j'arrive à passer mon stream en string pour l'inclure dans ma requête mais il doit me manquer une commande pour stocker la chaine en binaire dans la base de données

**Harry** · 19/12/2006, 13h20

Voici un exemple que j'ai fait avec delphi7 - bdd firefird composants IB.

Code :

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

1
2
3
4
5
6
myStream := TMemoryStream.Create;
        mybitmap := Tbitmap.Create;
 
        iml1.GetBitmap(lv1.Selected.ImageIndex,mybitmap);
        mybitmap.SaveToStream(myStream);
        dm1.lang001LG001FLAG.LoadFromStream(myStream);

iml1 c'est une liste de bmp (imagelist) j'en met un dans mybitmap.

Puis je fais un saveToStream de mon composant Tbitmap pour transférer l'image dans myStream puis j'affecte le stream à mon champ lang001LG001FLAG qui est de type blob contenant du binaire.

Cette dernière partie pourra peut être t'aider

**Rayek** · 19/12/2006, 14h13

Envoyé par Harry

Voici un exemple que j'ai fait avec delphi7 - bdd firefird composants IB.

Code :

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

1
2
3
4
5
6
myStream := TMemoryStream.Create;
        mybitmap := Tbitmap.Create;
 
        iml1.GetBitmap(lv1.Selected.ImageIndex,mybitmap);
        mybitmap.SaveToStream(myStream);
        dm1.lang001LG001FLAG.LoadFromStream(myStream);

iml1 c'est une liste de bmp (imagelist) j'en met un dans mybitmap.

Puis je fais un saveToStream de mon composant Tbitmap pour transférer l'image dans myStream puis j'affecte le stream à mon champ lang001LG001FLAG qui est de type blob contenant du binaire.

Cette dernière partie pourra peut être t'aider

Harry, il utilise l'api MySQL et elle n'a pas de composant, c'est que de la programmation pour se connecter directement aux bases de données, faire des requetes etc..., il n'y a pas les mêmes possibilité qu'avec les bon composants Db, sinon je lui aurai montré ma QR sur le transfert de document vers une base de données

**rvzip64** · 19/12/2006, 14h16

il n'y a pas les mêmes possibilité qu'avec les bon composants Db

OHHHHHHHHHHHHHHHH quand meme !!!!!!
Il y a 99,99999999999 % de chance que ton composant soit basé sur la librairie de Mysql.

**Rayek** · 19/12/2006, 14h32

Envoyé par rvzip64

OHHHHHHHHHHHHHHHH quand meme !!!!!!
Il y a 99,99999999999 % de chance que ton composant soit basé sur la librairie de Mysql.

Je parlais de composants style TxxxQuery, TxxxTable, etc ... chose que l'API MySQL ne fournit pas (MySQL.Pas c'est que de la programmation pour se connecter à MySQL).
Tu ne peux pas te connecter avec un datasource et lier un dbgrid pour avoir le résultat en direct, tout obliger de faire à la mimine dans un dbgrid (A moins qu'elle est évoluée depuis ???)

**qi130** · 20/12/2006, 10h19

J'ai chopé ce code en C# sur le net...

Si ça peut vous donner des idées...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
FileStream fs = (FileStream)opFileDg.OpenFile();
 
byte[] myImageDB = new byte[fs.Length];
fs.Read(myImageDB, 0, (int)fs.Length);
 
MySqlCommand cmd = new MySqlCommand("insert into image values('"+ Path.GetFileName(opFileDg.FileName) + "',?paramImg)",con);
MySqlParameter prm = new MySqlParameter();
prm = cmd.Parameters.Add("paramImg", MySqlDbType.LongBlob, (int)fs.Length);
prm.Value=myImageDB;
prm.Direction = ParameterDirection.Input;			
cmd.ExecuteNonQuery();

**kraker31** · 31/10/2017, 16h43

Bonjour à tous

après plusieurs années, j'ai exactement le même problème toujours en delphi 7, comment enregistrer un blob dans une BD Mysql avec mysql.pas, donc sans composant ?

**retwas** · 31/10/2017, 16h57

Tu as essayé ceci ?

Code :

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

TBlobField(SqlQuery.FieldByName('Image')).LoadFromStream(Stream);

Sinon je pense pas que cela soit super d'enregistrer l'image dans la base, il faudrait plutôt une table qui contient le lien vers l'image.

**Papy214** · 31/10/2017, 17h44

Sinon je pense pas que cela soit super d'enregistrer l'image dans la base, il faudrait plutôt une table qui contient le lien vers l'image.

Ah ... l'éternel débat qui revient sur le tapis

**Papy214** · 31/10/2017, 17h49

sinon, pour le LOAD_FILE il faut le \ comme séparateur dans le nom du fichier

**kraker31** · 01/11/2017, 10h39

Oui Papy

, l'éternel débat !

en fait, non, il n'est pas judicieux d'enregistrer le lien dans une table et le fichier ailleurs surtout si on travail en client/serveur.
et non TBlobField n'est pas une fonction connue de Mysql.pas.

**FOCUS77** · 10/11/2017, 16h08

Bonjour à tous

Je suis préocupé par la possibilité de manipuler des images liées à la table T_PRODUITS et sans êtres
contenues dedans, inpendement de l'SGDB et de la structure réseau.

Le dossier application contient le dossier images configuré ainsi une fois installé sur le PC SERVEUR.

Images/Propriétés/Partage/Partage avancé/Partager ce dossier/Nom du partage ensuite j'ai selectionné
Images et validé pour créer l'alias \\NomPCSERVEUR\Images.

Les images sont nommées ainsi: 1-NomImage1, 2-NomImage2...

Ensuite j'ai créé un fichier Config.INI contenant le Nom du PCSERVEUR.

Var Str1,SERVEUR:AnsiString; f:TextFile; //variables globales.

Code :

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

1
2
3
4
5
6
7
8
procedure TMD.DataModuleCreate(Sender: TObject);
begin
   AssignFile(f,ExtractFilePath(Application.ExeName)+'Configuration\Config.ini');
      Reset(f);
    readln(f,Str1);
    SERVEUR:=Trim(Str1);
    CloseFile(f);
end;

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
procedure TMD.T_PRODUITSAfterScroll(DataSet: TDataSet);
  var Str2:AnsiString;List:TStringList;
begin
 
  list:= FindAllFiles('\\'+SERVEUR+'\'+'Images\',IntToStr(T_PRODUITS.FieldValues['ID_PRD_P'])+'-*.png',false); //connexion réseau.
  try
  Str2:=list.Strings[0];
  except
  list:= FindAllFiles(ExtractFilePath(Application.ExeName)+'Images\',IntToStr(T_PRODUITS.FieldValues['ID_PRD_P'])+'-*.png',false);// hors connexion.
  end;
 
  try
  Str2:=list.Strings[0];
  except
  try
  Str2:='\\'+SERVEUR+'\'+'Images\Vide.PNG' ;F_MAINFORM.Image1.Picture.LoadFromFile(Str2);Exit //connexion réseau. vide.PNG:image en instance.
  except
  Str2:=ExtractFilePath(Application.ExeName)+'Images\Vide.PNG';//hors connexion.
  end;
  end;
  F_MAINFORM.Image1.Picture.LoadFromFile(Str2)
end;

à vos critiques merci.

TMemoryStream vers BLOB en utilisant l'API Mysql

Bases de données Delphi

Discussions similaires

Partager

Partager