Socket Connect в домашних условиях :)

← →
Змей © (2005-03-28 02:19) [0]

ДОбрый вечер Мастера!
вот посмотрел свой IP
у клиента указываю адрес: мой IP
порт допустим 1001
и в серваке 1001
две формы серверная и клиентская
запускаю на своем компе обе компоненты все конектится
попробовали с товарищем:
скинул ему клиента! запуск! выдает ошибку(сервак не находит)
Asynchronous soccet error 10061
че нельзя законектиться никак?

вот в клиенте делаю:
procedure TForm1.FormCreate(Sender: TObject);
begin
if ClientSocket1.Active then
ClientSocket1.Close;
clientsocket1.Open;
Flash := False;
edit1.Text:=ClientSocket1.Socket.LocalAddress;
edit2.Text:=ClientSocket1.Socket.LocalHost;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText("con"+edit1.Text+":"+edit2.Text);
end;
памахите плз.
СПАСИБО!

← →
TankMan © (2005-03-28 06:33) [1]

Все может быть из за 1001 порта - это служебный порт (вроде бы...)

← →
Змей © (2005-03-28 14:05) [2]

в локалке все пашет
а какой тгда можно ииспользовать?

← →
Толян © (2005-03-29 11:21) [3]

Попробуй порты с 2000 это не стандартные порты

1001 - это не служебный порт.
Змей, если ты о TClientSocket и TServerSocket, то ошибка которая у тебя возникла появляется в сетях, где встречаются динамическое и статическое назначение IP. Поэтому попробуй вариант, чтоб в локальной сетке Клиент и Сервер находились либо оба в статике либо оба в динамике.

Socket Connect в домашних условиях :) Найти похожие ветки