Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обратная связь TcpServer - TcpClient

Страницы: 1 2 >
Dddddddd © (2007-07-13 14:04:00)
Подскажите плз как отправить с сервера (TcpServer) message последнему клиенту (TcpClient), в каком обработчике читать message на клиенте? В другую сторону все работае нормально

Dddddddd (2007-07-13 17:26:00) [1]
>Сергей М. следил бы за базаром, барбос

Сергей М. (2007-07-13 17:20:00) [2]

> Dddddddd (13.07.07 17:17) [37]

Тебе, клоуну, был всего лишь намек на необходимость внимательного изучения исходников этих компонентов, благо они у тебя перед носом)

Ну да флаг тебе в руки)

Dddddddd (2007-07-13 17:17:00) [3]

> Рано или поздно перестанет.
>
> Почему ?
>
> тебя оно не волнует, судя по эйфории)

не какой эйфории нет
а по поводу Application.ProcessMessages, перед ней был другой оператор SendText, просто забыл удалить, кстати это советовали на форуме такие же "великие мастера", как и ты)))

Сергей М. (2007-07-13 17:09:00) [4]

> У меня уж все давно работает

Рано или поздно перестанет.

Почему ?

тебя оно не волнует, судя по эйфории)

Dddddddd (2007-07-13 17:07:00) [5]
2 Сергей М:
У меня уж все давно работает

Сергей М. (2007-07-13 17:03:00) [6]
Ничерта ты не понял)
Тебе ни тот ни этот комплект компонентов не поможет.
Сожалею.

Сергей М. (2007-07-13 17:01:00) [7]

> меня еще удивило

А меня другое удивило - от балды вставленная в код клиента строчка

Application.ProcessMessages

Сергей М. (2007-07-13 17:00:00) [8]

> просто он у меня выполнялся по батону

Ну дык а я тебе про Acnive зря что ль трындел, чудо ты в перьях ?)

Dddddddd (2007-07-13 17:00:00) [9]
2 Сергей М.:
Все равно спасибо

Dddddddd (2007-07-13 16:57:00) [10]

> Ну дык а что ж ты трындел про "SendText отрабатывает!!!!
> !!!!! " ?)
> Да еще и с кучей восклицаний ?)

Оператор SendText выполнялся, просто он у меня выполнялся по батону а надо было его в OnConnect отрабатывать, меня еще удивило то что при трассировке в старом варианте все доходило, а без нее нет.

Сергей М. (2007-07-13 16:50:00) [11]

> пасибки заработало

Ну дык а что ж ты трындел про "SendText отрабатывает!!!!!!!!! " ?)
Да еще и с кучей восклицаний ?)

Нагло врал ?)

Dddddddd (2007-07-13 16:34:00) [12]

> пиши SendText в событии OnConnect... вот, не удержался..
> .

пасибки заработало

Сергей М. (2007-07-13 16:25:00) [13]

> ClientSocket1.Active true

Откуда ты знаешь ?

> SendText отрабатывает

Если отрабатывает и при этом не происходит исключения и не возникает события OnError, то событие OnClientRead на сервере рано или поздно обязано возникнуть, если конечно же файрволы на пути между сервером и клиентом этому не препятствуют.

И вообще - где обработка OnConnect, OnWrite ?

Отправлять что-то там партнеру по соединению следует НЕ ранее возникновения ближайшего по времени события OnWrite. Именно это событие фиксирует факт готовности соединения к передаче данных.

lamerskii_vopros (2007-07-13 16:23:00) [14]

> if ClientSocket1.Active then ClientSocket1.Socket.SendText(edtMessage.
> Text);

пиши SendText в событии OnConnect... вот, не удержался...

Dddddddd (2007-07-13 16:18:00) [15]

> Ты вник в то что я тебе в [18] сказал ?

см. выше, условие убрал!!!!!!!!!!!!!
SendText отрабатывает!!!!!!!!!
ClientSocket1.Active true

Сергей М. (2007-07-13 16:14:00) [16]

> if ClientSocket1.Active then я убрал

Нахрена ?)

Так и будешь туда-сюда метаться - "убрал", "добавил" ?

Думать-то собираешься ?)

Как ты собираешься отправить что-то там своему серверу, если ClientSocket1.Active = False ?

"Нет строчки - нет и проблемы" - это ж страусиный метод)

Сергей М. (2007-07-13 16:10:00) [17]

> не заходит он вообще сюда

Я ему про фому, а он мне все про ерему гнет)

Ты вник в то что я тебе в [18] сказал ?

Dddddddd (2007-07-13 16:09:00) [18]
if ClientSocket1.Active then я убрал

Dddddddd (2007-07-13 16:08:00) [19]
не заходит он вообще сюда при отправке с другого компа
IP шник ввожу правильно, да и порт одинаковый, Server активен

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
s: String;
begin
s := Socket.ReceiveText;
Memo1.Lines.Add(Socket.RemoteAddress+': '+Socket.RemoteHost+': '+s);
SendMesLast('Ïàêåò äàííûõ ïðèíÿò');
end;

Сергей М. (2007-07-13 15:35:00) [20]
Ну вот и есть повод потренироваться)

Инфу для размышления ты в [18] получил)

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »