Скачать: CL | DM;

Снимок экрана в 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;

---

← →
KaPaT ©   (2003-01-23 21:21) [8]

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

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

---

← →
ЮРИЙ_К ©   (2003-01-24 10:25) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c