Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.11;
Скачать: CL | DM;

Вниз

помогите оптимизировать код   Найти похожие ветки 

 
Dennis S   (2005-05-03 11:37) [0]

комп 2,4GHz - но при выполнении кода на секунду притормаживает.
При движении мыши, курсор замирает на секунду на месте...
Как этого избежать? Может с кодом что-то не так?
Копирует экран в ВМР, потом конвертит в JPEG и сохраняет...
Что можно сделать, чтобы процесс работы программы не был так заметен??
=======================

procedure TForm1.T1Timer(Sender: TObject);
var
bmp: TBitmap;
jp: TJpegImage;
DC: HDC;
S,S1,Sx: String;
D: String;
begin
       T1.Interval := StrToInt(mmTIME.Lines[1]);
       if T1.Interval <> 1000 then begin
       {---//---}
       end;
       bmp := TBitmap.Create;
       jp := TJpegImage.Create;
       bmp.Height := Screen.Height;
       bmp.Width := Screen.Width;
       DC:=GetDC(0);
       BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width,
         Screen.Height,DC, 0, 0, SRCCOPY);
       jp.Assign(bmp);
       jp.CompressionQuality := 20;
       jp.Compress;
       S := mmTIME.Lines[3];
       S1 := mmTIME.Lines[5];
       Sx := mmTIME.Lines[7];
       if S1 = "1" then begin
         x := x + 1;
         D := DateToStr(Date);
         Sx := Sx + D +"_screen_"+ IntToStr(x) +"_.jpg";
         jp.SaveToFile(Sx);
       end;
       jp.SaveToFile(S);

       ReleaseDC(0, DC);
       bmp.Free;
       jp.Free;
end;


 
@!!ex   (2005-05-03 12:34) [1]

ДИНАМИЧЕСКОЕ ВЫДЕЛЕНИЕ ПАМЯТИ ОДНА ИЗ САМЫХ МЕДЛЕННЫХ ОПЕРАЦИЙ!!!
Создавай объекты ОДИН раз! Будет в разы быстрее.



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

Текущий архив: 2005.09.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
14-1124017865
ocean
2005-08-14 15:11
2005.09.11
Обновил Windows,


1-1124429795
Как обновить данные в?
2005-08-19 09:36
2005.09.11
anton_321


1-1124236886
rosl
2005-08-17 04:01
2005.09.11
XML


14-1124224030
Cheaterr
2005-08-17 00:27
2005.09.11
Вопрос к тем, кто работает на производстве или торговых компаниях


2-1123309367
Андрей235
2005-08-06 10:22
2005.09.11
вывести в Caption или text integer переменную или string=integer