Проблема с реализацией потока

[InseR]

Здравствуйте.Я решил написать небольшой сканер портов и столкнулся со следующей проблемой.Когда я ввожу в программе все данные и нажимаю кнопку сканировать,программа хоть и выполняет сканирование определенного диапозона,но на это время становится полностью не доступной ( зависает ).Решил попробовать убрать зависание с помощью потоков.Оформил сканирование в отдельный поток,выставил приоритет ну и т.д,а тормоза как были так и остались.
Вот код процедуры запуска сканирования и код модуля потока сканирования:

procedure TMainForm.ScanButtonClick(Sender: TObject);
begin

 ScanMemo.Lines.Clear; // Чистим ScanMemo

 // Проверяем на заполнение полей
 if ( ScanIpEdit.Text = '' ) or ( ScanStartPortEdit.Text = '' ) or ( ScanEndPortEdit.Text = '') then
 begin
 ShowMessage('Не все поля заполнены');
 Exit;
 end;

 Scan:=TScanThread.Create(true); // Создаем поток
 Scan.Resume; // Запускаем поток
 Scan.Priority:=tpLowest; // Устанавливаем приоритет

end;

procedure TScanThread.Execute;
begin

 Synchronize(Scan); // Синхронизируем с VCL

 if terminated then  // Если поток завершен, то выход
 exit;

end;

procedure TScanThread.Scan;
var
 i:integer; // Счетчик для цикла
begin

 MainForm.TcpClient.RemoteHost:=MainForm.ScanIpEdit.Text; // Устанавливаем хост

 // Цикл по портам
 for i:=StrToInt(MainForm.ScanStartPortEdit.Text) to StrToInt(MainForm.ScanEndPortEdit.Text) do
 begin

 MainForm.TcpClient.RemotePort:=IntToStr(i); // Устанавливаем порт
 MainForm.TcpClient.Open; // Пробуем открыть

 if MainForm.TcpClient.Connected then // Если открылся...
 begin
 MainForm.ScanMemo.Lines.Add('Порт '+IntToStr(i)+' -> открыт'); // Выводим сообщение о том,что порт открыт
 MainForm.TcpClient.Close; // Закрываем порт
 end
 else
 MainForm.TcpClient.Close; // Закрываем порт

 end;
 Exit; // Выходим из процедуры

end;

end.

За сканирование портов отвечает процедура Scan,которая объявлена в разделе Private модуля потока.

Помогите решить проблему с тормозами пожалуйста.

[Stilet]

Урррр... Не люблю VCLный поток...
А почему бы тебе не попробовать создавать поток через Win API?
И кстати попробуй в цикле сканирования поставить sleep(100), мож на проц не так давить будет...

[Квэнди]

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

[InseR]

Сообщение от Квэнди

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

Извините,но я не очень понял ход ваших мыслей.Как это - " поток выполняется в основном VCL-потоке" и как от этого избавиться?

[Квэнди]

правильно спроектировать многопоточность.
Вот вы используете Synchronize(Scan); а что при этом происходит ?
у вас же вся реализация потока заключается в методе scan.
метод Synchronize как вы сами написали в комментарии синхронизирует поток с основным VCL потоком, ну а раз вы это написали в коментарии, то должны понимать что пишете.

[InseR]

Сообщение от Квэнди

правильно спроектировать многопоточность.
Вот вы используете Synchronize(Scan); а что при этом происходит ?
у вас же вся реализация потока заключается в методе scan.
метод Synchronize как вы сами написали в комментарии синхронизирует поток с основным VCL потоком, ну а раз вы это написали в коментарии, то должны понимать что пишете.

А как же мне тогда выделить сканирование в отдельный поток?

[BOBAH13]

Все сканирование реализовать в .Execute; Ну функцию scan

[InseR]

Сообщение от BOBAH13

Все сканирование реализовать в .Execute; Ну функцию scan

А как же в этом случаи применить функцию синхронизации?Какой параметр ей передовать?

[Квэнди]

Сообщение от BOBAH13

Все сканирование реализовать в .Execute; Ну функцию scan

посмотрите на реализацию функции scan и поймете что это глупость

[Квэнди]

Сообщение от InseR

А как же в этом случаи применить функцию синхронизации?Какой параметр ей передовать?

Вы из принципа не читаете что вам осветуют ? перед тем как браться за реализацию многопоточности необходимо получить минимум матчасти по основам этого направления программирования. А статей по потокам великое множество. В конкретном случае неправильно все, поэтому подсказывать что-то конкретное безсмысленно.