Use Delphi para importar todos los archivos de imagen JPG en un subdirectorio a la base de datos

// Guarde la imagen en la base de datos

Función ImagesAvetosql (DataSet: tQuery; nombre de archivo: string): boolean;

varilla

ImageJPG: TJPegimage;

Mystm: tmemorystream;

Comenzar

resultado: = falso;

Mystm: = tMemoryStream.Create;

ImageJpg: = tjpegimage.create;

Si el nombre de archivo <> '' entonces

Comenzar

ImageJpg.LoadFromFile (nombre de archivo);

ImageJpg.SavetoStream (mystm);

Mystm. Posicion: = 0;

Tblobfield (dataSet.FieldByName ('PICT')). LoadFromStream (MyStm);

resultado: = verdadero;

fin;

Mystm.Free;

ImageJpg.Free;

fin;

// Agregar TDirectoryListBox y TGauge Control en la interfaz

Procedimiento tFRMPICT.BITBTN2Click (remitente: tobject);

varilla

Dirlist: tstringlist;

I: entero;

Comenzar

heredado;

Si chk_road.ecked entonces

Comenzar

Dirlist: = tStringList.create;

Dirlist.Clear;

intentar

GetAllFileName (DirectoryListBox1.Directory, Dirlist);

Si dirlist.count> 0 entonces

Comenzar

Calibre1.MinValue: = 0;

Gauge1.maxValue: = dirlist.count-1;

para i: = 0 a Dirlist.Count-1 do

Comenzar

con dm.qry_pict do

Comenzar

Insertar;

Campos [0] .senstring: = copy (dirlist.strings [i], 1, pos ('.', Dirlist.strings [i])-1);

Si ImagesAvetosql (dm.qry_pict, dirlist.strings [i]) = false entonces

Comenzar

ShowMessage ('import'+dirlist.strings [i]+'. JPG Error de imagen');

Abortar;

fin;

Correo;

fin;

Calibre1.AddProgress (1);

fin;

final // si

demás

ShowMessage ('No hay una imagen de tipo JPG en este directorio');

Finalmente

Dirlist.Free;

fin;

fin

demás

ShowMessage ('Realice la operación de selección de ruta');

//Cerca;

fin;