Delphiを使用して、サブディレクトリですべてのJPG画像ファイルをデータベースにインポートするバッチ

//画像をデータベースに保存します

関数Images ImagesAveToSQL（データセット：TQuery; Filename：String）：boolean;

var

ImageJPG：tjpegimage;

mystm：tmemorystream;

始める

結果：= false;

mystm：= tmemorystream.create;

ImageJpg：= tjpegimage.create;

filename <> ''の場合

始める

Imagejpg.loadfromfile（filename）;

Imagejpg.savetostream（mystm）;

mystm.position：= 0;

tblobfield（dataset.fieldbyname（ 'pict'））。loadfromstream（mystm）;

結果：= true;

終わり;

mystm.free;

Imagejpg.free;

終わり;

//インターフェイスにtdirectoryListboxとTgaugeコントロールを追加します

手順tfrmpict.bitbtn2click（sender：tobject）;

var

Dirlist：tstringlist;

I：整数;

始める

継承;

Chk_road.C​​heckedの場合

始める

dirlist：= tstringlist.create;

dirlist.clear;

試す

getallfileName（directoryListbox1.directory、dirlist）;

dirlist.count> 0の場合

始める

gauge1.minvalue：= 0;

gauge1.maxvalue：= dirlist.count-1;

i：= 0 to dirlist.count-1 do

始める

dm.qry_pictを使用します

始める

入れる;

fields [0] .asstring：= copy（dirlist.strings [i]、1、pos（ '。'、dirlist.strings [i]）-1）;

ImagesAveTosql（dm.qry_pict、dirlist.strings [i]）= false

始める

showmessage（ 'import'+dirlist.strings [i]+'。Jpgイメージエラー'）;

アボート;

終わり;

役職;

終了

gauge1.addprogress（1）;

終了; //

終了// if

それ以外

showmessage（ 'このディレクトリにはjpgタイプの画像はありません」）;

ついに

dirlist.free;

終わり;

終わり

それ以外

showmessage（ 'パス選択操作を実行してください'）;

//近い;

終わり;