دخول

**Lam.Abdeldjalil**

السلام عليكم

بارك الله فيك أستاذ عبد العزيز على المعلومات Smile

أعتذر لم أقرأ السؤال جيدا حسبته تحويل 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;

التجربة على ملف bmp -> 2305 ko أعطى النتائج
jpg -> 117 ko
png -> 402 ko
Gif -> 128 ko

والسلام عليكم

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة