Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.139 c
1-4933
Song
2003-01-25 17:30
2003.02.03
Как прочитать текстовый файл быстрей чем Reset() .. ReadLn() ?


1-4877
Nikolay Enby
2003-01-24 22:35
2003.02.03
TNotifyIconData


6-5127
alev
2002-12-06 13:10
2003.02.03
Список ip- адресов


1-4961
Checist [root]
2003-01-26 23:33
2003.02.03
Перехват ошибки


1-5056
Erden
2003-01-24 12:01
2003.02.03
Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский