Скрин экрана

[atihiy2010]

Ребят, понимаю что уже обьежжена тема но все же. Нашел как делат Скрин экрана, нашел как сохранять его. Но есть проблема: сохраняет в 5 мб, желательно до 1 мб чтоб картинка выходила.... Вот что надо, по нажатию на кнопку1 - в Image1 занести скриншот, кнопка2 - сохранить в файл этот скриншот, как можно с меньшим обьемом, но чтоб при этом был виден текст который на скрине. Подскажите плиз, очень надо...

[ArtGrek]

конвертируите в JPG и сохраняите, будет намного меньше

PS. 'зачем вопрос, каку уменьшить размер изображения при сохранение', так длино и непонятно рапишвать

[atihiy2010]

Кароче, нашел то что мне надо, но осталось одно - как мой скрин 1366х768 уменьшить для визуального отображения в Image1 который к примеру занимает половину формы. Тоесть сделал скрин, показал предварительно на Image в уменьшеном виде, и сохранил в полном?

begin
 bmp:=TBitmap.Create;
  jpgImg := TJPEGImage.Create;
    bmp.Height:=Screen.Height;
    bmp.Width:=Screen.Width;
    DC:=GetDC(0);
    bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
      DC, 0, 0, SRCCOPY);

  ReleaseDC(0, DC);
  Image1.Picture.Assign(bmp); //Отображаю, но оно не влазит)))
  jpgImg.Assign(bmp); {в JPG грузим Битмап}
  jpgImg.CompressionQuality:=100; {устанавливаем компрессию (качество) (1-100)}
  jpgImg.SaveToFile('Screen.jpg'); {сохраняем в формате JPG}
  jpgImg.Free;
  bmp.Free;
end;

[GunSmoker]

Слушай, ну рядом же с BitBlt находятся StretchBlt и StretchDIBits - и даже ссылка в BitBlt на них есть.

И там же - ссылки на примеры:
http://msdn.microsoft.com/en-us/libr...02(VS.85).aspx
http://msdn.microsoft.com/en-us/libr...50(VS.85).aspx

[atihiy2010]

Ну не силен я в этом. Признаю. Что в код добавить то а? Как работает этот StretchBlt?

[ArtGrek]

сильно разбераца не охото в том чем вы сами не хотите, но могу сказать
что для сохранения надо использовать не то что в имадже, а тот скрин которыи зделали, которыи вы загружали в имадже
и еще у имаджа есть такое своиство
Image1.Picture.Bitmap

[atihiy2010]

Решил свою проблему без сурового кода))) Свойство Stretch и Proportional компонента Image1 поставил в True. Спасибо всем участвующим.

[hacknet]

а можно ли сделать скрин и на нести на него сетку, в квадратиках сетки указать их приблизительные координаты? или такое не возможно?

[FaTaL]

Конечно можно. Используй Canvas

[hacknet]

Сообщение от FaTaL

Конечно можно. Используй Canvas

ни когда с ним не работал, даже не знаю с чего начать, может подкинете какой нибудь код?