ضغط الصور في دلفي
|
ضغط الصور في دلفي
|
10-12-2008, 02:44 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله تعالي وبركاته كيف اقوم بضغط الصور في دلفي اي تصغير حجمها اذا كانت bmp/jpg 
10-12-2008, 05:10 PM
أن كانت الصور bmp يمكن تحويلها الى jpg للحصول على حجم اصغر ان كانت الصور jpeg لن تستطيع ضغطها لانها اصلا مضغوطة هناك منها ما يسمى jpeg2000 حيث تكون الخواريزمية احسن قليلا والسلام عليكم
15-01-2011, 07:08 AM
سلام عليك استاذ عبد العزيز اعود اليك بعد مده واجدد سؤالي اعمل علي برنامج لضغط الصور اذا كانت bmp ساقوم بتحويلها الي jpg اما اذا كانت jpg كيف اقوم بتحويلها الي jpg2000 الشرح اذا امكن بمثال مرفق وايضا بقيه الامتدادات مثال gif,png,
لا اله الا الله
عدد ما كان وعدد ما يكون وعدد الحركات والسكون
15-01-2011, 01:27 PM
وعليكم السلام ورحمة الله
ابحث، هناك الكثير من الخيارات امامك JPEG 2000 for Pascal PHP كود : code.google.com/p/pasjpeg2000 ImageFileLib PHP كود : www.logicnet.dk/lib المزيد بصيغ مختلة PHP كود : torry.net/pages.php?id=107بالتوفيق
15-01-2011, 01:44 PM
(آخر تعديل لهذه المشاركة: 15-01-2011, 02:29 PM بواسطة Lam.Abdeldjalil.)
السلام عليكم
إضافة  : بالنسبة لإصدارات دلفي 2009 و ما بعدjpg -> png / gif كود : uses
...
Jpeg, pngimage, GIFImg ;كود : JP : TJPegImage;
png1 :TPngImage;
GIF1:TGIFImage;
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
JP := TJPegImage.Create;
png1 :=TPngImage.Create;
GIF1 := TGIFImage.Create;
try
JP.LoadFromFile('Untitled.jpg');
JP.SaveToClipBoardFormat( MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
png1.LoadFromClipboardFormat( MyFormat,AData, APalette);
png1.SaveToFile('mypng.png');
GIF1.LoadFromClipboardFormat( MyFormat,AData, APalette);
GIF1.SaveToFile('mygif.gif');
finally
JP.Free;
png1.Free;
GIF1.Free;
end;
15-01-2011, 02:42 PM
مرحبا اخي عبد الجليل إقتباس :jpg -> png / gifالتحويل من jpg الى png يزيد حجم الملف التحويل الى gif يفقد الصورة دقتها الصيغة gif لا تقبل اكثر من 256 لون هناك ايضا الصيغة الجديدمن Google المسماة WebP ربما لا يوجد مكون حتى الان لدلفي او Pascal يتعامل معها، تمرين جيد لمن لديه وقت
15-01-2011, 07:00 PM
(آخر تعديل لهذه المشاركة: 17-01-2011, 10:05 PM بواسطة Lam.Abdeldjalil.)
السلام عليكم
بارك الله فيك أستاذ عبد العزيز على المعلومات أعتذر لم أقرأ السؤال جيدا حسبته تحويل jpg -> png / gif تعديل على الكود السابق : bmp->jpg/png/gif كود : Bmp : TBitmap;
JP : TJPegImage;
png1 :TPngImage;
GIF1:TGIFImage;
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
Bmp := TBitmap.Create;
JP := TJPegImage.Create;
png1 :=TPngImage.Create;
GIF1 := TGIFImage.Create;
try
Bmp.LoadFromFile('image.bmp');
[I] // Bmp.SaveToClipBoardFormat( MyFormat,AData,APalette);[/I]
[I] // ClipBoard.SetAsHandle(MyFormat,AData);[/I]
JP.Assign(Bmp);
JP.SaveToFile('myjpg.jpg');
[I] //png1.LoadFromClipboardFormat( MyFormat,AData, APalette);[/I]
png1.Assign(bmp);
png1.SaveToFile('mypng.png');
[I] //GIF1.LoadFromClipboardFormat( MyFormat,AData, APalette);[/I]
GIF1.Assign(bmp);
GIF1.SaveToFile('mygif.gif');
finally
Bmp.Free;
JP.Free;
png1.Free;
GIF1.Free;
end;jpg -> 117 ko png -> 402 ko Gif -> 128 ko والسلام عليكم
01-02-2011, 04:10 PM
شكرا استاذ عبد العزيز وشكا استاذ عبد الجليل لكني اعمل علي دلفي 7 وهذا الكود لدلفي 2009
لا اله الا الله
عدد ما كان وعدد ما يكون وعدد الحركات والسكون |
|
|
