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

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

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

Порт сканер помогите плз... [D6, Win2k]

DriveT © (2002-03-21 22:06:00)
Вот кусок кода (на каждое соединение вылетает ошибка типа "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;
помогите, что я не так делаю

Anatoly Podgoretsky (2002-03-24 11:34:00) [1]
У тебя в edit1.Text неверные значения

interier (2002-03-23 17:47:00) [2]
Вообще-то ошибка 10049 говорит, что запрашиваемый адрес в данном контексте не допустим.
Cannot assign requested address
The requested address is not valid in its context.
Тут неплохо стопы расставить и ватчем посмотреть, что там у нас в адрес записалось.

Malder (2002-03-23 14:33:00) [3]
За такой код нужно руки отрывать...

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

новенький в Делфи (2002-03-21 22:52:00) [4]
Что-то мне подсказывает, что ты пользуешься компонентом ClientSocket, наверно то что я тоже в начале его ставил, и у меня та же ошибка вылетала. Возьми компонент TcpClient.

Наверх

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