// 그림을 데이터베이스에 저장합니다
함수 imagesAvetOSQL (데이터 세트 : tquery; filename : String) : boolean;
var
ImageJPG : tjpegimage; // jpg 이미지
mystm : tmemorystream;
시작하다
결과 : = 거짓;
mystm : = tmemorystream.create;
ImageJPG : = tjpegimage.create;
Filename <> ''라면
시작하다
ImageJPG.LoadFromFile (Filename);
ImageJPG.SavetOStream (mystm);
Mystm.Position : = 0;
tblobfield (dataSet.fieldByName ( 'pick')). loadfromStream (mystm);
결과 : = 참;
끝;
mystm.free;
imagejpg.free;
끝;
// 인터페이스에 tdirectoryListbox 및 Tgauge Control을 추가합니다
절차 tfrmpict.bitbtn2click (sender : tobject);
var
Dirlist : tstringlist;
I : 정수;
시작하다
상속;
chk_road.Checked
시작하다
Dirlist : = tstringlist.create;
Dirlist.clear;
노력하다
getAllFileName (directoryListbox1.Directory, Dirlist);
Dirlist.count> 0이면
시작하다
게이지 1.minValue : = 0;
게이지 1.maxValue : = dirlist.count-1;
i : = 0의 경우 Dirlist.count-1 do
시작하다
dm.qry_pict와 함께
시작하다
끼워 넣다;
필드 [0] .Asstring : = COPY (Dirlist.Strings [i], 1, POS ( '.', Dirlist.Strings [i]) -1);
IF IMIDSAVETOSQL (dm.qry_pict, dirlist.strings [i]) = false입니다
시작하다
showmessage ( 'import'+dirlist.strings [i]+'. jpg 이미지 오류');
중단;
끝;
우편;
끝; //
게이지 1.addprogress (1);
끝; //
끝 // if
또 다른
showmessage ( '이 디렉토리에는 JPG 유형 그림이 없습니다');
마지막으로
Dirlist.free;
끝;
끝
또 다른
showmessage ( '경로 선택 작업을 수행하십시오');
//닫다;
끝;