Gunakan delphi untuk batch impor semua file gambar jpg dalam subdirektori ke database

// Simpan gambar ke database

function ImagesAvetoSQL (Dataset: TQuery; FileName: String): Boolean;

var

ImageJPG: Tjpegimage; // JPG Image

Mystm: tMemoryStream;

Mulai

Hasil: = false;

Mystm: = tMemoryStream.create;

ImageJPG: = tjpegimage.create;

Jika nama file <> '' lalu

Mulai

ImageJPG.LoadFromFile (nama file);

ImageJpg.Savetostream (mystm);

Mystm.position: = 0;

Tblobfield (dataset.fieldbyname ('pict')). LoadFromStream (mystm);

Hasil: = true;

akhir;

Mystm.free;

ImageJPG.Free;

akhir;

// Tambahkan TDirectoryListBox dan TGAuge Control pada antarmuka

Prosedur tfrMpict.bitbtn2Click (pengirim: tobject);

var

Dirlist: TStringList;

I: Integer;

Mulai

diwariskan;

Jika chk_road.Checked maka

Mulai

Dirlist: = tStringList.create;

Dirlist.clear;

mencoba

GetAllFileName (DirectoryListBox1.Directory, Dirlist);

Jika Dirlist.Count> 0 lalu

Mulai

Gauge1.minvalue: = 0;

Gauge1.maxValue: = Dirlist.count-1;

untuk i: = 0 ke Dirlist.count-1 do

Mulai

dengan dmry_pict do

Mulai

Menyisipkan;

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

Jika ImagesAvetoSQL (dm.qry_pict, dirlist.strings [i]) = false kemudian

Mulai

Showmessage ('impor'+dirlist.strings [i]+'. Kesalahan gambar jpg');

Menggugurkan;

akhir;

Pos;

akhir;

Gauge1.addprogress (1);

akhir;

end // if

kalau tidak

Showmessage ('Tidak ada gambar tipe JPG di direktori ini');

Akhirnya

Dirlist.Free;

akhir;

akhir

kalau tidak

Showmessage ('Harap lakukan operasi pemilihan jalur');

//Menutup;

akhir;