Снимок экрана в JPG

← →
ЮРИЙ_К © (2003-01-23 15:45) [0]

Коллеги! Подскажите, кто знат, как сделать САБЖ !!! Заранее благодарен.

← →
Skier © (2003-01-23 15:50) [1]

1) GetDC(0) - ReleaseDC(...)
2) BitBlt(...)
3) TJPEGImage

← →
ЮРИЙ_К © (2003-01-23 15:55) [2]

Это уже видел, видать алгоритм стандартный, ОК! Будем так.
СЕнькс

← →
ЮРИЙ_К © (2003-01-23 16:40) [3]

>>Skier
НУ с одним разобрался, а можно-ли сделать так: У меня разрешение экрана 1024х768. Картинка снимается, а вот записать ее нужно уменьшенной до 800х600. Так можно?

← →
KaPaT © (2003-01-23 17:40) [4]

Мелькнула идея...испульзуя канву Битмапа сделать StretchDraw

← →
ЮРИЙ_К © (2003-01-23 18:04) [5]

>> KaPaT
А можно конкретнее развить мелькнувшую идею ???

← →
gsu © (2003-01-23 18:05) [6]

StretchDraw+F1

← →
ruslanyd (2003-01-23 18:53) [7]

нашел в статьях этого сайта
называлась "Автоматическая обработка ошибок"
урл не помню, можно через поиск

procedure TgsCatcher.DoGenerateScreenshot;
var bmp: TBitmap;
jpg: TJPEGImage;
begin
bmp := Screen.ActiveForm.GetFormImage;
begin
jpg := TJPEGImage.Create;
jpg.CompressionQuality := 100;
jpg.Assign(bmp);
jpg.SaveToFile(fn+".jpg");
FreeAndNil(jpg);
end;
FreeAndNil(bmp);
end;

> ЮРИЙ_К © (23.01.03 18:04)
> >> KaPaT
> А можно конкретнее развить мелькнувшую идею ???

Почитай хелп по StretchDraw....

>> KaPaT
Спасибо за идею. Все оказывается намного проще, надо просто у Image1 установить свойства Stretch и Proportional и все, вся беда решена. ВСЕМ СПАСИБО, вопрос закрыт ! 8-З

Снимок экрана в JPG Найти похожие ветки