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

[Uwe Raabe]

Wie aus der Deklaration ersichtlich, erwartet GetString ein TBytes, also ein dynamisches Byte-Array. Dagegen ist TReadBuffer ein statisches Byte-Array.

Dein Code lässt sich auf folgendes reduzieren:

Delphi-Quellcode:

function TCustomWSocket.SocketRead(Socket: TSocket; Flag: integer): string;
var
  Received: longint;
  i: integer;
  bytes: TBytes;
begin
  Result:= '';
  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(bytes, Received);
      for i := 1 to Received do
        bytes[i-1] := FReadBuffer[i];
      Result := TEncoding.Default.GetString(bytes);
    end;
end;

Ich gehe mal davon aus, dass der eigentliche Receive-Code, der Received und FReadBuffer setzt, bewusst entfernt wurde.

[pici]

Hallo Uwe,

vielen Dank für Deine schnelle und kompetente Antwort. Mit Deiner Version lässt es sich einwandfrei kompilieren ... zum Testen der Funktion muss ich noch einen Aufbau der Umgebung machen.

Die anderen Funktionen habe ich nicht absichtlich entfernt, ich wollte den Beitrag nur nicht durch ellenlangen Code überladen.

Hier wird FReadBuffer meiner Meinung nach beschrieben:

Code:

RC:= recv(Socket, FReadBuffer, SizeOf(TReadBuffer), 0);

... oder hier passiert auch was damit:

Code:

function TCustomWSocket.SocketReadV2(Socket: TSocket; Flag: integer): String;
var
  Received, tRecvcount: longint;
  i: integer;
  tmpStr : String;
  tmpFReadBuffer: TReadBuffer;
begin
  Result:= '';
  tRecvcount:=0;
  Received:=0;
  //Received:= recv(Socket, FReadBuffer, SizeOf(TReadBuffer), Flag);
  repeat
  begin
    tRecvcount := recv(Socket, tmpFReadBuffer, SizeOf(TReadBuffer), Flag);

    for i := 1 to tRecvcount do
        FReadBuffer[Received + i]  := tmpFReadBuffer[i];

    Received := tRecvcount +   Received;
  end;
  until (tRecvcount <> SOCKET_ERROR);

  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]);

      //for i := 1 to $ff do
      //     testBuf[i] := i;
      //for i := i to $ff do
      //     testStr[i] := Char(testBuf[i]);

      Result := tmpStr;

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

Welchen Sinn macht es denn, das Array als statisches Array zu definieren? Würde das nicht auch funktionieren, wenn es ein dynamisches Array wäre? Nur um den Gedanken des Programmierers zu verstehen ...

[himitsu]

Der Parameter als "OpenArray", also function GetString(const Bytes: array of Byte): string; würde alle Arten von Byte-Arrays entgegennehmen, seien es dynamische Arrays, unterschiedlich große statische Arrays oder gar eine direkte Konstante/Variable ala [1, 2, 3, 4, 5, EineByteVariable, OderEineKonstante, 6, 7, 8] .

TBytes, so wie es früher mal deklariert war, und wie es im INDY auch immernoch Eines gibt, ala TBytes = array of byte; nimmt nur genau diesen Typen entgegen.
Aber TBytes = TArray<Byte>; dagegen nimmt alles an, was irgendwie von TArray<Byte> abgeleitet ist. (generische Deklaration verhalten sich da anders, als "normale" Deklarationen)