TMemoryStream vers BLOB en utilisant l'API Mysql

Version imprimable

15/12/2006, 22h11
Dj_Will

TMemoryStream vers BLOB en utilisant l'API Mysql

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
18/12/2006, 09h52
cmen76

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...
18/12/2006, 10h40
Dj_Will

Pour moi l'API Mysql c'est le libmysql.dll que j'utilise avec mysql.pas...
18/12/2006, 14h24
cmen76
Peut-être alors en passant par un TFileStream et en y copiant le TMemoryStream, et après :
Code:

1 2 3 UPDATE table SET blob_column=LOAD_FILE("lefichier") WHERE ...;
18/12/2006, 14h27
rvzip64

J'ai pas de solution à apporter, mais je trouve que c'est un peu de la bidouille de passer par un fichier.
18/12/2006, 15h19
cmen76

euh... certes :oops:
18/12/2006, 16h02
Dj_Will

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 :?

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

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 :)

Citation:
Envoyé par Harry
Voici un exemple que j'ai fait avec delphi7 - bdd firefird composants IB.
Code:

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 :P

19/12/2006, 14h16
rvzip64

Citation:

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.
19/12/2006, 14h32
Rayek

Citation:

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 ???)

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

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

Code:

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();

31/10/2017, 16h43
kraker31

retour sur le sujet

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 ?
31/10/2017, 16h57
Invité

Tu as essayé ceci ?

Code:

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.
31/10/2017, 17h44
Papy214

Citation:

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 :D
31/10/2017, 17h49
Papy214

sinon, pour le LOAD_FILE il faut le \ comme séparateur dans le nom du fichier
01/11/2017, 10h39
kraker31

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.

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:

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:

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.