استدعاء صورة مخزنة في قواعد البيانات

بسم الله الرحمن الرحيم

هذا الموضوع لم أجده في المنتديات العربية فأحببت أن أضيفه إلى المحتوى العربي

var ms:TMemoryStream;
begin
 try
//إنشاء مكون strem
  MS:= TMemoryStream.Create;
  with SQLinfo do
       begin
         close;
         sql.text:='select logo from company';
         try
//طلب من مدير قواعد البيانات لإحضار الحقل logo من نوع image
         open;
//حفظ الصورة في المكون stream
         TBlobField(FieldByName('logo')).saveToStream(MS);
         MS.Position:=0;
//تحميل الصورة إلى المكون من نوع Timage
         Image1.Picture.LoadFromStream(ms);
         except on e:exception do begin exit;ms.free; end; end;
       end;
         Finally
         ms.free;
         end;

end;