Не работает чат delphi

Pascal, Delphi, Lazarus Delphi
#21

Так а IP-то почему внешний?
Чтобы с ним работало нужно как минимум настроить port forwarding на роутере, не зависимо от протокола.

что ж удавалось если

1 лайк
#22

После перенесения на флешку, и добавления фтп сервера все сбилось.

#23

вот что пишет если вводить локальный адрес
image

#24

Сервер и клиент на разных компах?
Может быть например фаервол блокирует.
Или просто не тот IP или порт.

1 лайк
#25

На одном но в последствии планируется на разные.

#26

Приведите код в порядок и приложите сюда последнюю версию.

1 лайк
#27
#28

это что именно?
пробуйте 127.0.0.1 для начала.

1 лайк
#29

image

#30

Это означает что соединение было откланено. Либо фаервол вас не пустил либо сервер небыл запущен.

Нормально если адресс поменять на 127.0.0.1 то у меня соединяется.

Это вам инди сообщает что вы уже соединились с сервером.
Сделать проверку на повторное нажатие кнопки.

if not IdTCPClient1.Connected then
  begin
  IdTCPClient1.Connect('127.0.0.1');
  end;

Или так:

if not IdTCPClient1.Connected then
  begin
  IdTCPClient1.Connect('127.0.0.1');
  end else
  begin
  IdTCPClient1.Disconnect;
  IdTCPClient1.Connect('127.0.0.1');
  end;
1 лайк
#32

5 сообщений были перенесены в новую тему: Как отослать от сервера, клиенту сообщение? (Indy TCP)