kami, спасибо (+)! Хороший шаблон! Если возникнут какие-нибудь вопросы, то напишу.
Нашел еще вот здесь несколько неплохих статей. Может ком-нибудь будет полезным.

Это сообщение отредактировал(а) former - 13.9.2009, 17:10

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


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

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

О! Это уже интересно.

Ну, я бы не был так категоричен 


Да ничего интересного. Главное при добавлении не дать доступа непосредственно к Server и Client сокетам (и их составляющим по возможности, особенно - касающихся приема и передачи). Пару свойств для идентификации соединений на server-side (к примеру, IP[ConnectionIndex:integer]:string)
В общем - дело 20 минут.

Это сообщение отредактировал(а) kami - 13.9.2009, 23:15

kami, откомпилированный вариант работает как часы.
Возможно, что это связано с самим компилятором. Я компилирую в D2009. При компиляции предупреждения и сообщения об ошибках не появляются.
Вот мой вариант компиляции.

Это сообщение отредактировал(а) former - 14.9.2009, 22:37

Присоединённый файл ( Кол-во скачиваний: 5 )
 Project1.exe 542,00 Kb

Надо было сразу говорить. У меня D7.
Вроде, единственное, что нужно сделать - заменить везде String на AnsiString. Завтра гляну.

тогда уж на WideString...

Это не помогло. 
Замана PChar на PAnsiChar позволила передать данные, но


Это сообщение отредактировал(а) former - 14.9.2009, 23:59

Вот честно - не сталкивался с D2009, посему - могу только предполагать, но думаю, что не везде.
В методах, взаимодействующих с пользователем - да, желательно бы на WideString. Но я так понимаю, что при  этом нужно учитывать, что Length(myWideString)=2*Length(myAnsiString) при копировании из байтовых буферов, к примеру - TStream.Read?

И кстати, какой условной директивой определяется, что это D2009 ?

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

Это сообщение отредактировал(а) kami - 15.9.2009, 07:38

Если этот вопрос адресован мне. Лицензией.  

Так я об этом и говорил.

Не, я немного не про то. 
Я имел ввиду директивы условной компиляции типа

Чуствую, надо будет поставить на виртуалку 2009, потому что иначе много вопросов возникает...

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

это проверка версии компилятора. А тебе наверное нужно RTLVersion, или вообще SizeOf(Char)


длина же в символах а не байтах. Так что тут умножение на 2 ни к чему

Я имел ввиду

Потому что стандартный код для D7 (опуская проверки длины строки и размера потока)

с учетом


будет выглядеть как-то так:

???

kami, все, нашел причину.  
В модулях компонента поменял String - AnsiString и Char - AnsiChar, а в главном нет. Вот в этом и была загвоздка. Моя вина.  

Тоже переделал, протестировал на D2009.
Замена на Ansi коснулась только буферов в private секциях.
Для упрощения использования в примере (при приеме данных) добавил функцию StreamToString

Присоединённый файл ( Кол-во скачиваний: 10 )
 SimpleTCPTransfer.zip 6,31 Kb