![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Окно
Bast © (2007-08-20 14:13:00)Здравствуйте! Когда начинается Цикл то окно программы подвисает как можно этого избежать?
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
form1.TcpClient1.RemoteHost:=Edit1.Text;
for i:=StrToInt(Edit2.Text) to StrToInt(Edit3.Text) do
begin
TcpClient1.RemotePort:=IntToStr(i);
TcpClient1.Open;
form1.Label6.Caption:=Inttostr(i);
if TcpClient1.Connected then
Memo1.Lines.Add(IntToStr(i)+' Открыт');
TcpClient1.Close;
end;
end;
end.
Leonid Troyanovsky (2007-08-20 15:03:00) [21]
> Bast (20.08.07 15:01) [9]
> ненашел
Примеры устанавливал?
Если нет, то вернись к дистрибутиву.
--
Regards, LVT.
Bast (2007-08-20 15:01:00) [22]ненашел
Leonid Troyanovsky (2007-08-20 14:51:00) [23]
> Bast (20.08.07 14:39) [7]
> Можно пример какой нибудь?
Поищи у себя на компьютере chat.dpr
--
Regards, LVT.
Bast (2007-08-20 14:39:00) [24]Можно пример какой нибудь?
Германн (2007-08-20 14:35:00) [25]
> Непомогло, если сканирую 127,0,0,1 то помогает а если допустим
> ya.ru то зависает
>
Тогда в доппотоки.
Или использовать асинхронный режим работы.
Bast (2007-08-20 14:29:00) [26]
> Далеко не всегда нужны доппотоки. Во многих случаях достаточно
> вставить в цикл ProcessMessages. Гораздо более простое и
> надежное решение.
Непомогло, если сканирую 127,0,0,1 то помогает а если допустим ya.ru то зависает
Bast (2007-08-20 14:26:00) [27]
> Далеко не всегда нужны доппотоки. Во многих случаях достаточно
> вставить в цикл ProcessMessages. Гораздо более простое и
> надежное решение.
А куда вставить? неподскажите
Германн (2007-08-20 14:23:00) [28]
> THandle © (20.08.07 14:19) [1]
>
> Большие циклы лучше выносить в отдельный поток.
>
Далеко не всегда нужны доппотоки. Во многих случаях достаточно вставить в цикл ProcessMessages. Гораздо более простое и надежное решение.
THandle (2007-08-20 14:22:00) [29]Большие циклы лучше выносить в отдельный поток.
THandle (2007-08-20 14:19:00) [30]Большие циклы лучше выносить в отдельный поток.