절차 tfrm1.button2click (sender : tobject);
var
JPEG : TJPEGIMAGE;
BMP : TBITMAP;
mystm : tmemorystream;
strfilename, strcard : 문자열;
시작하다
상속;
strfilename : = ExtractFilePath (application.exename);
dbedit12.datasource.dataset do와 함께
시작하다
videocap1.saveasdib가 아닌 경우
시작하다
showmessage ( '사진 실패');
중단;
끝;//
bmp : = tbitmap.create;
노력하다
bmp.loadfromfile (strfilename+ 'capture.bmp');
mystm : = tmemorystream.create;
jpeg : = tjpegimage.create;
노력하다
JPEG.Assign (BMP);
jpeg.compress;
jpeg.savetofile (strfilename+'capture.jpg');
strfilename : = strfilename+'capture.jpg';
jpeg.loadfromfile (strfilename);
JPEG.SAVETOSTREAM (MYSTM);
Mystm.Position : = 0;
OpenQry (Query1, 'cetm_no ='+strcard+'' ')에서 tb_photo에서 cnt로 cnt (1)를 선택하십시오. //이 카드 번호가 있는지 확인하십시오.
OpenQry (pubqry, 'select * from tb_photo where card_no =' '+strcard+' '' '); // 카드 번호 데이터 테이블 열기
{OpenQry는 열기 데이터 테이블을 사용자 정의하는 기능입니다
OpenQry (qry1 : tquery, ssql : string);
시작하다
qry1과 함께
사적
그렇다면 활성화 된 경우
닫다;
SQL. 청소;
sql.add (ssql);
노력하다
열려 있는
잡다
e : ERORDIALOG 예외 (E.Message, e.HelpContext);
끝; // 시도
끝;
끝;
}
Query1과 함께
시작하다
pubqry.fields [0].
편집하다
또 다른
끼워 넣다;
FieldByName ( 'card_no'). Asstring : = strcard;
tblobfield (FieldByName ( 'photo')). loadfromStream (mystm);
게시물; // 통합 제출
끝; //
마지막으로
mystm.free;
JPEG.FREE;
끝; // 시도
마지막으로
bmp.free;
끝; // 시도
끝; //
끝;
// 먼저 TVIDEOCAP 컨트롤을 다운로드하십시오