Порт сканер помогите плз...

← →
DriveT (2002-03-21 22:06) [0]

Вот кусок кода (на каждое соединение вылетает ошибка типа "Ansynchronous socket error 10049"
procedure TForm1.Button1Click(Sender: TObject);
var
i,err:integer;
a:string;
begin
if checkbox1.Checked=true then
begin
cln.Port:=1122;
cln.Host:= edit9.Text;
cln.Open;
cln.close;
end;
if checkbox1.Checked=false then
begin
for i:=strtoint(beg.Text) to (strtoint(ed.text)) do
begin
try
cln.Host:=(edit1.Text+edit2.Text+edit3.Text+inttostr(i));
cln.Port:=1122;
cln.Open;
except
err:=err+1;
end;
end;
end;
помогите, что я не так делаю

← →
новенький в Делфи (2002-03-21 22:52) [1]

Что-то мне подсказывает, что ты пользуешься компонентом ClientSocket, наверно то что я тоже в начале его ставил, и у меня та же ошибка вылетала. Возьми компонент TcpClient.

← →
Malder (2002-03-23 14:33) [2]

За такой код нужно руки отрывать...

а ошибка вылетает, потому что соединение установить не удалось. Если хочешь, чтоб это окно не выползало в обработчике события у ClientSocket onError напиши Error Code:=0

← →
interier (2002-03-23 17:47) [3]

Вообще-то ошибка 10049 говорит, что запрашиваемый адрес в данном контексте не допустим.
Cannot assign requested address
The requested address is not valid in its context.
Тут неплохо стопы расставить и ватчем посмотреть, что там у нас в адрес записалось.

← →
Anatoly Podgoretsky (2002-03-24 11:34) [4]

У тебя в edit1.Text неверные значения

Порт сканер помогите плз... Найти похожие ветки