Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Convert
#1
Merhaba; resmi convert ederek  ImageList içine almak istiyorum, fakat bir türlü alamadım, dikkatimden kaçan nedir? klasör içine kaydediyorum.



function TForm2.ImageConvert(ResimAdres: String): String;
var
  Bmp: Timage;
  Img: TJpegImage;
  Temp: TBitmap;
begin
  try
    Img := TJpegImage.Create;
    Img.LoadFromFile(ResimAdres);
    Temp := TBitmap.Create;
    Temp.height := Img.height;
    Temp.Width := Img.Width;
    Temp.Assign(Img);
    Temp.Canvas.DrawFocusRect(Rect(0, 0, Temp.Width, Temp.height));

    Bmp := Timage.Create(Nil);
    Bmp.Width := 64;
    Bmp.height := 64;
    Bmp.Stretch := True;
    Bmp.Proportional := True;
    Bmp.Canvas.CopyRect(Bmp.Canvas.ClipRect, Temp.Canvas,
      Rect(0, 0, Temp.Width, Temp.height));
  
    //   Bmp.Picture.SaveToFile('C:\Users\Serhat\Desktop\wps  vcl\Yeni.jpg');
ImageList.Add(Bmp);

  finally
    Temp.Free;
    Bmp.Free;
    Img.Free;
  end;

end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Json tarihini convert etmek ermanispir@gmail.com 2 138 25-05-2018, Saat: 17:05
Son Yorum: Kuri_YJ
  Convert hata Dostk 4 257 29-01-2018, Saat: 12:32
Son Yorum: Dostk



Konuyu Okuyanlar: 1 Ziyaretçi