TServerSocket, TClientSocket. Создание сокета для передачи файлов.

[Denutrror]

Сразу к делу:
Есть Сервер (TServerSocket) и несколько подключённых к нему клиентов (TClientSockets). Есть 2 массива один у клиента, а другой у сервера.(SSock: array[1..5] of TServerSocket у сервера, СSock: array[1..5] of TServerSocket у клиента).

Также есть массив SPort: array[1..10] of integer (Здесь прописаны порты. С 20401 по 20410 ).

var
I,b: integer;
begin
b:= 20400;
for i:= 20401 to 20410 do
begin
Sport[i-b]:= i;
b:= b +1;
end;

Вот в чём состоит задача:
1. Сервер посылает команду(Запрос файла. ('*$')).
2. Клиент получает команду и проверяет какой из портов (SPort) в данный момент "свободен". Найдя "свободный" порт он отсылает команду с номером выбранного порта Серверу.
3. Сервер, получив команду с номером порта, проверяет может ли он использовать этот порт, если порт "свободен", Сервер создаёт сокет из массива SSock, задаёт ему нужный порт и запускает его, после чего отсылает команду о готовности Клиенту.
4. Клиент получив эту команду создаёт сокет из массива CSock, задаёт ему нужный порт и подключается к Серверу, после чего начинается передача файла.

Массив сокетов нужен для одновременной передачи нескольких файлов.

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

Помогите с реализацией. Заранее благодарен!

[veniside]

зачем изобретать кривое колесо, возьмите TIdFTP

[Denutrror]

зачем изобретать кривое колесо, возьмите TIdFTP

Я никогда не работал с TIdFTP. Особо не знаю что это такое. Я начал с компонентов TServerSocket и TClientSocket, потому что они кажутся мне наиболее простыми. И к тому же я уже написал "львиную долю" программы. Но если это неоправданный труд, то дайте какую-нибудь информацию по этому компоненту, я попробую начать заново.

[veniside]

нет, ну если задача в том, чтобы научиться программировать сокеты, то конечно лучше продолжать то, что уже есть (хотя я бы советовал отказаться от TServerSocket и TClientSocket и работать с сокетами напрямую, это гораздо проще и понятней).

А если задача в том, чтобы закончить проект в короткие сроки, то жмите F1 на TIdFTP, там всё подробно написано.

Клиент получает команду и проверяет какой из портов (SPort) в данный момент "свободен". Найдя "свободный" порт он отсылает команду с номером выбранного порта Серверу.

какой смысл клиенту решать за сервер, какой порт ему использовать. Сервер биндит сокет на первый свободный порт, и передаёт номер порта клиенту, вот и всё.

[Denutrror]

veniside, благодарю вас за совет. После того, как разберусь с поставленной задачей, во всех последующих проектах буду использовать TIdFTP.

[veniside]

> во всех последующих проектах буду использовать TIdFTP

нет, ну это будет тоже перебор )

Есть такой протокол, называется FTP, его придумали незадолго после смерти последненго динозавра. Он придуман именно для передачи файлов между сервером и клиентами. А потом придумали дельфи, а под неё сделали набор компонент для работы с популярными протоколами, называется indy. В него и входит компонент TIdFTP, который поднимает протокол FTP, который, имхо, хорошо подходит под вашу задачу.

Но это не значит, что очередную мморпг, голосовой чат или видеоконференцию тоже надо реализовывать на основе TIdFTP )