"Asynchronous socket error 10060"

← →
R_R (2011-07-12 07:21) [0]

От чего может возникнуть это ошибка?

← →
sniknik © (2011-07-12 07:59) [1]

время кончилось...

← →
R_R (2011-07-12 08:10) [2]

sniknik © (12.07.11 07:59) [1]
Я тут скачал пример на TClientSocket и TServerSocket, а он выдаёт эту ошибку...

← →
R_R (2011-07-12 08:15) [3]

Вот код ожидания:
procedure TForm1.btn1Click(Sender: TObject);
begin
ServerSocket1.Port := StrToInt(edt1.Text); //Устанавливаем порт
ServerSocket1.Active :=True; //Включаем сервер на прослушку порта
Form1.Caption := "Ожидание Подключения" //Простая фармальность
end;

Вот код подключения:
procedure TForm1.btn3Click(Sender: TObject);
begin
ClientSocket1.Port := StrToInt(edtPort.text); //устанавливаем порт
ClientSocket1.Address := edtIP.text; //IP адресс сервера если на одном компе можно просто 192.168.1.2
ClientSocket1.Active :=True; //Коннектимся
end;

На ноутбуке та же проблема, я тестирую на одном компьютере...

← →
Сергей М. © (2011-07-12 09:05) [4]

> если на одном компе можно просто 192.168.1.2

А лучше localhost (127.0.0.1)

← →
R_R (2011-07-12 09:16) [5]

Сергей М. © (12.07.11 09:05) [4]
Да спасибо...
Вот добавил строчку :
ClientSocket1.Host := Имя компа;
Всё заработало
То есть получается для связи, удаленный пользователь должен знать ещё и имя компа. А без этого как быть?

> То есть получается для связи, удаленный пользователь должен знать ещё и имя компа.
должен знать адрес, а уж именем или ip дело второе. не посылать же "на деревню дедушке".

> То есть получается для связи, удаленный пользователь должен
> знать ещё и имя компа.

Если есть виртуальные хосты, то да.

"Asynchronous socket error 10060" Найти похожие ветки