دخول

**Lam.Abdeldjalil**

السلام عليكم

إضافة Smile

: بالنسبة لإصدارات دلفي 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;

بالتوفيق

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