Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Снимок экрана в JPG [D6, Win95/98, WinXP]

ЮРИЙ_К © (2003-01-23 15:45:00)
Коллеги! Подскажите, кто знат, как сделать САБЖ !!! Заранее благодарен.

ЮРИЙ_К (2003-01-24 10:25:00) [1]
>> KaPaT
Спасибо за идею. Все оказывается намного проще, надо просто у Image1 установить свойства Stretch и Proportional и все, вся беда решена. ВСЕМ СПАСИБО, вопрос закрыт ! 8-З

KaPaT (2003-01-23 21:21:00) [2]

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

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

ruslanyd (2003-01-23 18:53:00) [3]
нашел в статьях этого сайта
называлась "Автоматическая обработка ошибок"
урл не помню, можно через поиск

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;

gsu (2003-01-23 18:05:00) [4]
StretchDraw+F1

ЮРИЙ_К (2003-01-23 18:04:00) [5]
>> KaPaT
А можно конкретнее развить мелькнувшую идею ???

KaPaT (2003-01-23 17:40:00) [6]
Мелькнула идея...испульзуя канву Битмапа сделать StretchDraw

ЮРИЙ_К (2003-01-23 16:40:00) [7]
>>Skier
НУ с одним разобрался, а можно-ли сделать так: У меня разрешение экрана 1024х768. Картинка снимается, а вот записать ее нужно уменьшенной до 800х600. Так можно?

ЮРИЙ_К (2003-01-23 15:55:00) [8]
Это уже видел, видать алгоритм стандартный, ОК! Будем так.
СЕнькс

Skier (2003-01-23 15:50:00) [9]
1) GetDC(0) - ReleaseDC(...)
2) BitBlt(...)
3) TJPEGImage

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »