10-12-2008, 02:44 PM
الصفحات : 1 2
10-12-2008, 05:10 PM
11-12-2008, 09:36 AM
15-01-2011, 07:08 AM
15-01-2011, 01:27 PM
15-01-2011, 01:44 PM
السلام عليكم
إضافة
: بالنسبة لإصدارات دلفي 2009 و ما بعد
jpg -> png / gif
بالتوفيق
إضافة
: بالنسبة لإصدارات دلفي 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
15-01-2011, 07:00 PM
السلام عليكم
بارك الله فيك أستاذ عبد العزيز على المعلومات
أعتذر لم أقرأ السؤال جيدا حسبته تحويل jpg -> png / gif
تعديل على الكود السابق : bmp->jpg/png/gif
التجربة على ملف bmp -> 2305 ko أعطى النتائج
jpg -> 117 ko
png -> 402 ko
Gif -> 128 ko
والسلام عليكم
بارك الله فيك أستاذ عبد العزيز على المعلومات
أعتذر لم أقرأ السؤال جيدا حسبته تحويل 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
01-02-2011, 08:15 PM
الصفحات : 1 2