TcpClient - Antwort XML unvollständig.

[Sir Rufo]

Bei einer vernünftigen Kommunikation sollte am Anfang die Länge der übertragenen Nachricht übermittelt werden, dann ist das Ende Zeichen sowas von überflüssig.

Schau dir die Nachricht mal als Hex an, ob da am Anfang nicht diese Information mitkommt.
Im Header steht aber auch eine Information zum Anzahl der Zeichen.

Versuche ansonsten diese auszuwerten

[Garfield]

Indy reserviert für die Antwort 32 kB. Nach der Ermittlung der Antwortlänge wird die Antwort in einem entsprechend großen Buffer geschrieben. Im Beispiel sind es 663 Byte.

ReadLn ruft ReadLn(LF) auf und die function TIdBuffer.IndexOf(const AString: string; AStartPos: Integer): Integer; ermittelt die Position des nächsten LF. Beim letzten String wird die Funktion einfach beendet und anstelle der Länge des letzten Strings -1 zurückgegeben.

[Garfield]

Delphi-Quellcode:

function TIdBuffer.IndexOf(const ABytes: TIdBytes; AStartPos: Integer): Integer;
var
  i, j, LEnd, BytesLen: Integer;
  LFound: Boolean;
begin
  Result := -1;
  // Dont search if it empty
  if Size > 0 then begin
    EIdException.IfTrue(Length(ABytes) = 0, RSBufferMissingTerminator);
    EIdException.IfNotInRange(AStartPos, 0, Size - 1, RSBufferInvalidStartPos);
    BytesLen := Length(ABytes);
    LEnd := FHeadIndex + Size;
    for i := FHeadIndex + AStartPos to LEnd - BytesLen do begin
      LFound := True;
      for j := 0 to BytesLen - 1 do begin
        if i + j < LEnd then begin
          if FBytes[i + j] <> ABytes[j] then begin
            LFound := False;
            Break;
          end;
        end
        else
          Break;
      end;
      if LFound then begin
        Result := i - FHeadIndex;
        if Result <> -1 then
          Break;
      end;
    end;
  end;
end;

Geändert in

Delphi-Quellcode:

function TIdBuffer.IndexOf(const ABytes: TIdBytes; AStartPos: Integer): Integer;
var
  i, j, LEnd, BytesLen: Integer;
  LFound: Boolean;
begin
  Result := -1;
  // Dont search if it empty
  if Size > 0 then begin
    EIdException.IfTrue(Length(ABytes) = 0, RSBufferMissingTerminator);
    EIdException.IfNotInRange(AStartPos, 0, Size - 1, RSBufferInvalidStartPos);
    BytesLen := Length(ABytes);
    LEnd := FHeadIndex + Size;
    for i := FHeadIndex + AStartPos to LEnd - BytesLen do begin
      LFound := True;
      for j := 0 to BytesLen - 1 do begin
        {
        *  Beim letzten Zeichen des Buffer ist auf jeden Schluss.
        }
        if i + j < LEnd - 1 then begin 
          if FBytes[i + j] <> ABytes[j] then begin
            LFound := False;
            Break;
          end;
        end
        else
          Break;
      end;
      if LFound then begin
        Result := i - FHeadIndex;
        if Result <> -1 then
          Break;
      end;
    end;
  end;
end;

und es funktioniert.

[Garfield]

Zitat von Garfield:

und es funktioniert.

Doch nicht ganz. Das letzte Zeichen fehlt.

Da muss dann noch die function TIdIOHandler.ReadLn(ATerminator: string; ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1): string; ein wenig angepasst werden.

Delphi-Quellcode:

  // Extract actual data
  Result := FInputBuffer.Extract(LTermPos + Length(ATerminator));
  if (ATerminator = LF) and (LTermPos > 0) then begin
    {
    *  Wenn beim letzten String das LF fehlt, würde das letzte Zeichen abgeschnitten. 
    }
    if (Result[LTermPos + 1] <> CR) and (Result[LTermPos + 1] <> LF)
    then inc(LTermPos);

    if Result[LTermPos] = CR then begin
      Dec(LTermPos);
    end;
  end;
  SetLength(Result, LTermPos);
end;

Wobei ich mich frage, ob man da ein

Delphi-Quellcode:

  // Extract actual data
  Result := FInputBuffer.Extract(LTermPos + Length(ATerminator));
  Result := TrimRight(Result);
end;

nicht ausreichend wäre.