Сокеты. Отправка текста большого объема.

[Rapala]

Добрый день, подскажите, нужно отправить от клиента серверу большой текст из memo1. После получения текста сервером он выводится в memo2. Доходит не весь текст, а только малая часть. Вот код:

clntscktcs.Socket.SendText('#O'+form2.Memo1.text);


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
       s:string;
     begin
s:= Socket.ReceiveText;
if Copy(s,1,2)='#O' then  begin Delete(s,1,2); form2.memo2.Text:=s; end;

[mss]

Я даже скажу тебе с точностью до байта размер части - 8192.

Справка для Пушкина писана, да ?
Пушкин должен читать про то что SendText - это функция ?
Пушкину адресован фрагмент справки к событию OnWrite ?

[Stilet]

Ответ (примерный) можно найти на http://delphiworld.narod.ru/_all_articles_.html
в разделе Сокеты - [27]
В частности в темах:
Приём и обработка пакетов переданных методом SendText - с учётом склеенных и полученных неполностью пакетов
# Процедуры передачи и приема блоков данных, с учетом фрагментации и склейки пакетов, построено на TServerSocket и TClientSocket
# Процедуры передачи и приема длинных блоков данных, с учетом фрагментации и возможной слепки пакетов, на компоненты TServerSocket и TClientSocket