Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизСнимок экрана в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c