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

Signaler
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Messages postés
28
Date d'inscription
mardi 18 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/38930-procedure-pour-integrer-un-blob-dans-une-base-de-donnees-paradox

Messages postés
28
Date d'inscription
mardi 18 mars 2003
Statut
Membre
Dernière intervention
31 janvier 2013

bonjour
y a pas possibilité de faire simple svp
moi ayant une table accesss 2007, je n'arrive pas à adapter ce code comment faire svp simplement.
merci
Messages postés
33
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2007

désolé pour ce retard mais j'ai pas eu le temps ces derniers jours

Alors pour tes question une seul réponse:
la bibliothèque JVCL gratuite elle comprend deux composant un pour afficher les image sous format Jpeg ( et autres fromat d'ailleurs) et un composant DBJVIMAge qui agit exactement comme DBimage et il accepte les Jpeg tu trouvera la derniere version stable de cette bibliothèque (600 composants visuels et non-visuels) à l'adresse suivante:
http://sourceforge.net/project/showfiles.php?group_id=45786
Messages postés
12
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
1 janvier 2007

Merci pour on aide!
alors pour l'erreur que j'avais, il falait juste faire l'execution de l'executable en fermant delphi
autre chose pour le blob, j'ai su qu'il falait faire le type Binary ce qui m'avait réglé la moitié du probleme
maintenant je cherche le composants qui ouvre des images Jpg!
j'ai pas encore trouvé!

autres questions: si après ça marche et que j'enregstre des images au format Jpg, est-ce que un DBimage poura me les afficher comme les bmp déja enregistré? ou dois-je utiliser uen autre fonction de lecture pour les afficher?
merci
Messages postés
33
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2007

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;
Afficher les 36 commentaires