VPF::TServerSocket/TClientSocket, не проходят сообщения

DelphiTester

Дата 16.5.2007, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Цитата

DelphiTester, точно также как у тебя сделано, только немного сложнее.

Не понял.. а можно поподробнее о чём Вы хоть хотели сказать? smile

Если "точно также как у тебя сделано", то у меня получается уже всё сделано, а чего оно не работает smile

Можно пример кода?

drkot

Дата 16.5.2007, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 0
Всего: 8

Под "точно также" понимается, что работа с udp практически такаяже как и с tcp

http://www.citforum.ru/internet/tifamily/udpspec.shtml

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

DelphiTester

Дата 17.5.2007, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Но UDP использовать можно только в том случае, если не важно доходят данные или нет. А если важно? smile

Приходится опять о TCP думать и опять-таки вопрос. А как проверить не отвалился ли текущий клиент?

DelphiTester

Дата 17.5.2007, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Кто-нибудь что-либо сможет подсказать? например, как сделать проверку активности текущего клиента? (через TCP ессно)

Snowy

Дата 17.5.2007, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

У клиента же и спросить...

DelphiTester

Дата 17.5.2007, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Дык как спросить-то? smile

Я же об этом с самого начало и говорю. Можно ли указать опцию/метод, позволяющий сделать это??
Вот здесь: "ServerSocket1.Socket.Connections[I].", я так и не смог найти как именно "спросить" клиента, активно ли именно с ним соединение в данный момент или нет..

DelphiTester

Дата 17.5.2007, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Пробовал посылку модифицировать так:

Код

    for I := ServerSocket1.Socket.ActiveConnections-1 downto 0 do begin

      try
        if ServerSocket1.Socket.Connections[I].Connected then
          ServerSocket1.Socket.Connections[I].SendText( PostStr );
      except
        Memo2.Lines.Add ( IntToStr ( I ) + ' falls' );
      end;

    end;

результатов не дало. except ни в каком случае не срабатывает. (т.е. не при выключенных клиентах, ни при отключенных, всегда условие "успешности" выполняется...

Как же в этом случае бороться с этой ерундой?

AugMaster

Дата 22.5.2007, 02:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 3.8.2006

Репутация: 1
Всего: 1

выложи ПОЛНЫЙ код серверной проги, и будет тебе щастье. Потому как сейчаз хитрый случай походу, и мы тут на кофейной гуще гадаем.

drkot

Дата 22.5.2007, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 0
Всего: 8

DelphiTester, smile

Цитата(DelphiTester @ 17.5.2007, 01:34

)

А если важно?

Покупка билета еще не есть гарантия что попадеш на поезд (в театр и тд), но почемуто все покупают.

Одного желания (даже если оно очень большое) мало для достижения цели. Нужно эще иметь хотябы отдаленное представление о том что именно ты хочеш сделать, а главное КАК? Ответы на вопрос КАК обычно есть в толстых умных книжках.
Из твоих слов могу сделать вывод, что о сетевых протоколах ты практически ничего не знаеш, принципа работы не понимаеш, а работать пытаешся. Парадокс, однако smile

Это сообщение отредактировал(а) drkot - 22.5.2007, 09:42

--------------------

DelphiTester

Дата 22.5.2007, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 3.5.2007

Репутация: нет
Всего: нет

Согласен.

Проблема разрешилась, косяк был на моей стороне, это никак не относится к сокетам.

Добавлено через 2 минуты и 26 секунд
Предлагаю переключиться на другую мою проблему smile

http://forum.vingrad.ru/forum/topic-152421.html

Gwire

Дата 23.8.2007, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: нет
Всего: 4

У TServerSocket есть такие события как:
    OnClientConnect;
    OnClientDisconnect;
    OnClientError.
TCustomWinSocket имеет свойства SocketHandle: Integer.
А также есть тип TList "хранящий" элементы типа Pointer. Замечу что SizeOf(Pointer) = SizeOf(Integer)

smile

Как это тебе поможет?..

Код


  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
  private
  public
    ListClientTCP: TList; // Не забудь создать в TForm1.FormCreate!
  end;

Предположим, что клиент подключился...

Код


procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    // Сохраняем Handle клиента под видом указателя
    ListClientTCP.Add( Pointer(Socket.SocketHandle) );
end;

Проходит время, клиент отключился...

Код


procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    ListClientTCP.Remove( Pointer(Socket.SocketHandle) );
end;

А если клиента убило или разсоединило...

Код


procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    if ErrorCode = $2745 then
    begin
        ErrorCode:= 0;
        Socket.Close; // Сработает ServerSocket1ClientDisconnect
    end;
end;

Как читать из ListClientTCP учить тебя не буду (просто Integer(ListClientTCP.Items[i]) ).
Удачи.

AugMaster

Дата 26.8.2007, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 3.8.2006

Репутация: 1
Всего: 1

Цитата

Тогда глюка бы имела вид обращения к несуществующему объекту.
А если клиент ушел по английски то при использовании TCP неизбежно напоришся на тиме оут

у меня прога на серверном сокете, кол-во соединений в среднем от 200 до 900. И глюка действительно имеет вид "OutBound"-чего-то там. Но смысл ее ловить, когда можно избежать этого,просто крутя цикл в обратную сторону ?

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

Это сообщение отредактировал(а) AugMaster - 26.8.2007, 01:13

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »