عند حفظ الصورة باى امتداد يكون حجمها كبير ممكن مثال لضغط الصورة ليكون حجمها صغبر
ممكن كود ضغط الصور
الصورة من نوع JPG أو GIF هي بالفعل مضغوطة ولا يجوز ضغطها !!!
لكن إذا كانت الصورة من نوع bmp فهنا نتحدث عن عملية الضغط .
فأنا رأيي أن تحول الصورة من bmp الي jpg أو Gif ، وأنا جربت الكود التالي والحمد لله أعطي لي نتيجة :
1- أحمل الصورة علي Picture .
2- أغير خاصية AutoReadRaw الي True .
3- أحفظ الصورة من جديد بملف آخر كما يلي :
SavePictue Picture1.Image,"C:\Data.jpg"
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
اخى الكريم الكود السابق يجعل حجم الصورة اكثر من 1 جيجا ولكن الدالة الاتية تجعل الصورة جودة عالية حوالى 200 ك ولكن لم استطيع التعامل معها
Private Declare Function DIWriteJpg Lib "DIjpg.dll" (ByVal DestPath As String, ByVal quality As Long, ByVal progressive As Long) As Long
Follow the wabbit:
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
اخى الكريم الرابط لا يعمل
اها تقصد روابط الملفات
بسيطة, Google for the file name
voala!
http://www.dalitz-im-netz.de/download/wb/1...19.dijpgdll.zip
http://www.dalitz-im-netz.de/download/wb/1...19.dijpgsrc.zip
http://www.dalitz-im-netz.de/download/wb/1...19.dijpgvbe.zip
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
الف شكر اخى فؤاد سعد