خطا در ذخیره کردن عکس در db

با سلام.
من کد زیر را برای ذخیره کردن عکس در دیتایس Sql اجرا می کنم خطا میدهد لطفا راهنمایی کنید(این کد رو هم از همین تایپک برداشتم و نوشتم)

pic varbinary(1000) نوع فیلد عکس

var 

  S : TMemoryStream;

sql_command:string;

begin



S := TMemoryStream.Create;

s.LoadFromFile(OpenPictureDialog.FileName);



sql_command:=insert into  personel_pic(name,family,pic)values('+''''+edit_na  me.text+''''+','+''''+edit_family.text+''''+','+''  ''+TBlobField(s)+''''+')';



ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(sql_command);

ADOQuery1.ExecSQL;

ADOQuery1.Close;





end;

با سلام
حداقل عکس پیام خطا هم ضمیمه میکردید.

سلام
موقع اجرای برنامه این خطا رو میده باید چکار کنم؟

ضمیمه 147925

TPersistent = class(TObject)

نقل قول:

---

نوشته شده توسط majid2

سلام
موقع اجرای برنامه این خطا رو میده باید چکار کنم؟

ضمیمه 147925

---

بجای دستور Assign ازLoadFromStrem استفاده کنید

VlStream := TFileStream.Create(_Jpg File name, fmOpenRead or fmShareDenyWrite);

VlStream.Seek(0, soFromBeginning);

.

.

.

AdoQuery.parametr[2].LoadFromStream(vlStream,ftBlob);