VPF::Как убрать тормоза в программе?

SergeBS

Дата 15.2.2006, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 2
Всего: 22

Quadr0,
Задача была: позволить в одной части приложения что-то редактировать, в то время как в другой выполняется нечто по определению медленное. Для этого и служит multi-thread. И работа приложения в целом может ускориться только когда в потоке есть некое действо, типа того же запроса в сети, которое тормозит не из-за загрузки ресурсов, а из-за большого времени отклика. Другая часть - другой поток - будет не ждать, а делать нечто полезное. Поэтому, между прочим, разделение двух сортировок на 2 потока никакого ускорения не принесет. Ждать-то нечего или ждем одного и того же (если обе орудуют на одном диске).

Bog d`An,

Цитата

я так понимаю что если отдельный поток - значит всю прогу не затупляет? Даже если через попу написан...

Если через попу - так сожрет все ресурсы (разделение ресурсов между потоками!) и подвесит комп напрочь. Пример - пресловутое форматирование дискеты в Win95-98.

Akella

Дата 15.2.2006, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

так создаем

Код


    ThreadBarCode := TReadBarCode.Create(true);
    ThreadBarCode.FreeOnTerminate  := DoFreeOnTerminate;
    ThreadBarCode.Priority         := APriority;
    ThreadBarCode.SleepTime        := ASleepTime;
    ThreadBarCode.ComPort          := AComPort;
    ThreadBarCode.Baud             := ABaudRate;
    ThreadBarCode.Resume;

так сделано в методе Execute

Код


procedure TReadBarCode.Execute;
begin
  if not assigned(BarCodePort1) then
  begin
    BarCodePort1 := TComPort.Create;
    BarCodePort1.Baud := Baud;
    BarCodePort1.PortNumber := ComPort;
    BarCodePort1.OpenInitPort(BarCodePort1.SizeBuf);
  end;//if

  if BarCodePort1.Connceted then

    while Not Terminated
    do begin
      fBarCode := BarCodePort1.GetBarCodeFromComPort;

      if fBarCode <> ''
      then begin
        Synchronize(SetBarCodeForParentForm);
        fBarCode := '';
      end;//if

//засыпаем на короткое время, чтобы и остальные приложения тоже могли поработать
      Sleep(SleepTime);

    end;//while



  BarCodePort1.CloseComPort;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »