Скачать: CL | DM;

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

← →
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]

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

---

← →
brother ©   (2008-06-30 10:00) [6]

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

те
> if is_available then

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

---

← →
{RASkov} ©   (2008-06-30 10:51) [7]

> [6] brother ©   (30.06.08 10:00)
> те
> > if is_available then
>
> уже не канает???

Если ты не КП, то нет
:о)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c