IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> сокеты
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Всем привет.... Начал осваивать сокеты
сделал, сервер и клиент, почему на компе эти две программки договариваются, а в инете нет?
СЕРВЕр
procedure TForm1.Button1Click(Sender: TObject);
begin
server.Port:=StrToINt(edit1.Text);
server.Active:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
server.Active:=false;
shape1.Brush.Color:=clred;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='на связи';
end;

procedure TForm1.ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
label1.Caption:='Accepted';
end;

procedure TForm1.ServerClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='отлючен';
end;

procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:=socket.ReceiveText;
end;

procedure TForm1.ServerListen(Sender: TObject; Socket: TCustomWinSocket);
begin
shape1.Brush.Color:=clgreen;
end;


Клиент
procedure TForm1.Button1Click(Sender: TObject);
begin
client1.Port:=strToINt(edit3.Text);
if radiobutton1.Checked then client1.Host:=edit1.Text else
if radiobutton2.Checked then client1.Address:=edit2.Text;
client1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
client1.Socket.SendText(label2.Caption);
//client1.Active:=false;
end;

procedure TForm1.Client1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ShowMessage('There were some errors. Please report to Micorosoft.');
ErrorCode := 0;
end;

procedure TForm1.Client1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label1.Caption:='non on line';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
client1.Active:=false;
end;

procedure TForm1.Client1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
label1.Caption:='on line';
end;


использовал порты 8000, 12345, 21554

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 660
Пол: Мужской
Реальное имя: Михаил

Репутация: -  11  +


IP-адреса клиента и сервера в студию!


--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.11.2020 14:22
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name