كيف أخزن صورة من نوع jpg في DBImage1

[mom1470]

لدي قاعدة بياانات وفيها الحقول التالية id - name- photo على قاعدة بيانات أكسس
المشكلة عندما أخزن صورة في الحقل photo الذي نوعه كائن OLE لايمكن تخزين صورة من نوع jpg وانما يخزن صورة من نوع bmp
تحياتي

[Lam.Abdeldjalil]

السلام عليكم

إليك حل من الحلول الموجودة :

عليك اولا إضافة : uses jpeg,clipbrd


و إليك الكود :

كود :

procedure TForm1.Button3Click(Sender: TObject);
var
   SPicFileName: string;
   JP : TJPegImage;
   C : TClipboard;
begin
if  OpenDialog1.Execute then
  begin
    JP := TJPegImage.Create;
    C:= TClipboard.Create;
    SPicFileName:=  OpenDialog1.FileName;
    try
      JP.LoadFromFile(SpicFileName);
      C.Assign(JP);
      DBImage1.PasteFromClipboard;
      ADOTable1.Post;
    finally
    JP.Free;
    C.Free;
  end;
end;
end;

[mom1470]

تسلم على هذا المجهود والله يوفقك

[Lam.Abdeldjalil]

السلام عليكم

إذا لم تحل المشكلة يمكني وضع مثال !

[mom1470]

مشكور على هذا المجهود الكبير وانا أسف على التأخير في الرد عليك لظروفي لكن مثالك مشى معي من ناحية الصور التي من نوع jpg ولكن عندحميل الصورة من نوع bmp لايمكن ذلك هل من حل لجعل أمكانية تحميل الصغتين

[Lam.Abdeldjalil]

السلام عليكم

لنفترض أنك تعمل بعين النوعين فقط من الصور
نضع شرط يحدد لنا لاحقة الملف المختار ومن ثم يقوم بالعملية

يصبح الكود هكذا :

كود :

procedure TForm1.Button3Click(Sender: TObject);
var
   SPicFileName: string;
   JP : TJPegImage;
   C : TClipboard;
begin
if  OpenDialog1.Execute then
  begin
  //  هذا هو الشرط
   if  ExtractFileExt(OpenDialog1.FileName)='.bmp'   then
   begin
     ADOTable1.Edit ;
     //  TBlobField(ADOTable1.FieldByName('Image')).LoadFromFile(OpenDialog1.FileName);
     ADOTable1Image.LoadFromFile(OpenDialog1.FileName);
     ADOTable1.post ;
   end
   else
   begin
    JP := TJPegImage.Create;
    C:= TClipboard.Create;
    SPicFileName:=  OpenDialog1.FileName;
    edit1.Text :=extractfilename( OpenDialog1.FileName );

    try
      JP.LoadFromFile(SpicFileName);
      C.Assign(JP);
      DBImage1.PasteFromClipboard;
      ADOTable1.Post;
    finally
    JP.Free;
    C.Free;
    end;
   end;
end;
end;

[doraed79]

لم افهم بالضبط معنى uses jpeg,clipbrd
انا اعمل على دلفي 2010 ان كان ما تقصده هو مكون فقد بحثت عنه و لم اجد
و ان كان غير ذلك اعذرني لاني لم افهم كثيرا فأنا مبتدأ جدا بالدلفي

[Lam.Abdeldjalil]

السلام عليكم

ليس مكون

هذا ماقصدته ( في تبويب code

كود :

unit Unit1;

interface

[COLOR=Red]uses[/COLOR]
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs[COLOR=Red],jpeg,clipbrd[/COLOR];

بالتوفيق

[doraed79]

اشكرك جزيل الشكر على ردك السريع و على رحابة وسعة صدرك

[STRELiTZIA]

السلام عليكم و رحمة الله

اشكرك جزيل الشكر على ردك السريع و على رحابة وسعة صدرك

اخي الكريم استعمل زر الشكر لاعطاء العضو نقاط تميز...

بالتوفيق ان شاء الله