Зависание формы во время выполнения задачи

← →
lewka-serdceed (2008-06-29 18:43) [0]

Привет!!!
Обрабатывается вот такая процедура:
procedure TForm1.Button1Click(Sender: TObject); var is_available: boolean; begin is_available:=false; try IdHTTP1.Head(Edit1.Text); if IdHTTP1.ResponseCode=200 then is_available:=true else is_available:=false; except is_available:=false; end; if is_available=true then begin label1.Caption:="Достепен ресурс"; Memo1.Lines.Add(IdHTTP1.Get(edit1.Text)); end else label1.Caption:= "Не Достепен ресурс" end;
И пока она выполняется с формой нельзя ни чего сделать(не переместить) она на это время зависает.
Млжно ли этого избежать???

← →
Amoeba © (2008-06-29 19:32) [1]

Установи эту примочку для форматирования текста:
http://www.aew.wur.nl/UK/Delforexp/
Разбираться в не отформатированном коде нет желания.

← →
lewka-serdceed (2008-06-29 19:58) [2]

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

← →
{RASkov} © (2008-06-29 20:11) [3]

> [2] lewka-serdceed (29.06.08 19:58)

Да ты и по русски вообще не понимаешь... :(
Тебе по русски в каждой ветке отвечают, а ты все по своему делаешь. И даже нисколько в тебе не остается...
Когда ты перестанешь пугать посетителей форума своим кодом? :)
И, кстати, замечание:

> if is_available=true then

Булевые переменные проверяются не так, а вот так:
if is_available=true and not is_available=false then
иначе иногда не срабатывает...

← →
Тын-Дын © (2008-06-29 20:16) [4]

> Млжно ли этого избежать???

1. Положить на форму idAntiFreeze или выполнять запрос в отдельном потоке.

2. if is_available=true then
ПРоверять достаточно так: if is_available then

← →
lewka-serdceed (2008-06-29 20:24) [5]

Понял спасибо

> Булевые переменные проверяются не так, а вот так:if is_available=true
> and not is_available=false thenиначе иногда не срабатывает.
> ..

те
> if is_available then

уже не канает???

Зависание формы во время выполнения задачи Найти похожие ветки