BMP, JPG скриншоты экрана. Большой размер файлов даже с использованием компрессии.

[Человек_Борща]

Привет=)
написал программу для снятия скриншотов экрана.. в ручном и автоматическом режиме(через таймер).

Но тут 2 проблемы..
1)
BMP изображение получается весом 5 Мб. (в bmp нет компрессии).
При выборе JPG тоже самое 5 Мб. (В JPG использую компрессию).

2)
далее при определённом кол-ве отснятого матерьяла программа выдает ошибку об нехватке места(где его нехватает я так и не понимаю(ПЗУ 25 Гб свободно, 2 Гб ОЗУ свободно)) =)

Вот исходник+готовый экземпляр , если можете помогите.

Исходник нуждается в AlphaSkins и CoolTray компоненте.

[Пепел Феникса]

на будущее exe нам ни к чему.

if SettingsForm.JPEGFormatFileChk.Checked then
begin
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0, SRCCOPY);
jp:=TJPEGImage.Create;
jp.Assign(bm);
jp.CompressionQuality:=SettingsForm.CompressionBar.Position;
jp.Compress;

bm.SaveToFile(IntToStr(StrToInt(SettingsForm.FileNameEdit.Text)+StrToInt(LabCount.Caption))+'.jpg');
end;

зачем то создаете JPEG и сохраняете все так же bmp

а вот по второму пункту буду громко ругатся.
ну где освобождение памяти?(удаление созданных обьектов?)

[Человек_Борща]

спасибо учел.. обновил архив первого поста.

хм странно.. расставил

bm.free

jp.free

но проблема осталась...
При достижении определенного кол-ва на счетчике пишет что нет места.

Думаю что это буфер виноват, как я понимаю:
Нажатие кнопки=>скрин=>буфер=>папка...

дело в SCRCOPY.. как по другому можно?
или .. Сделать скрин=>Буфер=>папка=>очистить буфер=> сделать скрин.


Насчет JPEG.. вы знаете способ снятия скриншота и сохранение в JPEG без использования BitMap?

[Пепел Феникса]

а разве код изменился?

procedure TMainForm.GetScreenBtnClick(Sender: TObject);
  var
    jp:TJPEGImage;
    bm:TBitmap;
    i:string;
begin
i:='1';
if SettingsForm.JPEGFormatFileChk.Checked then
begin
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0, SRCCOPY);
jp:=TJPEGImage.Create;
jp.Assign(bm);
jp.CompressionQuality:=SettingsForm.CompressionBar.Position;
jp.Compress;

jp.SaveToFile(IntToStr(StrToInt(SettingsForm.FileNameEdit.Text)+StrToInt(LabCount.Caption))+'.jpg');
jp.free;
bm.free;
end;

if SettingsForm.BMPFormatFileChk.Checked then
begin
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0, SRCCOPY);
bm.SaveToFile(IntToStr(StrToInt(SettingsForm.FileNameEdit.Text)+StrToInt(LabCount.Caption))+'.bmp');
bm.free;
end;

LabCount.Caption:=IntToStr(StrToInt(LabCount.Caption)+StrToInt(i));
StatusBar.Panels[0].Text:=IntToStr(StrToInt(StatusBar.Panels[0].Text)+StrToInt(i));
end;

красное то что исправил.

дело в SCRCOPY

интерестно откуда такие данные?
и вообще, откуда претензии к флагу копирования изображения?

[Человек_Борща]

=) спасибо заработало...

jp.SaveToFile(IntToStr(StrToInt(SettingsForm.FileNameEdit.Text)+StrToInt(LabCount.Caption))+'.jpg');
jp.free;
bm.free;

я поставил там jp.free bm.Free но не заметил что там не jp.Save
а bm.save..

теперь работает. Спасибо.
а с первым постом налажал.. в делфи исправил сохранить забыл.