Я бы записывал и считывал в TStream...
Что-то типа

ну а на клиенте - наоборот, только надо не забыть после считывания длины строки сделать ей SetLength

Что то не пошло...

Ошибка external exception c000001E
Сейчас изучаю TStream, раньше не приходилось с этим работать.

Это сообщение отредактировал(а) Vlarim - 24.3.2014, 12:09

1. объект Data не инициализирован
2. содержимое строки начинается с индекса [1]. Код для записи я привел.

Добавлено @ 12:24
ПыСы. Очень полезно читать, что Delphi пишет в Hints и Warnings при компиляции. В идеале - их вообще не должно быть.

Это сообщение отредактировал(а) kami - 24.3.2014, 12:24

  Если что вдруг, у нас есть свой маленький ликбез на тему стримов http://forum.vingrad.ru/articles/topic-211911.html

Спасибо за ссылку, правда я уже на раз 7 прочитал и из гугла страниц 40.

TStream - абстрактный, необходимо создавать наследника.
Берем TMemoryStream, т.е. добавляем строку Data:= TMemoryStream.Create;?


В итоге получилось:

Правда еще на практике не проверял, дома нет Delphi (т.е. исходников)

Это сообщение отредактировал(а) Vlarim - 24.3.2014, 16:02

Почитал справку про короткие строки (давненько не приходилось с ними работать) - код надо переписать...
Во-первых, короткие строки содержат по байту на символ, посему Length*SizeOf(Char) - не актуально и приведет к порче памяти, надо просто Length.
Во-вторых, короткие строки сразу получают в свое распоряжение столько памяти, сколько могут занять + 1 байт на длину, в нашем случае получится 11 байт. То есть - Length тоже не надо  Правда и записывать их нужно с нулевого индекса, содержащего длину.

Итого получаем на передачу:

...
ну и на прием, соответственно - 


Вот как-то так...

Добавлено через 1 минуту и 23 секунды

имелись ввиду юникодные версии Delphi

Добавлено через 2 минуты и 56 секунд
ЗЫ. И от такой красоты хотят избавиться, оставив в Delphi  только один строковый тип...

Спасибо за ответы.
Пересобрал сервер и клиент.
Сейчас поставил на тест.

Осталось прикрутить что то вроде onConnect и Client IP.

Это сообщение отредактировал(а) Vlarim - 25.3.2014, 09:37

  Мне казалось, что тут как раз смысл стримов в том, чтобы снять необходимость в использовании строк фиксированной длинны. Т.е. если мы записываем поля по одному, а не всю запись целиком, то строка уже может быть указателем, ведь уже нет необходимости чтобы в памяти поля шли одно за другим непрерывно. 

В общем случае - абсолютно согласен. Но если поля достаточно мелкие по размеру и ограничения заданы высшими силами (к примеру - поля VARCHAR(10) в БД), то получается очень компактная и, имхо, красивая&понятная запись.

Добавлено через 3 минуты и 18 секунд

Хотя, да - если не знать структуру TData, да еще не помнить особенности ShortString (как, например, в моем случае) - то подобный код сразу вызывает опасения 

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

Но могу добавить:
- В интернете описан только один метод работы (один сервер)<->(много клиентов).
Может конечно плохо искал, но искал долго и упорно. Данный метод я реализовал в своей программе и пол года мучался.
- Метод предоставленный kami, отлично справляется со своей задачей.
(не знаю как насчет недостатков, но побочный эффект есть - если перезапустить сервер, то соединения не рвуться)
- Немного разобрался с потоками и TStream.

Всем ОГРОМНОЕ СПАСИБО!!! 

Вообще-то я давал код исключительно для того, чтобы кусок из него можно было адаптировать под stBlocking-режим, дабы не происходило дедлоков.   


А какие хотелось бы? Клиент физически не в состоянии открыть несколько соединений, как бы этого ни хотелось. Можно создать много клиентов, положить их в один контейнер и обращаться с ними, как с группой. Но от этого "много клиентов, каждый из которых установил одно соединение" они ни во что другое не превратятся 

Добавлено через 3 минуты и 11 секунд

Есть утечки памяти. Сейчас не вспомню, где, но есть. Надо в приложение FastMM включить в режиме FullDebugMode и они все вылезут. Одно только помню - если соединения нет, а клиент постоянно что-то пытается отправить, то будет Out of memory, т.к. переполнится внутренний буфер.