Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
ВнизПорт сканер помогите плз... Найти похожие ветки
← →
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 неверные значения
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c