Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.01.2010, 17:20
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
Вопрос ProgressBar "вешает" форму...

Всем привет. Я сделал прогу, в которой заполняется ProgressBar. Код такой:
Код:
While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 Sleep(3000);
 Application.ProcessMessages;
 End;

Все в принципе работает, но! - при работе прогрессбара виснет главная форма. То есть на ней ничего нельзя сделать, даже закрыть. Пробовал поставить Application.ProcessMessages (вроде должно помочь) - не помогает... Кто знает - подскажите, как быть?

ЗЫ. Сорри, если не там тему создал, я тут новичек еще)
Ответить с цитированием
  #2  
Старый 26.01.2010, 17:22
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Виснет оно у тебя на sleep(3000).
Сделай так:

Код:
var
  i : Integer;
While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 For i := 1 To 30 Do
   Begin
     Sleep(100);
     Application.ProcessMessages;
   End;
 End;
Ответить с цитированием
  #3  
Старый 26.01.2010, 17:27
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
Begin
Sleep(100);
Application.ProcessMessages;
End;
End;
Не помогает =( Небольшое уточнение: сама прога работает, полоска двигается, но в это время ничего остальное не пашет, и "отпускает" прогу только когда полоска дойдет до 100...
P.S. Sleep(3000) - вроде на 3 секунды "усыплять" должно?
Ответить с цитированием
  #4  
Старый 26.01.2010, 18:16
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну да, вот оно и усыпляет. Т.е. блокирует выполнение.
Если совсем не помогает (хотя должно), то тогда переделывай на потоки (TThread). Хотя вот такой фокус вполне дает возможность манипулировать с интерфейсом, хотя все и выполняется в одном, главном, потоке программы.
Ответить с цитированием
  #5  
Старый 26.01.2010, 18:50
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
По умолчанию

Цитата:
Сообщение от lmikle
переделывай на потоки (TThread).
Проблема в том, что я новичек и с потоками еще не работал... Можно ли как то не "повесить", а ПРИОСТАНОВИТЬ выполнение? В Паскале я это делал через Delay, в Дельфи вместо него Sleep...
Ответить с цитированием
  #6  
Старый 26.01.2010, 19:15
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Да нафига вы вообще его усыпляете? Уберите вообще вызов Sleep. Вам дали не вешающую альтернативу - Application.ProcessMessages, вот ей и пользуйтесь.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #7  
Старый 26.01.2010, 19:31
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
По умолчанию

Цитата:
Сообщение от Страдалецъ
Да нафига вы вообще его усыпляете?
Если не усыплять - полоса заполняется МГНОВЕННО, что мне не нужно.
Цитата:
Уберите вообще вызов Sleep. Вам дали не вешающую альтернативу - Application.ProcessMessages, вот ей и пользуйтесь.
Я ее использовал - см. пост №1. Не помогает...
Ответить с цитированием
  #8  
Старый 26.01.2010, 20:18
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

На самом деле, Application.ProcessMessages позволит только обработать сообщения, которые становятся в очередь. Естественно, такой код НЕ ПОЗВОЛИТ ПАРАЛЛЕЛЬНО выполнять еще какие-либо задачи. Для этого сущетсвуют потоки.

По потокам - воспользуйся поиском (недавно были по ним темы) и, конечно, читай документацию. Там все достаточно просто.
Ответить с цитированием
  #9  
Старый 26.01.2010, 21:12
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Тогда вам надо не Sleep выполнять, а самому нужный промежуток времени отслеживать:
Код:
StartTime := GetTickCount;
While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15); 
 if GetTickCount - StartTime >= 3000 
 then begin
        Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
        StartTime := GetTickCount;   
        end;
 Application.ProcessMessages;
 End;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #10  
Старый 26.01.2010, 21:29
Аватар для CTAJLUH
CTAJLUH CTAJLUH вне форума
Прохожий
 
Регистрация: 02.01.2010
Адрес: г. Нижний Новгород
Сообщения: 20
Репутация: 10
По умолчанию

ты сделай какую нибудь долгую процедуру и проверь можно ли пользоваться окном при работе БАРА (естественно убрав слип) если можно убирай слип напрочь нельзя ищи другой вариант

надеюсь этот ответ поможет тебе и всем че-нибудь понять
__________________
Начнем из далека!!! Все произошло из-за большого взрыва: сначала появился нанобит, потом милибит, уже потом бит, за ним недобайт, байт, недобуква, недослово и Как уже можно догадаться "Слово? " Да!!! НО ЭТИМ ВСЕ НЕ КОНЧИЛОСЬ!!!!
Ответить с цитированием
  #11  
Старый 27.01.2010, 18:56
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
По умолчанию

Вопрос - как именно заставить поток двигать бар? http://www.delphikingdom.com/asp/vie...catalogid=1370 - я читал эту статью, жму File - New - Thread Object, а дальше что делать то? Я пробовал в код
Код:
procedure Thread.Execute;
begin
  { Place thread code here }
