ذخیره عکس از Image در بانک

[حسین خانی]

با سلام
اول اینو بگم که در این رابطه جستجو کرده ام ، بیشتر مطالب ذخیره با استفاده از متد LoadFromFile بود !

با کد زیر کارم راه افتاد :

  var

  BlobStream: TStream;

begin

    ADOQuery1.Insert;

    //----

    BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('  pic'), bmWrite);

    try

    Image1.Picture.Graphic.SaveToStream(BlobStream);

    finally

    BlobStream.Free;

    end;

    //---

    ADOQuery1id.Value:=StrToInt(Edit1.Text);

    ADOQuery1name.Value:=(Edit2.Text);

    ADOQuery1.Post;

end; 

ولی اگر در رکوردی نخواهم عکس را هم ذخیره کنم Error زیر را میدهد ! چرا ؟
کجای کد ایراد دارد ؟

[mehdimdp]

سلام
چرا شما از adotabel استفاده نمی کنید؟

[pezhvakco]

درود :
1) بهتره از Adotable یا adodataset استفاده کنی .
2) بهتره از همون روش ذخیره آدرس استفاده کنی، چون هم حجم بانک کمتر میشه و هم سرعت خواندن و نوشتن بیشتر میشه .
3) با توجه به نوع متغییر ها و نوع نوشتنت، نمی تونی مقدار Null قرار بدی . بهتره اول وجود عکس را امتحان کنی یا از دستورات خطا گیری استفاده کنی .

[Mahmood_M]

ولی اگر در رکوردی نخواهم عکس را هم ذخیره کنم Error زیر را میدهد ! چرا ؟

برای این که نخوای عکس ذخیره بشه چیکار می کنی ؟!
...

[حسین خانی]

سلام
چرا شما از adotabel استفاده نمی کنید؟

این یه کد تمرینی است دوست عزیز و تازه سئوال من این نبود !

بهتره از همون روش ذخیره آدرس استفاده کنی

کدام روش ؟

  چون هم حجم بانک کمتر میشه و هم سرعت خواندن و نوشتن بیشتر میشه . 

چرا ؟

یا از دستورات خطا گیری استفاده کنی .     

کجاشو و چطوری کنترل کنم ؟

[حسین خانی]

برای این که نخوای عکس ذخیره بشه چیکار می کنی ؟!
...

خوب اگر کد Error نده بایستی مابقی فیلدهای رکورد به جزء فیلد عکس در بانک ذخیره بشه !
ولی با وجود این Error عمل درج انجام نمیشه !!!

[mehdimdp]

بهتره از همون روش ذخیره آدرس استفاده کنی

کدام روش ؟

در این روش شما میای فقط آدرس عکسها رو در بانک ذخیره میکنی .

  چون هم حجم بانک کمتر میشه و هم سرعت خواندن و نوشتن بیشتر میشه . 

چرا ؟
؟

خب معلومه دیگه
شما به جای اینکه بیای یک عکس 500کیلوبایتی رو در بانک ذخیره کنی، میای فقط آدرس اونو که از نوع رشته ای که فکر نمی کنم حجم از بیشتر از یک کیلوبایت بشه رو در بانک ذخیره میکنی

[حسین خانی]

در این روش شما میای فقط آدرس عکسها رو در بانک ذخیره میکنی .

  چون هم حجم بانک کمتر میشه و هم سرعت خواندن و نوشتن بیشتر میشه . 

چرا ؟

خب معلومه دیگه
شما به جای اینکه بیای یک عکس 500کیلوبایتی رو در بانک ذخیره کنی، میای فقط آدرس اونو که از نوع رشته ای که فکر نمی کنم حجم از بیشتر از یک کیلوبایت بشه رو در بانک ذخیره میکنی

ممنون دوست عزیز حق با شماست ، اما من میخواهم عکس در بانک ذخیره شود و نه مسیر عکس .

توضیح بیشتر :
یعنی با استفاده از OpenDialog عکس رو انتخاب کنم و عکس انتخابی در Image نمایش داده بشه و با زدن دکمه ثبت اطاعات یک رکورد به همراه عکس با استفاده از کد بالا در بانک درج شود . و اگر رکوردی فاقد عکس بود مابقی در فیلدهای مربوطه درج شود !

[Hadi_Fayyaz]

سلام دوست عزيز
من فكر ميكنم اگه شما تو كدي كه نوشتي قبل از Finally يه سطر Except هم اضافه كني و هيچ دستوري هم در قسمت Except ننويسي اونوقت در زمان اجرا با دلفي پيغام خطا ميگيري ولي وقتي Exe برنامت رو اجرا ميكني ديگه پيغام خطا نميده مگه اينكه مشكل جاي ديگه اي باشه.
موفق باشي

[pezhvakco]

برای ذخیره و خواندن عکس اگه بتونی وجود اون رو امتحان کنی خیلی بهتره ولی اگه میخوای با خطا گیری کار کنی ،می تونی از دستور Try... Except استفاده کنی :
Try
دستورات مورد نظر
except on E: Exception do
اگه می خوای پیغام مورد نظر
end

[Mahmood_M]

خوب اگر کد Error نده بایستی مابقی فیلدهای رکورد به جزء فیلد عکس در بانک ذخیره بشه !
ولی با وجود این Error عمل درج انجام نمیشه !!!

شما باید برای ثبت تصویر در بانک شرطی برای چک کردن وجود تصویر قرار بدید ، مثال :

var

 BlobStream: TStream;

begin

 ADOQuery1.Insert;

 //----

 if not Image1.Picture.Graphic.Empty then

  begin

   BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('  pic'), bmWrite);

   try

    Image1.Picture.Graphic.SaveToStream(BlobStream);

   finally

    BlobStream.Free;

   end;

  end;

 //---

 ADOQuery1id.Value:=StrToInt(Edit1.Text);

 ADOQuery1name.Value:=(Edit2.Text);

 ADOQuery1.Post;

end;

هر وقت هم خواستید تصویر ذخیره نشه کافیه که تصویر درون Image1 رو حذف کنید ...

موفق باشید ...

[حسین خانی]

ممنون از دوستان به خاطر زمانی که صرف حل این مشکل کرده اند !

جناب Mahmood_N موقعی که عکسی برای ذخیره وجود ندارد باز هم همان Error را می دهد !

[حسین خانی]

بلاخره با توضیحی که pezhvakco دادند مشکل این کد حل شد .

ممنون و سپاس از راهنمایی همه دوستان گرامی ...