تحويل صورة من نوع jpg إلى صورة من نوع bmp و العكس

يمكن تحويل صورة من نوع jpg إلى صورة من نوع bmp باستعمال لغة الدلفي كما يلي :

• - ضع على الفورم عنصرين Timage سم الأول ImageJPG والثاني ImageBMP.


• - ضع عنصر TButton .


• - أكتب الكود في الحدث OnClick للعنصر Button1.

يمكن تحويل الصورة من نوع bmp إلى صورة من نوع jpg بنفس الطريقة

• ياستعمال الرسام أو ي محرر للصور قم إنشاء صورة بحجم 32×32 احفظها بنوع BMP


• الكود التالي يبين كيف نحول هذه الصورة إلى أيكون

procedure bmp2ico(Image: TImage; FileName: TFilename);
var
  Bmp: TBitmap;
  Icon: TIcon;
  ImageList: TImageList;
begin
  Bmp  := TBitmap.Create;
  Icon := TIcon.Create;
  try
    Bmp.Assign(Image.Picture);
    ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
    try
      ImageList.AddMasked(Bmp, Bmp.TransparentColor);
      ImageList.GetIcon(0, Icon);
      // Save it to a file
      Icon.SaveToFile(FileName);
    finally
      ImageList.Free;
    end;
  finally
    Bmp.Free;
    Icon.Free;
  end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
   bmp2ico(Image1, 'd:\test\test.ico');
end;

في معظم الأحيان الأيقونة لا تعمل فهل بالإمكان تعديله حتى يمكن قراءتها في جميع برامج ويندوز

لتصغير حجم الصورة :