Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

WinSock [D6, Win95/98]

Demetrius2003 © (2003-08-21 13:51:00)

Я захотел научиться работать с WinSock, и для этого я решил написать элементарный сканер портов без всяких приколов, только почему-то он находит только первый открытый порт. Обясните , почему???

procedure TForm1.Button4Click(Sender: TObject);
var
l:word;
begin
Stop:=False;
Button4.Enabled:=False;
WSAStartUp(257, wsadata);
MyIP:=LabeledEdit3.Text;
sock:=socket(AF_INET,SOCK_STREAM,Protoc);
sin.sin_family := AF_INET;
For l:= strtoint(labeledEdit4.Text) to strtoint(labeledEdit5.Text) do
begin
WSAStartUp(257, wsadata);
label1.Caption:=inttostr(l);
htons(l);
sin.sin_port := htons(l);
iaddr:=inet_addr(PChar(MyIP));
sin.sin_addr.S_addr:=iaddr;
// Соединение
If connect(sock,sin,sizeof(sin))<>SOCKET_ERROR then
begin
listbox1.Items.Add("port "+inttostr(l)+" opened");

end;

Application.ProcessMessages;
If stop then begin Button4.Enabled:=True;exit; end;
end;
Button4.Enabled:=True;
end;

Rouse_ (2003-08-22 01:02:00) [1]

If connect(sock,sin,sizeof(sin))<>SOCKET_ERROR then

Это вообще обычно делается в потоке, так как в противном случае будет просто тормозить приложение.

Желаю успехов

Digitman (2003-08-21 16:21:00) [2]

> Demetrius2003

можно

Demetrius2003 (2003-08-21 16:10:00) [3]

Мой сканер портов получился страшно медленным(1 порт в секунду) можно ли как-то убыстрить процесс (например создать несколько потоков)

Demetrius2003 (2003-08-21 16:02:00) [4]

>Digitman
Спасибо, я уже и сам понял

Digitman (2003-08-21 15:40:00) [5]

если коннект к порту был успешен, следует разорвать его вызовом closesocket(), а, значит, для след.сканируемого порта придется вновь вызывать socket(). Только так... не иначе ...

учти это и переделай цикл должным образом, внеся в него socket() и closesocket() , которые вызывай при вышеуказанных условиях

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »