Чат для 2 ПК

[Air]

то чего нет.
TsToolBar
TsPanel
TsStatusBar
и т.д.
В общем всё что связано с "Ts"
А про сокеты я знаю давным-давно...

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

toolbutton1.Down

возвращает значени true \ false, и это значение присваивается свойству visible панели с настройкой портов и т.д

Да но там стоит:
ServerSocket1.Active:=false;
Clientsocket1.Active:=false;
... Может из-за этого...

[aesoem]

ServerSocket1.Active:=false;
Clientsocket1.Active:=false;

этот код выполняется при нажатии на кнопку "НАСТРОЙКА" вить чтоб изменить порт или хост надо сначало деактивировать то с чем работаеш, а по кнопке применить которая открывается после нажатия на "НАСТРОЙКА" я применяю новые параметры и опять активирую клиент и сервер
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\
Ещё вопрос: (делал почти как тут http://pblog.ru/?p=91)

procedure TForm1.SendBtnClick(Sender: TObject);
begin
// проверка, в каком режиме находится программа
If ServerSocket.Active=True then
// отправляем сообщение с сервера (он под номером 0, поскольку один)
ServerSocket.Socket.Connections[0].SendText('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text)
else
// отправляем сообщение с клиента
ClientSocket.Socket.SendText('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
// отобразим сообщение в ChatMemo
ChatMemo.Lines.Add('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
end;

что там за прикол с отправки клиенту с КЛИЕНТА!
Я делал вот так:

serversocket1.Socket.Connections[0].SendText(sedit4.Text+': '+scombobox1.Text);

[Air]

что там за прикол с отправки клиенту с КЛИЕНТА!

Я такого не нашол...
Я как понял, тот код представляет программу "клиент-сервер" в одном ехе, то биш создать "сервер" может любой из 2-х компютеров.

Вот простой пример, почему не разьединяется?
Я думаю потому что мало наворотов, проверьте все дополнительные функции, - это просто, ставите красные точки там, где присутствует "Server...:=false" или "Client...:=false", можете отследить весь код.

[aesoem]

странно а что у сервера в свойстве чтения от клиента тож прописывать надо?

[aesoem]

моя прога тоже может быть и клиент и сервер, с сервера я отправляю текст а клиент на 2 компе его читает - точно также и обратно клиент отправляет мнес сервера а мой клиент его читает

[Air]

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

моя прога тоже может быть и клиент и сервер, с сервера я отправляю текст а клиент на 2 компе его читает - точно также и обратно клиент отправляет мнес сервера а мой клиент его читает

Прошу прошения, но я чего-то не догоняю.

Если клиент[1] на 1-ом компе установил связь с сервером[1] на 2-ом компе, то не надо подключать клиент[2] с сервером[2], достаточно одного подключения. Если честно, я не заметил в Ванем коде процедур принятия данных от клиента (ServerSocket1ClientRead), есть только у клиента.

Пересмотрите код и сделайте передачу данных по моему примеру, а как заработает дополните код всякими примочками.

P.S.

клиент отправляет мнес сервера а мой клиент его читает

Клиент клиенту не может отправить данные, потому что они не соединены между собой.

[aesoem]

Теперь я вообще запутался!
на клиенте сервер вообще не нужен?

[Air]

Как бы это всё обьяснить-то, чтоб всё понятно стало.

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

В том примере (http://pblog.ru/?p=91) основана не зависимость двух компьютеров, т.е. не важно у кого программа-сервер, т.к. она и на 1-ом и на 2-м компьютере есть. Кто первый начал коннектиться к сети (или куда там нужно), тот и стал сервером, а второй - клиентом. (и на оборот)
Такая схема нужна для упрощения в пользовании приложения.
1 - Не требуется гадать "а гдеже сервер, а где клиент".
2 - Не требуется ожидать активного сервера, когда сам можешь его создать.
Мой Вам совет, скопируйте коды с того примера, проверьте на исправность и сравните со своим, после определите почему и где у Вас был недостаток.
Сравнение поможет Вам недопустить ошибки в следуюший раз.
Если к примеру я или кто-то Вам напишет готовый код или даже скомпилирует, то Вы так и не научитесь отлаживать программы.
Ведь хороший программист не тот кто знает, где найти программу, а тот кто знает как её правильно написать.

[aesoem]

все написал так:
1 программа - сервер
2 программа - клиент

Как сделать так чтобы не происходила ошибка если клиент запускается первым

[Dj_smart]

А вас не смущает режим клиент-клиент? Ведь этого достаточно для сетевой переписки. Для этого нам поможет I_net.