Ładny brzuch

Witam :)

Mam kodzik ktory konwertuje Zrzut ekranu do BMP.

var Can: TCanvas; B : TBitmap; begin try { tworzenie zmiennej } Can := TCanvas.Create; { przechwycenie uchwytu ekrnau } Can.Handle := GetWindowDC(GetDesktopWindow); { tworzenie bitmapy } B := TBitmap.Create; B.Width := Screen.Width; B.Height := Screen.Height; B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),     Can,     Rect (0, 0, Screen.Width, Screen.Height));  try // zapisz plik    B.SaveToFile('C:\plik.bmp');  except // w wyniku bledu...    raise Exception.Create(    'Bad w zapisie pliku...');  end; finally Can.Free; B.Free; end;

Chce, zeby robilo zrzut ekranu i zapisywalo w rozszerzeniu JPG (Tworzone BMP, ma ponad 6MB :o)

Pozdrawiam :D


B.SaveToFile('C:\plik.jpg');? :)

To nie zaleznie od koncowki :) I tak ma ponad 6 MB chyba sie domyslacie dlaczego ? :P

Zamiast B.SaveToFile('C:\plik.bmp'); dajuses jpeg;rze ... var j:tjpegimage; ... j:=tjpegimage.create; j.CompressionQuality:=100; // <- jako (mniej = mniejszy rozmiar :)) j.Assign(b); j.SaveToFile('c:\plik.jpg'); ... j.Free;Jeli chcesz zapisa obrazek w skali szaroci::   j:=tjpegimage.Create;   j.CompressionQuality:=100;   j.PixelFormat:=jf8bit;   j.Grayscale:=true;   j.Assign(b);   j.SaveToFile('C:\plik.jpg');
Uytkownik Cyrkiel edytowa ten post 17 grudzie 2005, 20:01


Zamiast B.SaveToFile('C:\plik.bmp'); dajuses jpeg;rze ... var j:tjpegimage; ... j:=tjpegimage.create; j.CompressionQuality:=100; // <- jako (mniej = mniejszy rozmiar :)) j.Assign(b); j.SaveToFile('c:\plik.jpg'); ... j.Free;z pamici, ale powinno by ok ;) Jeli chcesz zapisa obrazek w skali szaroci::   j:=tjpegimage.Create;   j.CompressionQuality:=100;   j.PixelFormat:=jf8bit;   j.Grayscale:=true;   j.Assign(b);   j.SaveToFile('C:\plik.jpg');

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •