Чат через интернет

[Coder12]

Вот код сервера:

procedure TForm1.Button1Click(Sender: TObject);
begin
serverSocket1.Active:=true; //подключится
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var a:string;
begin
a:=socket.ReceiveText; //получаем текст от клиента и выводим
label1.caption:=a;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText(Edit1.Text); //отправить текст на клиента
end;

end.

Вот код клиента:

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Active:=true;// подключаемся
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
clientSocket1.Socket.SendText(Edit1.text); // отправляем сообщение серваку
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var ab:string;
  begin
ab:=socket.ReceiveText;// получаем сообщения с сервака
showmessage(ab);
end;

end.

Какой порт и хост прописывать, если делать через интернет?
Работаю с компонентами ClientSocket, ServerSocket. Через локальную сеть работает хорошо.

[Иллидан]

Тоже интересуюсь этим вопросом. На сколько я понял, если ip адрес "белый" то, адрес полученный через www.myip.ru или через команду ipconfig(для белого адреса они совпадают). А вот что делать, в случае когда не совпадают (адрес "серый"), хотелось бы спросить у профи?

[Ghost of Night]

Какой порт и хост прописывать, если делать через интернет?

Порт любой разрешенный, чтоб и на серваке и на клиенте он был одинаковый.
А хост это ип сервера, к которому вы подключаетесь. Всё просто.

[Иллидан]

А хост это ип сервера, к которому вы подключаетесь. Всё просто.

Тогда уж наверное в поле хост DNS имя сервера(если такое имеется), а в adress ip адрес сервера.

[Whited]

меня это тоже интересует, я пытался делать чат и игру через интернет, но все время ошибка Connection Timeout.

[Пепел Феникса]

если IP не белый и порт не пробит, то легкими средствами ни как.
нужен тогда сторонний сервер(например сеть хамачи)

[Иллидан]

и порт не пробит, то легкими средствами ни как.

А что значит порт не пробит?

[Coder12]

Сообщение от Пепел Феникса

если IP не белый и порт не пробит, то легкими средствами ни как.
нужен тогда сторонний сервер(например сеть хамачи)

А еще способы есть?

[Пепел Феникса]

точнее там не И, а ИЛИ должно быть.

А что значит порт не пробит?

это значит что на роутере/маршрутизаторе порт такой то должен быть сопоставлен с вашим компьютером.
тогда роутер будет знать, что при обращении на этот порт запрос нужно перенаправить на вашу систему.

А еще способы есть?

лично я не знаю.

[Человек_Борща]

Сообщение от Coder12

А еще способы есть?

Есть, тот кто держит сервер. Может у провайдера купить постоянный-выделеный IP адрес.

Тогда программа-клиент будет видеть сервер и иметь возможность подключиться к нему.