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

[أبو معاذ]

السلام عليكم ،
لتخزين الصورة هذا الكود :

كود :

Close; SQL.Clear; SQL.Add('UPDATE TABLE'); SQL.Add(' SET Logo = :Logo'); Parameters.ParamByName('Logo').LoadFromFile('c:\logo.bmp', ftGraphic); ExecSQL;

لعرض الصورة

كود :

if not eof then ImgLogo.Picture.Bitmap.LoadFromStream(CreateBlobStream(FieldByName('Logo'), bmRead));

:monster1: