Fehler E2250 Es gibt keine überladene Version von GetString ...

[pici]

Hallo liebe Community,

ich habe mich hier angemeldet, weil ich gerade bei einem schweren "Erbe" nicht weiterkomme. Wir haben ein paar Windows-Applikationen in Delphi, welche von einem Freiberufler für uns erstellt wurden. Leider ist der gute Mann plötzlich verstorben.

Meine Delphi-Kenntnisse bezeichne ich im Vergleich zu den Profis im Forum hier mit <10%. Eigentlich mache ich Software für Embedded Systems in C, also eine ganz andere Welt. Leider muss ich nun in einem der Projekte eine kleine Änderung machen die an sich kein Problem ist - mein Problem ist, dass sich das Projekt an sich nicht kompilieren lässt und an einem für mich kryptischem Fehler scheitert.

Es geht um diese Funktion hier:

Code:

function TCustomWSocket.SocketRead(Socket: TSocket; Flag: integer): string;
var
  Received, tRecvcount: longint;
  i: integer;
  tmpStr : String;
  tmpFReadBuffer: TReadBuffer;
begin
  Result:= '';
  tRecvcount:=0;
  Received:=0;

  if Received = SOCKET_ERROR then
    begin
      if WSAGetLastError <> WSAEWOULDBLOCK then
        SocketError(WSAGetLastError);
    end
  else
    if Received>0 then begin //05.11.10: Fix bei .SocketRead: bei Länge 0 gab es RangeError beim Zugriff auf Result[1]
      SetLength(Result, Received);
      Result := TEncoding.Default.GetString(FReadBuffer);
      tmpStr := StringOfChar('-', Length(FReadBuffer));
      for i := 1 to Received do
        tmpStr[i] := Char(FReadBuffer[i]);

      Result := tmpStr;

      SetLength(Result, Received);
      //Move(FReadBuffer, &Result[1], Received);
    end;
end;

Sie wirft den Fehler:

Code:

[dcc64 Fehler] WSockets.pas(846): E2250 Es gibt keine überladene Version von 'GetString', die man mit diesen Argumenten aufrufen kann

in der Zeile

Code:

Result := TEncoding.Default.GetString(FReadBuffer);

Die entsprechende Funktion scheint in einer Systembibliothek zu liegen "System.SysUtils", dahin verweist die Deklaration:

Code:

function TEncoding.GetString(const Bytes: TBytes): string;
begin
  Result := GetString(Bytes, 0, Length(Bytes));
end;

Die Definition von "FReadBuffer" im Programm an sich führt zu zwei Stellen:

Code:

    FReadBuffer: TReadBuffer;

sowie in einer "type"-Deklaration

Code:

  TReadBuffer = array[1..READ_BUFFER_SIZE] of byte;

Ich nerve ungerne in einem Forum mit "Anfängerfragen", aber leider brachte mich hier auch eine Stunde Googlen keinen Schritt weiter. Ich würde mich freuen, wenn jemand Licht ins Dunkel bringen könnte ...

Entwicklungsumgebung ist Delphi 10.1 Berlin.

Ich danke im Voraus

Marco