Delphi2010 tcpServer/tcpClient потери сообщений при передаче

[loran]

Добрый день всем
Вопрос следующий пытаюсь передавать данные и команды в строковом формате между приложениями при многократном вызове одной и той же процедуры получаю потерю сообщений, а при попытке создания лога на стороне клиента в memo периодически выскакивает ошибка 'Out of memory'

код на стороне клиента

procedure TfmMain.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
    Mess := ClientSocket.Receiveln;
    while Mess <> '' do
      begin
        Memo1.Lines.Add(Mess);// лог полученных строк
        rMessseg.CodTask := copy(Mess,1,Pos('|',Mess)-1);
        Delete(Mess,1,Pos('|',Mess));

        case StrToInt(rMessseg.CodTask) of
        11: SprPersoneClear;
        1: SprPersoneAdd;
        12: prJurNoLookTaskClear;
        2: prAddJurNoLoockTask;
        13: prNewUser;
        3: prAddJurTaskPersone;
        end;

        Mess := ClientSocket.Receiveln;

     end;

end;

код на стороне сервера

procedure TfmMain.SendPersoneList;

begin
    try
      Mess := '';
      DMMain.ADOQSprUser.Active := true;
      DMMain.ADOQSprUser.First;
      with TcpClient1 do
        begin
          RemoteHost := rMessseg.IP;
          Active := true;
        end;
      TcpClient1.Sendln('11|*');
      TcpClient1.Active := false;
      if TcpClient1.Connect then

      while not DMMain.ADOQSprUser.Eof do
        begin
           mess := rMessseg.CodTask + '|' + DMMain.ADOQSprUserStatusWork.AsString + '|' +
                   DMMain.ADOQSprUserCodPersone.AsString + '|' + DMMain.ADOQSprUserShortName.AsString + '|' +
                   DMMain.ADOQSprUserTelefon.AsString + '|' + DMMain.ADOQSprUserPost.AsString + '|*' ;
           TcpClient1.Sendln(mess);
           Memo1.Lines.Add(mess); //лог отправленных строк
           Sleep(500);
           DMMain.ADOQSprUser.next;
        end;
     // TcpClient1.Sendln('99');
      TcpClient1.Disconnect;
    finally
      DMMain.ADOQSprUser.Active := false;
    end;
    RecClear;

end;

среда работы Windows7 Delphi® 2010 Version 14.0.3593.25826

пробовал заменить tcpServer\tcpClient заменить на idTcpServer\idTcpClient результат тот же. Тестировал приложения на одной машине.
Подскажите как можно решить проблему.

[mss]

SendLn - это функция !!!

[loran]

Сообщение от mss

SendLn - это функция !!!

это я понял. непонятно почему она работает нестабильно

[mss]

Сообщение от loran

это я понял

Да нишиша ты не понял.
Функция чем от процедуры отличается ? Возвратом результата.
Результат для кого и для чего функцией возвращается ? Для тебя чтобы ты его анализировал.
Где у тебя анализ результата ? Нет его у тебя, отсутствует напрочь он.
Ну вот и пожинай плоды)

[veniside]

не помню, TcpServer1Accept() в контексте "главного" потока вызывается? Если нет, с мемой там работать нельзя.

TcpClient1.Sendln('11|*');
TcpClient1.Active := false;

Типа "а давайте проверим, успеет/не успеет отослать"? ) Если сокет асинхронный, получите граблю в голову. Да и решение создавать новое соединение.. мягко скажем, не оправдано.

while not (не всю базу утянули) do
        begin
           mess := 'blah blah';
           TcpClient1.Sendln(mess);
           Sleep(500); // наивно.. особенно, если сокет синхронный
        end;

> Memo1.Lines.Add(mess); //лог отправленных строк

Куда отправленых, в мусорку? Правильно вам mss написал, результат Sendln() надо бы анализировать. А если сокет асинхронный, то подпорка из Sleep(500); вам не поможет.

[loran]

Сообщение от mss

Где у тебя анализ результата ? Нет его у тебя, отсутствует напрочь он.
Ну вот и пожинай плоды)

спасибо, таранный намек на мою невежественность принес положительные плоды проблема решена

[mss]

> TcpServer1Accept() в контексте "главного" потока вызывается?.

В контексте дополнительного, если автор не менял св-во BlockMode.
А он его скорее всего не менял шлепнув сервер на форму.
А по дифолту оно = thread-blocking

Граблищи во весь лоб)

[veniside]

Тогда это только вопрос времени, когда мемо на сервере поломается, и тут появится новая тема, ну или эта поднимется )

> проблема решена

Какая именно? У вас их штук 5 )

[mss]

> У вас их штук 5

Больше)

Mess := ClientSocket.Receiveln;
while Mess <> '' do // а клиент взял да прислал "пустую" (CRLF) строку ! А сервер с перепугу взял да отключил клиента)