الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ممكن تكملون الحل ؟

مغلق
بدأه <>دلفي<> في 14 يناير 2004 · 0 رد · 370 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1

ارجوكم ياشباب ساعدوني بالمشكله هذي

تعرفون انه صيغة jpg للصور مميزه بحجمها

لكن ولنفرض انه حجم الصوره بالصيغه هذي 150 ك/ب

نفس الصوره راح يكون حجمها 50 في الصيغه png

المشكله اني مااعرف كيف اقدر اعرض صوره من النوع png داخل أداة الصوره

هذا رابط للملف وفيه مجموعة units الخاصه بالنوع هذا من الصور

http://ayaam.com/upload/5/pngimage143.zip

"طريقة التعامل مع النسق png"

وعندي الكود هذا لمشاهدة الصوره على الاداة وفيه أخطاء مااعرف كيف أحلها

uses

pngimage, pnglang, pngzlib;

var
  PNG:TPNGObject;


procedure ShowThePNG;
begin

 PNG:=TPNGObject.Create;
  PNG.LoadFromFile('E:\myprog\dilbgo\SS.PNG');
  FRMPIC.Image1.Picture.Assign(png);
  PNG.Free;

end;

الحين كل اللى عليكم

تحملون الملف

وتضيفون pngimage, pnglang, pngzlib للمشروع

وتضيفون الكود اللى وضعته

مع أداة الصوره

وياليت تحاولون معي لايجاد الحل عشان اقدر اعرض الصوره من النوع png

في أداة الصوره

تحياتي لكم :)

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

/

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

هذا الموضوع مغلق.

مواضيع مشابهة