delphi4arab منتديات دلفي للعرب

السلام عليكم

عندي جدول مسميه

و أود حفظ فيه صورة علما اعمل بقاعدة SQL server 2005

للاشارة جربت الكود التالي و لا يقبله

كود :
var
  Im: TPicture;
  sExt, sFileName: string;


begin
  dm.Typebien.insert;  
  if OpenPictureDialog1.Execute then begin   
    sFileName := OpenPictureDialog1.FileName;
    sExt := UpperCase(ExtractFileExt(sFileName));

    if (sExt = '.JPEG') or (sExt = '.JPG') then
    begin
      Im := TPicture.Create;
      Im.LoadFromFile(sFileName);
      DBImage1.Picture.Bitmap.Assign(Im.Graphic);
      Im.Free;
      dm.Typebien.Post ;
    end
    else
      if (sExt = '.BMP') then
        DBImage1.Picture.LoadFromFile(sFileName)
      else ShowMessage('Error');
  end;

هده اول مرة اطبق حفظ صورة في قاعدة بيانات و قد بحثث بخاصية البحث و جربت الكثير من الاكود دون جدوى

و اتمنى لو تبسطوا لي الأمر و جزاكم الله خيرا و نفع الله بكم ان شاء الله

[INDENT]

وعليكم السلام و رحمة الله وبركاته ،
شخصيا أستعمل قاعدة بيانات Interbase و الحقل الذي أخزن فيه الصور من نوع Blob . و أستعمل الكود التالي :

كود :
MyQuery1.ParamByName('IMAGEARTICLES1').LoadFromFile(OpenDialog1.FileName, ftBlob);

وجدت في بعض المنتديات الأكواد التالية ممكن تساعدك :

كود :
if OpenDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
    MonQuery.FieldByName('champ_blob').Assign(Image1.Picture.Bitmap);
  end;

يالتوفيق إن شاء الله.

[/INDENT]

أحمد 13

أبو معاذ