Sending a text message with deferred reading

on the CLIENT, we describe the procedure of Send sending sending a message to Sender - the one who sends (for example, the user number), Message - the message itself

procedure Send(Sender : integer; Message : string); begin //отправка данных серверу //например строка в таком формате: //"From=" + IntToStr(Sender) + "#Mes=" + Message; end; 

on the SERVER, we describe the procedure Send send sending a message Receiver - the one who receives the message (for example, the user number), Message - the message itself

 procedure Send(Receiver : integer; Message : string); begin //отправка данных клиенту //например строка в таком формате: //"To=" + IntToStr(Receiver) + "#Mes=" + Message; end; 

on the SERVER, we describe the Accept function of receiving the Source message and its processing. it returns the message itself and in the From argument the number of the sending user

 function Accept(Source : string; var From : integer) : string; begin //получение текста сообщения и запись его в Source например из Socket. From := copy(Source, 6, pos('#', Source) - 6); delete(Source, 1, pos('#', Source) + 4); //+4 - нужно игнорировать "Mes=" и символ "#" - разделитель и всё что до него Result := Source; end; 

on CLIENT

the procedure that is performed immediately after entering the chat (or what do you have there?) UserId - user identification number:

 procedure Init(UserId : integer); begin Send(UserId, "loggedIn"); //процедура осведомляет сервер, чот пользователь он-лайн end; 

procedure for processing the received message on the server

 procedure ProcessRequest(From : integer; Message : string); begin if (Message = "loggedIn") then begin //сканирование папки с временными файлами - сообщениями для пользователя From. **n** - количество сообщений. запись сообщений в массив messages for i := 1 to n do begin Send(From, messages[i]); end; end else .... //другие случаи отправленных сообщений end; 

well, the CLIENT receives messages from the server as usual (nothing needs to be modified).

You can always always have a folder for each client. Transmitted messages are written to files in it. If the client is online, the server notifies him of a new message. Let the client read (transmitting commands to the server) files from there and remove them themselves (via the server).

Everything is simplified.