РАБОТА С КЛИЕНТ-СЕРВЕРОМ

[KWN, lnc]

1-ый проект

Server

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=1234;
ServerSocket1.Active:=true;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText = 'go' then
begin
 Timer1.Enable := true;
end;
end;

2-ой проект

Client

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:='127.0.0.1'; // здесь ip адрес
ClientSocket1.Port:=1234;
ClientSocket1.Active:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ClientSocket1.Socket.SendText('go');
end;

ощибка Asynchronous socket error 10061. я так понимаю. не найден...

в чем проблема? почему не работает??? у меня усб модем от биллайн а у пацана freedom - хотя врятли из-за этого (((( вопрос в чем проблема?

есть у кого нормальный исходник?

2. Название темы заглавными буквами - означает крик.
и так далее...
У нас тут спокойная рабочая обстановка и за такие вопли буду нещадно штрафовать.
Нарушитель моментально получит нарушение №6 - "Нарушение правил форума" и штраф 6 очков.

[strateg0793]

Бывает порт не открывается внешне,тоесть у меня допустим подключение через роутер и когда я запускаю сервер RAdmin у себя,другие не могут ко мне подключиться,попробуйте для начала с этим разобраться.Обычным сканером портов проверте открылся ли порт для подключения из все.

[KWNlnc]

strateg0793, как проверить?
а так та при втором запуске этого сервера - выходит ощибка о том что порт уже открыт и вторичный порт ЗАПРЕЩЕН!

и подробнее можно ли? заранее спасибо.

[W0LF]

Да уж, человеку делать нечего... Ты еще 5 пользователей создай... Сорри за оффтоп

[BOBAH13]

Что не понятно ? Порт 1234 уже занят, нельзя его открывать дважды. Порт поменяйте (число 1234 на другое в WORD)

[KWNlnc]

BOBAH13 т.е.
я клиент = 1234
1 сервер = 1234
2 сервер = 1234

нельзя?

просто на 2-3 компьютерах этот же сервер.

[Hacker19_90]

Нет почему!! Нельзя на одной машине запустить два сервера работающих на одном порту ну и естествено протоколе.
А на разных пожалуйста! Просто иногда порт может быть занят системой, хотя у системы номера портов забиты до номера 1000 по моему.

[KWNlnc]

я сделал ServerSocket1.Port:=553453545;
не помогло.
делал ServerSocket1.Port:=105543 та же песня - облома....
в чем проблема?
запускал на одной машине... (((

 ServerSocket1.Port:=553453545;
 ServerSocket1.Active:=true;

[Hacker19_90]

Слушай я конечно не про в делфи сетевом программировании, но порты используются от 2000 до 5000!! лично у меня они отлично пашут на 2024

[KWNlnc]

Hacker19_90? использовал.

ServerSocket1.Port:=4780;
ServerSocket1.Active:=true;

создал новый порт. у себя не запускал этот сервер. открыл только клиент.
скинул сервер пользователю он запустил.
но работать отказывается (((( почему? у него freedom.vrn.ru