• 0
MidooX10

خطأ اثناء تعريف الكائن TPNGObject

سؤال

كنت قد بحت عن كود يقوم بتحويل الصور من الصيغه bmp ألى png و وجدت هذا الكود

procedure BitmapFileToPNG(const iimage:TBitmap;spath:string);var  Bitmap: TBitmap;  PNG: TPNGObject;begin  Bitmap := TBitmap.Create;  PNG := TPNGObject.Create;  In case something goes wrong, free booth Bitmap and PNG  try    Bitmap:=iimage;    PNG.Assign(Bitmap);    //Convert data into png    PNG.SaveToFile(spath);  finally    Bitmap.Free;    PNG.Free;  endend;

كما ترون هناك كائن بأسم TPNGObject عند ترجمه الكود يكون الخطأ عنده ,, Undeclared identifier

 

ف هل هناك شئ ما لاضافته الى uses ليعمل هذا الكائن ام ماذا ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

اضف هذه الوحدة

Vcl.Imaging.pngimage;

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الوحده غير موجوده

file not found : 'Vcl.Imaging.pngimage'h

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حلت المشكله بعد استخدام rad studio xe7 ,, شكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .