Разработка сетевых приложений

[Daemonghost]

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

... Далее можно вытягивать из массива данные. Примените точку останова. В окне листинга, после компиляции, слева проставляются синие кружки - это обработанные строки. Если нажать на такой кружок, он станет красным, и вся строчка подсветится красным. Нужно запустить приложение, и когда программа дойдет до точки останова, она войдет в паузу. Нажимая F8 можно в ручном режиме переходить по строчкам. На какой строке возникнет ошибка, там и проблемы в коде. Нужно поставить точку останова вначале процедуры OnRead. Запустить соединение и после отправки пакета с сервера смотреть построчно что происходит, ...можно наводить курсор на код и смотреть текущие значения переменных.

спасибо за дельный совет на счет точек останова. я разобрался с причиной зависания ПК до применения точек. на счет заполнения массива на сервере, после приемки, я правильно написал вытягивание из массива данные?

[Beermonza]

Да, присвоение числовой переменной ячейки массива выполнено корректно. Необязательно если массив Byte типа, то и переменная, в которую записываются данные с ячеек должна быть так же Byte типа, ...нет, переменная может быть Integer, Word, Real, Double и тд., а вот обратное заполнение байтового массива с таких переменных будет некорректно, если они выходят за диапазон 0-255 или содержат плавающие запятые.

[Daemonghost]

Огромная благодарность от меня! Буду пробовать... Если что, обращусь.

[Asker13]

Парочка вопросов: если я клиент, и я подключаюсь к серверу, то как получить номер соедиения, под которым я числюсь на сервере? То есть сервер обращается ко мне ServerSocket.Socket.Connections[мой_ID], а как клиенту при подключении получить собственный ID?;как определить, что клиент отключился от сервера? Скажем критическое завершение работы и событие OnClientDisconnect не срабатывает, я не получаю сообщения (в принципе у меня в программе при отсоединении клиента нормально и так не пишет, что клиент отсоединился).
Структура самого приложения проста: по таймеру сервер получает пакет данных, отправляет данные от одного клиента другим клиентам. Клиент в свою очередь принимает данные тоже по таймеру, отправляет данные по нажатию на кнопку на форме. Думал отправлять клиенту его ID (В программе есть массив клиентов, и чтобы клиент мог редактировать и отправлять свои данные ему нужно знать, под каким элементом в массиве он числется), когда сервер получит сообщение о подключении нового клиента, но не получилось это реализовать.

[Beermonza]

Читайте статью "Создание многопользовательского чата": http://pblog.ru/?p=100
Читайте все комментарии к статье, затем переходите в тему обсуждения: http://programmersforum.ru/showthread.php?t=12574 ...читайте от начала и до конца, там много всего, все проблемы и борьба с ними. Данный материал облегчит понимание и написание игрового сервера и клиента.

[Asker13]

Beermonza, спасибо.

[Asker13]

Хм. Тестировали с другом сетевое приложение, никак не получается передать друг другу данные. Вроде он подключается, но вылезает сообщение List Index Out Of Bounds(1);. Плюс я не вижу, как он перемещается, и он не видит, как я перемещаюсь, хотя глядя в код думаешь, что должно всё работать, всё вроде правильно прописано. Посмотрите пожалуйста исходник, может кто обнаружит недочёт. Спасибо.

[Beermonza]

List Index Out Of Bounds(1) - отсутствие в списке записи под номером 1, ...скорее всего обращение должно быть по индексу 0.

[Asker13]

Я знаю, что так переводится, но в коде не нашёл места, где выходит за пределы обращение к элементу, к сожалению...

[MonoLife]

Я знаю, что так переводится, но в коде не нашёл места, где выходит за пределы обращение к элементу, к сожалению...

Я в подробности не вдавался, не компилировал, но мест у тебя в листинге, где могла бы быть ошибка не мало.
типа такого, например

i := 1;
 if PlayerCount <> MAX_PLAYERS then begin
 Inc(PlayerCount);
  while ClientData[i].Active do Inc(i)...

А что говорит отладка? Брейкопоинты ставил?
замечанице:

if iniFile.ReadInteger('MAIN', 'Server', 0) = 1 then IsServer := true
  else IsServer := false;

Почему нельзя было сделать булевую переменную?
тогда можно было б написать

IsServer := iniFile.ReadBool('MAIN', 'Server', False);