Процедура tfrm1.button2click (отправитель: tobject);
Вар
JPEG: TJpegimage;
BMP: TBITMAP;
Mystm: Tmemorystream;
strfilename, strcard: string;
Начинать
унаследован;
strfilename: = ExtractfilePath (Application.Exename);
с DBEDIT12.datasource.dataset do
Начинать
Если не видеокап1.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, 'Выберите счет (1) как CNT из tb_photo, где карта_no =' '+strcard+' '' '); // Сначала узнайте, есть ли этот номер карты
OpenQry (pubqry, 'select * from tb_photo, где card_no =' '+strcard+' '' '); // Откройте таблицу данных карты.
{OpenQry - это функция, которая настраивает открытые таблицы данных
OpenQry (qry1: tquery, ssql: string);
Начинать
с qry1 do
Beign
Если активно, то
закрывать;
sql.clear;
SQL.Add (SSQL);
пытаться
открыть
ловить
на E: Исключение DO ERRORDIALOG (E.Message, E.HelpContext);
end; // попробуйте
конец;
конец;
}
с Query1 do
Начинать
Если pubqry.fields [0] .asinteger> 0, то // сначала определите, существует ли изображение этой карты.
Редактировать
еще
Вставлять;
FieldByName ('card_no'). Appring: = strcard;
Tblobfield (fieldbyname ('photo')). Loadfromstream (mystm);
Пост;
конец; // с
Окончательно
Mystm.free;
jpeg.free;
конец;
Окончательно
bmp.free;
end; // попробуйте
конец; // с
конец;
// сначала загрузите управление TVIDEOCAP