Utilisez Delphi pour importer par lots tous les fichiers d'image JPG dans un sous-répertoire dans la base de données

// Enregistrer l'image dans la base de données

Fonction ImagesAVETOSQL (ensemble de données: tQuery; nom de fichier: chaîne): booléen;

var

ImageJPG: TJPEGIMAGE;

MyStm: TMemoryStream;

Commencer

Résultat: = false;

Mystm: = tmeMoryStream.Create;

imagejpg: = tjpegImage.Create;

Si le nom de fichier <> '' alors

Commencer

imagejpg.loadFromFile (nom de fichier);

ImageJpg.SaveToStream (MyStm);

Mystm.Position: = 0;

TBLOBFIELD (DataSet.FieldByName ('Pict')). LoadFromStream (MyStm);

Résultat: = true;

fin;

Mystm.free;

imagejpg.free;

fin;

// Ajouter le contrôle TDirectoryListbox et Tgauge sur l'interface

Procédure tfrmpict.bitbtn2click (expéditeur: tobject);

var

Dirlist: TStringList;

I: entier;

Commencer

hérité;

Si chk_road.chec a alors

Commencer

Dirlist: = TStringList.Create;

Dirlist.Clear;

essayer

GetAllFileName (DirectoryListbox1.Directory, Dirlist);

Si Dirlist.Count> 0 alors

Commencer

Jauge1.minvalue: = 0;

Gauge1.maxValue: = Dirlist.Count-1;

pour i: = 0 à Dirlist.Count-1 faire

Commencer

avec dm.qry_pict

Commencer

Insérer;

Champs [0] .assstring: = copy (Dirlist.strings [i], 1, pos ('.', Dirlist.strings [i]) - 1);

Si imagesavetosql (dm.qry_pict, dirlist.strings [i]) = false alors

Commencer

ShowMessage ('import' + dirlist.strings [i] + '. Error d'image jpg');

Avorter;

fin;

Poste;

fin;

Gauge1.adddProgress (1);

fin;

fin // si

autre

ShowMessage («Il n'y a pas d'image de type JPG dans ce répertoire»);

Enfin

Dirlist.free;

fin;

fin

autre

ShowMessage («Veuillez effectuer l'opération de sélection de chemin»);

//Fermer;

fin;