// Сохранить изображение в базе данных
Функциональные изображения avetosql (набор данных: tquery; filename: String): boolean;
вар
ImageJpg: tjpegimage;
Mystm: Tmemorystream;
Начинать
результат: = false;
Mystm: = tmemorystream.create;
ImageJpg: = tjpegimage.create;
Если имя файла <> '', тогда
Начинать
ImageJpg.LoadFromFile (имя файла);
ImageJpg.savetoStream (MyStm);
Mystm.position: = 0;
Tblobfield (dataSet.fieldbyname ('pict')). LoadfromStream (MyStm);
Результат: = true;
конец;
Mystm.free;
ImageJpg.free;
конец;
// Добавить tdirectoryListbox и управление TGAUGE на интерфейсе
Процедура tfrmpict.bitbtn2click (отправитель: tobject);
вар
Dirlist: tstringlist;
я: целое число;
Начинать
унаследован;
Если chk_road.cecked then
Начинать
Dirlist: = tstringlist.create;
dirlist.clear;
пытаться
Getallfilename (directorylistbox1.directory, dirlist);
Если dirlist.count> 0, тогда
Начинать
Kaile1.minvalue: = 0;
Kaile1.maxvalue: = dirlist.count-1;
для i: = 0 to dirlist.count-1 do
Начинать
с dm.qry_pict do
Начинать
Вставлять;
Fields [0] .asstring: = copy (dirlist.strings [i], 1, pos ('.', Dirlist.strings [i])-1);
Если ImagesAvetoSql (dm.qry_pict, dirlist.strings [i]) = false then
Начинать
ShowMessage ('import'+dirlist.strings [i]+'. Jpg -ошибка изображения');
Прервать;
конец;
Почта;
конец; // с
Kaine1.addprogress (1);
конец;
конец // if
еще
ShowMessage («В этом каталоге нет изображения типа JPG»);
Окончательно
dirlist.free;
конец;
конец
еще
ShowMessage («Пожалуйста, выполните операцию выбора пути»);
//Закрывать;
конец;