[viv]

إقتباس :اكيد انك استنتجت اني اريد افكار حول الموضوع او المشاكل والحلول.  وكيف قمت بالحفظ والضغط 

لا يوجد ضغط ولا اي شئ ، ملف PDF كان حجمه حوالي 200 الى 400 كيلو وهو يعتبر حجم صغير يعمل على سرعة انترنت 4 ميغا بلا اي مشاكل
والملفات يتم عرضها لحظياً .

في المنظومات التي فيها صور شخصية انت قد تعرض 2000 سجل بصورهم او تطبعهم دفعة واحدة عند الحاجة وعرض 2000 صورة مع بياناتها قد يكون فيها بطئ اذا لم نعالج مشكلة الصورة .

اما في المستندات انت لن تحتاج الا لعرض سجل واحد فقط للمريض مثلا او للارشيف .
ولهذا سفتح الملف برقم التعريف او بالاسم وسيظهر لك ما معه من مستندات محفوظة .

انت سوف تستخدم احدى الادوات لعرض ملفات PDF مثلا لتحميل الملف

كود :

PDFViewer1.LoadFromFile(OpenDialog1.FileName);

لحفظ الملف

كود :

IBCTable1.Append;
 IBCTable1.FieldByName('PDFNAME').Value:='PDF1';
 TBlobField(IBCTable1.FieldByName('PDFFILE')).LoadFromFile(OpenDialog1.FileName);
 IBCTable1.Post;

بدون الحاجة لاستخدام TMemoryStream وهناك طريقة للحفظ بواستطها ايضا .


ولتحميل الملف من قاعدة البيانات في الاداة مثلا


   

كود :

var
TempStrm: TMemoryStream;
begin

 TempStrm:=TMemoryStream.Create;
 try

 TBlobField(IBCTable1.FieldByName('PDFFILE')).SaveToStream(TempStrm);
 PDFViewer1.LoadFromStream(TempStrm);

 finally
   TempStrm.Free;
 end;



end;

بامكانك الابتعاد عن الـ PDF وحفظها كصور ولو كانت اكثر من صورة تحفظها بالتتالي صورة 1 صورة 2 صورة 3
وتظهر للمستخدم ازرار مثلا بعدد الصور كلما نقر على صورة تم عرضها .

وهنا كما يظهر تم الحفظ ويمكنك معاينتها بداخل برنامج IBExpert بشكل عادي لا مشكلة