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

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

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

"Asynchronous socket error 10060" [D7]

R_R © (2011-07-12 07:21:00)
От чего может возникнуть это ошибка?

Anatoly Podgoretsky (2011-07-12 09:55:00) [1]

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

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

sniknik (2011-07-12 09:26:00) [2]
> То есть получается для связи, удаленный пользователь должен знать ещё и имя компа.
должен знать адрес, а уж именем или ip дело второе. не посылать же "на деревню дедушке".

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

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

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

А лучше localhost (127.0.0.1)

R_R (2011-07-12 08:15:00) [5]
Вот код ожидания:
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;

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

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

sniknik (2011-07-12 07:59:00) [7]
время кончилось...

Наверх

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