Resim Boyutlandırma ve Dosya Boyutu...

[paranoyaks]

Merhaba Resim Boyutlandırmak ile ilgili bir proje yapmaya çalışıyorum aşağıdaki kodları bu siteden almıştım resim boyutlandırmak ile ilgili bir sıkıntım yok aslında benim sorunum şu diyelimki boyutunu ufalttığım resimin boyutu normalde 54.5 Kb ama ben resmin boyutlarını küçültmeme ragmen bu resimi 350 kb olarak kaydediyor bu problemin önüne bir türlü geçemedim hatta resimin boyutunu olduğu boyutun üstüne çıkarttığımda abartı rakamlarda kaydediyor bu aşağıdaki yapıyı bozmadan yada bozsakta çok önemli değil resim dosya boyutunu küçüldüğü zaman küçülecek şekilde büyüdüğü zamanda yine orantılı büyüyecek şekilde ayarlayamazmıyız acaba formda araştırdım bir sonuca varamadım yardımcı olursanız çok sevinirim iyi çalışmalar herkese...

Kod: Tümünü seç

procedure ResmiBoyutlandir(KaynakResim:string; Y:integer; G:integer);
var
  Bitmap     : TBitmap;
  img1 : TBitmap;
  XRect : TRect;
begin
  try
    Bitmap := TBitmap.Create;
    Bitmap.Width  := frm_main.Image1.Picture.Width;
    Bitmap.Height := frm_main.Image1.Picture.Height;
    Bitmap.Canvas.Draw(0, 0, frm_main.Image1.Picture.Graphic);
    img1 := TBitmap.Create();
    img1.Height := Y;
    img1.Width := G;
    XRect := Rect(0, 0, G, Y);
    img1.Canvas.StretchDraw(XRect,bitmap);
    frm_main.Image1.Picture.Graphic := bitmap; //orijinal resim
    frm_main.Image2.Picture.Bitmap := img1; //boyutlandırılmış hali
    Bitmap.Free;
    img1.Free;
  except
    Application.MessageBox('Hata oluştu','Hata',MB_OK+MB_ICONERROR);
  end;
end;

[tanerileri]

JPEG (JPG) olarak kaydedersen dosya boyutuda küçülecektir.

Bitmap varsayılan olarak BMP kaydeder , oda fazla disk alanı kullanır


Kolay gelsin.

[paranoyaks]

Bende Şu anda proceduru jpg olarak değiştirmeye çalışıyorum hata veriyor ama az kaldı çözecem sanırım hissediyorum artık

[paranoyaks]

Kodu JPEG olarak çevirdiğim zaman bitmap i boyutlandıran şu kısımda

Kod: Tümünü seç

Bitmap.Canvas.Draw(0, 0, frm_main.Image1.Picture.Graphic);

sorun yaşıyorum jpeg yapınca canvas kodları çıkmıyor jpeg olunca boyutlandırma nasıl olacak bir fikri olan varmı ?

[umutumsu]

merhaba, belki bu işini görür.

Kod: Tümünü seç

uses jpeg

     jpeg := TJPEGImage.Create;     
     jpeg.Assign( Image1.Picture.Bitmap ); 
     jpeg.SaveToFile( 'dsa.jpg' );

kolay gelsin