Проблема при считывании строки из AContext

[Lokos]

Здравствуйте.
После считывания примерно 6 передаваемых строк серверу возникает ошибка которая на скрине.
отправляю на серв так

Function ZpSendFoto(ITCPC:TidTCPClient;console:TMemo):boolean;
var buf:string;
begin
   SendTextOtClient(ITCPC,'qqqq');
   Console.Lines.Add(DateToStr(Date)+'-'+TimeToStr(Time)+': Отправка фотографий');
   buf:=ReadTextOtClient(ITCPC);
   Console.Lines.Add(buf);
   if buf='Ok_Send_Foto' then
      begin
          Console.Lines.Add(buf);
      ZpSendFoto:=True;
      end
   else
      ZpSendFoto:=False;
end;

сама функция отправки

Procedure SendTextOtClient(ITCPC:TIdTCPClient;text:string);
var
   str:TStringStream;
begin
   str:=TstringStream.Create;
   str.WriteString(text);
   str.Position:=0;
   ITCPC.IOHandler.Write(str,str.Size,true);
   str.Free;
end;

принемаю так

Function ReadServText(AContext:TIdContext):string;//чтение текста сервером
var
   str:TStringStream;
begin
   str:=TStringStream.Create;
   AContext.Connection.IOHandler.ReadStream(str);
   str.Position:=0;
   ReadServText:=str.ReadString(str.Size);
   //str.Free;
   str.Destroy;
end;
причем первые строки принемаются нормально

[Lokos]

причем если вынести этот код

Function ReadServText(AContext:TIdContext):string;//чтение текста сервером
var
   str:TStringStream;
begin
   str:=TStringStream.Create;
   AContext.Connection.IOHandler.ReadStream(str);
   str.Position:=0;
   ReadServText:=str.ReadString(str.Size);
   //str.Free;
   str.Destroy;
end;

В тело самой программы и считывать им последнию строчку то все хороше читается. возможно библеотеке не хватает памяти или еще чего?

[Lokos]

изминил код так

Function ReadServText(AContext:TIdContext):string;//чтение текста сервером
var
   str:TStringStream;
begin
   str:=TStringStream.Create;
   AContext.Connection.IOHandler.ReadStream(str);
   str.Position:=0;
   ReadServText:=str.ReadString(str.Size);
   //str.Free;
   str.Destroy;
   FreeMemory(str);
end;

программа сработала как надо но на второй запуск опять появилась та же ошибка.
Что за бред такой?
Забыл добавить если нажать на кнопочку brake то перекидывает не вкладку idIOHandler
на кусок кода

procedure AdjustStreamSize(const AStream: TStream; const ASize: TIdStreamSize);
var
  LStreamPos: TIdStreamSize;
begin
  LStreamPos := AStream.Position;
  AStream.Size := ASize;
  // Must reset to original value in cases where size changes position
  if AStream.Position <> LStreamPos then begin
    AStream.Position := LStreamPos;
  end;
end;

Немного по эксперементировав я увидел что и остальные функции длл не пашут в чем может быть проблема

[Lokos]

проблема решена
Как оказалась одна из функций длл возвращала значение типо string и после этого вся длл входила в ступор(((
Вообщем флуд какой то вышел(((

[psycho-coder]

Главное что сам разобрался
В следующий раз пользуйтесь Правкой ()

[Lokos]

Сообщение от psycho-coder

Главное что сам разобрался
В следующий раз пользуйтесь Правкой ()

ок. Но есть еще косяк сразу чето не учел переработал. в длл около 4 функциий которые возвращают значения типа string и после них все хорошо работает. А после приема и возврата довольно большей строки начинает тупить(((