//画像をデータベースに保存します
関数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.Checkedの場合
始める
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( 'パス選択操作を実行してください');
//近い;
終わり;