Delphi를 사용하여 데이터베이스에 서브 디렉토리의 모든 JPG 이미지 파일을 일괄 처리합니다.

// 그림을 데이터베이스에 저장합니다

함수 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 ( '경로 선택 작업을 수행하십시오');

//닫다;

끝;