Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
25.06.2002. Image?
30.05.2005. Minimalna velicina forme?
14.08.2004. promena velicine slike
08.06.2005. Problem kod LONGBLOB
22.05.2005. Kako slike smanjit?
01.08.2005. od male slicice do velike bez promena u kvalitetu
22.09.2005. Stampanje slike u jpg formatu
25.09.2005. kako da brzo izmjenim velicinu slike(layera)
27.10.2005. printa sliku manjih dimenzija nego sto je podesen..

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Smanjit sliku na minimalnu velicinu..

[es] :: Pascal / Delphi / Kylix :: Smanjit sliku na minimalnu velicinu..

[ Pregleda: 2433 | Odgovora: 5 ] > FB > Twit

Autor

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Smanjit sliku na minimalnu velicinu..

^{09.01.2006. u 10:18 - pre 222 meseci}

Code:

function CaptureScreenRect( ARect: TRect ): TBitmap;
var
  ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;

function CaptureScreen: TBitmap;
begin
  with Screen do
    Result := CaptureScreenRect( Rect( 0, 0, Width, Height ));
end;

I sad samo pozovem Image1.Picture.Bitmap:=CaptureScreen;
I Image1.Picture.SaveToFile('c:\slika.bmp');

Ok, al ta slika bude velika >1 MB, kako smanjit na velicinu <300 kb, kako je konvertovat u .jpg il kako da ju strpam u neku zip arhivu..

poz

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Smanjit sliku na minimalnu velicinu..

^{09.01.2006. u 10:24 - pre 222 meseci}

Za ZIP mozes koristiti Indy-ev IdZLibEx unit ili skini neke gotove komponente, moja preporuka ZipForge.

BMP -> JPG: http://delphi.about.com/cs/adptips2001/a/bltip0301_3.htm

Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Smanjit sliku na minimalnu velicinu..

^{09.01.2006. u 11:25 - pre 222 meseci}

Sta treba u uses za ovaj BMP to JPG:
[Error] Unit5.pas(62): E2003 Undeclared identifier: 'TJpegImage'

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Smanjit sliku na minimalnu velicinu..

^{09.01.2006. u 12:07 - pre 222 meseci}

Hmm ako se dobro secam stavi uses JPEG ili JPG, tako nesto, uglavnom imas jedan delphi-ev unit za baratanje JPG slicicama :)

Odgovor na temu

ntojzan
Sandor II Tojzan
Becej

Član broj: 36657
Poruke: 168
*.bbtec.net.

Profil