Форум на Исходниках.RU

QUOTE (Clane @ 7.11.03, 19:28)

Написал простой сканер портов с использованием сокетов. У меня возник вопрос : как реализовать многопоточность ? Заранее спасибо за ответ.

Для многоточности там есть Обьект Thread, добовляй его в программу, у него есть свойства
типа создать поток закрыть.
щас не поню точно, найду вобщем линку где я это взял скажу ! ]]> Guest___ Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120361 Fri, 07 Nov 2003 18:07:24 +0000 Сканер портов https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120361 Delphi не знаю, но на С это пиримерно так (WinAPI).

Для простейшего сканирование коннектами.

CODE

WSAEVENT evts[N];
SOCKET s[N];

for(int i=0;i<N;i++){
s[i]=socket(AF_INET,SOCK_STREAM,0);
evts[i]=WSACreateEvent();
WSAEventSelect(s[i],evts[i],FD_CONNECT); //сканирование коннектами.
);

for(int i=0;i<N;i++){
connect(s[i],addr[i],sizeof(addr[i]);
}

while(!finish){
DWORD rtval=WSAWaitForMultipleEvents(N,evts,false,TIME_OUT,flase);
if(rtval==WSA_WAIT_TIMEOUT) /* никаких коннектов нет*/...
else{
int index=rtval-WSA_WAIT_EVENT_0;
//изменение адреса этого сокета. И новый запрос.
WSAResetEvent(evts[index]);
closesocket(s[index]);
s[index]=socket(AF_INET,SOCK_STREAM,0);
WSAEventSelect(s[index],evts[index],FD_CONNECT);
connect(s[i],newaddr,sizeof(newaddr));//берем новый адрес
}

}

for(int i=0;i<N;i++)WSACloseEvent(evts[i]);

Для других способов сканирования можно использовать WSAOVERLAPPED.
З.Ы. код не тестировал. ]]> rcz Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120297 Fri, 07 Nov 2003 16:44:19 +0000 Сканер портов https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120297

QUOTE (rcz @ 7.11.03, 16:37)

IMHO лучше использовать не несколько потоков, а несколько неблокирующих сокетов.

А можно по-подробнее ? Что ты имеешь ввиду под небл. сокетом ? Асинхронный и синхронный методы работы ? ]]> Clane Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120045 Fri, 07 Nov 2003 16:37:18 +0000 Сканер портов https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=120045 rcz Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=119770 Fri, 07 Nov 2003 16:28:26 +0000 Сканер портов https://forum.sources.ru/index.php?showtopic=14084&view=findpost&p=119770 Clane Delphi: Сетевое программирование