// احفظ الصورة إلى قاعدة البيانات
الوظيفة PicturesAvetoSql (DataSet: tquery ؛ اسم الملف: سلسلة): منطقية ؛
var
ImageJPG: TJPegimage ؛
Mystm: tmemorystream ؛
يبدأ
النتيجة: = خطأ ؛
Mystm: = tmemorystream.create ؛
ImageJpg: = tjpegimage.create ؛
إذا كان اسم الملف <> '' ثم
يبدأ
ImageJPG.LoadFromFile (اسم الملف) ؛
ImageJPG.SavetoStream (Mystm) ؛
mystm.position: = 0 ؛
tblobfield (dataset.fieldbyname ('pict')). loadfromstream (mystm) ؛
النتيجة: = صحيح ؛
نهاية؛
Mystm.free ؛
ImageJpg.free ؛
نهاية؛
// إضافة TDIRECTORYLISTBOX و TGAUGE التحكم في الواجهة
الإجراء tfrmpict.bitbtn2click (المرسل: tobject) ؛
var
DirList: TstringList ؛
أنا: عدد صحيح.
يبدأ
ورث
إذا chk_road.checked ثم
يبدأ
DirList: = tstringList.Create ؛
dirlist.clear ؛
يحاول
getAllFilename (DirectoryListbox1.Directory ، dirlist) ؛
if dirlist.count> 0 ثم
يبدأ
Gauge1.Minvalue: = 0 ؛
Gauge1.MaxValue: = DirList.count-1 ؛
لأني: = 0 إلى dirlist.count-1 تفعل
يبدأ
مع dm.qry_pict تفعل
يبدأ
أدخل
الحقول [0] .AssTring: = copy (dirList.Strings [i] ، 1 ، pos ('.' ، dirlist.strings [i])-1) ؛
إذا كانت PicturesavetoSql (dm.qry_pict ، dirlist.strings [i]) = false ثم
يبدأ
ShowMessage ('import'+dirlist.strings [i]+'.
إحباط
نهاية؛
بريد؛
نهاية
Gauge1.AddProgress (1) ؛
نهاية
نهاية // إذا
آخر
ShowMessage ("لا توجد صورة نوع JPG في هذا الدليل") ؛
أخيراً
dirlist.free ؛
نهاية؛
نهاية
آخر
ShowMessage ("يرجى تنفيذ عملية اختيار المسار") ؛
//يغلق؛
نهاية؛