TServerSocket прием большого буфера от клиента. Как лучше реализовать?

@uhx · Регистрация: 11.07.2013

Author24 — интернет-сервис помощи студентам

Не знаю, как в названии темы описать свой вопрос.
Клиент сделан на обычных сокетах (winsock2.h), тогда как сервер сделан в RAD Studio с соответствующими компонентами, которые несколько отличаются от шиндосувской библиотеки.
А теперь вопрос: как на многопользовательском сервере организовать нормальную передачу данных (файлов и тд)? Чтобы остальные сокеты, например, в событии OnRead не перекрывались, как здесь. Там весь процесс передачи сделан на булевой переменной, которая перенаправляет принимаемые данные в TMemoryStream, а это не годится для моего сервера. Ведь во время передачи данных другой клиент может присоединиться к серверу, и его первичная информация (некоторые данные о компе) пойдут в файл.
В общем, у меня уже немножко крыша едет. Хочу организовать это хорошо, чтоб без всяких сбоев и поэтому прошу помощи здесь.
Была идея сокет вынести в отдельный поток, где его буду обрабатывать. Но как без события OnRead принимать данные? Функция ReceiveText() вернет текст сразу (пустую строку

) а я ее, как дурак, буду пытаться парсить на размер файла и тд.

Хотелось написать покороче, а получилось как всегда. Не пинайте, уж очень много мыслей.

Добавлено через 1 минуту
И да, перешлет ли большие данные обычная функция send? Т.е. она сработает так же, как и SendBuf в XE* компонентах? Просто вызов - и ждешь пока клиент все сплавит серверу?

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

Добавлено через 3 часа 17 минут
Я не понимаю.

C++

struct Structure{
    SOCKET socket;
    TMemoryStream *MS;
};
 
DWORD WINAPI ReceiveData(LPVOID St){
    AnsiString Text;
    Structure s = *(Structure*)St;
    TMemoryStream *MS = s.MS;
    int MSize = 0;
    recv(s.socket, Text.c_str(), sizeof(Text), 0);
    Form30->Console->Lines->Add("MSize: " + Text);
    MSize = StrToInt(Text);
    while(MS->Size < MSize){
        recv(s.socket, Text.c_str(), sizeof(Text), 0);
        MS->Write(Text.c_str(), Text.Length());
    }
    MS->Position = 0;
    Form30->Console->Lines->Add((String)"Data: " + (int)MS->Memory);
    delete MS;
}

Все это в потоке. Пытаюсь просто передать число (ну, для начала), но функция recv срабатывает сразу же, даже не получая ни одного байта. И пытается пустую строку впихнуть в StrToInt, что вызывает ошибку, хотя клиент не посылает ничего.
Это такие особенности билдера? Насколько мне известно, функция recv завершается при получении хотя бы одного байта от сокета и возвращает это количество байт, а тут хрень полная...

Добавлено через 4 минуты
Под структуру (Structure) я закидываю TCustomWinSocket->SocketHandle, по идее это и нужно присваивать типу SOCKET. Но все равно recv возвращает -1

А это, как я понял, возвращается только при потере связи.
Короче, беда какая-то.

	08.03.2015, 01:02