end;
Вставить
Код:
While Form1.ProgressBar1.Position<100 do
 Begin
 a:=random(15);
 Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+a;
 Sleep(3000);
 Application.ProcessMessages;
 End;
А в обработчик OnClick у кнопки пишу:
Код:
Stream:=TNewThread.Create(true);
Stream.FreeOnTerminate:=true;
Stream.Priority:=tpLower;
Stream.Resume;
Не работает - подсвечивает красным строку "Stream:=TNewThread.Create(true);"

Добавляю в начало процедуры
Код:
procedure TForm2.Button1Click(Sender: TObject);
Stream: TNewThread;
begin
Не работает - подсвечивает "Stream: TNewThread;" и пишет "Unknown directive 'Stream'".
Ну и т.п. Кто нибудь знает, как правильно сделать?
Ответить с цитированием
  #12  
Старый 27.01.2010, 19:05
Аватар для Chuwis720
Chuwis720 Chuwis720 вне форума
Прохожий
 
Регистрация: 22.09.2009
Сообщения: 28
Репутация: 10
По умолчанию

P.S. У меня всего 3 формы в программе, бар на первой форме... Кнопка, которая должна его запустить - на второй... Это я так, на всякий случай - может, я как то не так связь между формами сделал...
Ответить с цитированием
  #13  
Старый 27.01.2010, 23:42
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Модуль потока
Код:
unit UNewThead;
interface
uses
  Classes;
type
  TNewThead = class(TThread)
  private
    { Private declarations }
    FPos: Integer;
    procedure SetPos();
  protected
    procedure Execute; override;
  public
    constructor Create();
  end;

implementation

uses SysUtils, Unit1;// прописываем модуль Form1

{ TNewThead }
constructor TNewThead.Create;
begin
  inherited Create(true);
  FreeOnTerminate:=true;
  Priority:=tpLower;
  Resume;
end;

procedure TNewThead.Execute;
begin
  { Place thread code here }
  FreeOnTerminate:=true;
  FPos := 0;
  while FPos < 100 do
  begin
    Synchronize(SetPos);
    Inc(FPos, random(15));
    Sleep(3000);
  end;
end;

procedure TNewThead.SetPos;
begin
  Form1.ProgressBar1.Position := FPos;
  FPos := Form1.ProgressBar1.Position;
end;

end.
Сохраняешь как UNewThead.pas
В модуле второй формы
Код:
implementation
uses SysUtils, UNewThead; // прописываем модуль потока

procedure TForm2.Button1Click(Sender: TObject);
Stream: TNewThread;
begin
   Stream:=TNewThread.Create();
end;
Ответить с цитированием
  #14  
Старый 28.01.2010, 00:16
NotFake NotFake вне форума
Прохожий
 
Регистрация: 28.01.2010
Адрес: Киев
Сообщения: 2
Репутация: 10
Сообщение

Создай на форме таймер(TTimer). В обработчик события OnTimer(два раза клацни по таймеру) напиши:
Код:
 a := random(15);
 Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + a;
 Timer1.Interval := random(3000);
 if Form1.ProgressBar1.Position > = 100 then begin
   Timer1.Enabled := false;
   // Другие события, которые должны выполнятся при заполнении прогрессБара
 end;
Admin: Пользуемся тегами!

Этот метод самый простой и самый надежный.
Моя аська 398202116, можеш написать в аську, я подробней опишу.

Последний раз редактировалось Admin, 28.01.2010 в 10:17.
Ответить с цитированием
  #15  
Старый 28.01.2010, 09:52
Аватар для s0Creator
s0Creator s0Creator вне форума
Местный
 
Регистрация: 20.02.2008
Адрес: Московская область
Сообщения: 420
Репутация: 884
По умолчанию

Цитата:
Сообщение от NotFake
Создай на форме таймер(TTimer). В обработчик события OnTimer(два раза клацни по таймеру) напиши:

a := random(15);
Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + a;
Timer1.Interval := random(3000);
if Form1.ProgressBar1.Position > = 100 then begin
Timer1.Enabled := false;
// Другие события, которые должны выполнятся при заполнении прогрессБара
end;

Этот метод самый простой и самый надежный.
Моя аська 398202116, можеш написать в аську, я подробней опишу.
Метод самый простой, но и самый не эффективный.
Подставляем в место
Код:
// Другие события, которые должны выполнятся при заполнении 
действие на 3 секунды и получаем:
3 секунды чтото выполняем с подвисанием формы, потом random(3000) миллисекунд ничего не делаем - но можно нажать на форму. и так пока все не сделаем.
если же в TNewThead.Execute; вместо Sleep(3000); подставить действие на 3 секунды - то оно будет выполняться в фоне и прерываться только на установку шкалы.
Немного доделать TNewThead и можно в фоне выполнять что то полезное с возможностью прерывания.

Последний раз редактировалось s0Creator, 28.01.2010 в 09:57.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:15.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025