Cast Array[0..x] of Byte in TBytes

[schwa226]

Hi!

Ich möchte gerne mit TIdTCPServer Daten an den Client schicken.
Über
AContext.Connection.IOHandler.Write(Buffer, len); Kann ich TBytes an den Client schicken.

Ich habe aber nun Buffer als Array[0..1023] of Byte;

Nun will Write den Buffer nicht mehr. Und extra immer ein TBytes Array mit Setlength zu setzen, dann die Daten kopieren und diese dann zu schicken ist etwas umständlich.

Wie kann man das richtig Casten damit es keine Probleme gibt?

[Uwe Raabe]

Zitat von schwa226:

Wie kann man das richtig Casten damit es keine Probleme gibt?

Das kann man nicht casten, da es sich um unterschiedliche Datentypen handelt, die auch ein unterschiedliches Speicherlayout haben.

[schwa226]

Ok, danke!

So gibt es zumindest keinen Crash:

Delphi-Quellcode:

var
  _buffer : TBytes;
  buffer : Array[0..1023] of Byte;
begin

  SetLength(_buffer, Length(buffer));
  _buffer := @buffer[0];

Man spart sich das Memcopy.

[Satty67]

Das kann nicht richtig sein.

Du verlierst den Zeiger auf den dynamisch reservierten Speicher (_buffer). Es sollte ein Speicherleck geben und fast eine Zugriffsverletzung, wenn _buffer irgendwann freigegeben werden soll und buffer kein gültiger Zeiger mehr ist.

[Uwe Raabe]

Zitat von schwa226:

So gibt es zumindest keinen Crash:

Delphi-Quellcode:

var
  _buffer : TBytes;
  buffer : Array[0..1023] of Byte;
begin

  SetLength(_buffer, Length(buffer));
  _buffer := @buffer[0];

Man spart sich das Memcopy.

Na toll! Man baut sich eine Zeitbombe ein, nur um ein MemCopy zu sparen? Schreib doch besser eine Funktion, die dir aus einem statischen Array ein TBytes macht und der Code wird wesentlich sauberer, lesbarer und weniger fehleranfällig.

[Thom]

Zitat von Uwe Raabe:

Das kann man nicht casten, da es sich um unterschiedliche Datentypen handelt, die auch ein unterschiedliches Speicherlayout haben.

Da muß ich leider widersprechen: Auch wenn es sich im programmtechnischen Sinn um verschiedene Typen handelt (dynamisches vs. statisches Array), so liegen dennoch in beiden Fällen die Daten byteweise hintereinander. Damit haben sie sehr wohl das selbe Speicherlayout.

Durch den Umstand, daß die Write-Methode den Parameter ABuffer als Konstante erwartet, wird vom Compiler nur die Anfangsadresse des Arrays übergeben. Und damit ist es völlig egal, ob es sich dabei um den Beginn eines dynamischen oder eines statischen Arrays handelt.

Ein kleines Beispiel:

Delphi-Quellcode:

procedure Test(const ABuffer: TBytes; ALength: Integer);
var
  n: Integer;
  s: String;
begin
  s:='';
  for n:=0 to ALength-1 do
  begin
    if s<>''
      then s:=s+',';
    s:=s+IntToStr(ABuffer[n]);
  end;
  ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  n: Integer;
  a: array[0..9] of Byte;
  b: TBytes;
begin
  //dynamisches Array:
  SetLength(b,10);
  for n:=Low(b) to High(b) do
    b[n]:=n;
  Test(b,10);
  //statisches Array:
  for n:=Low(a) to High(a) do
    a[n]:=n;
  Test(TBytes(@a[0]),10); //<- Typecast
end;

Das heißt: Ein Typecast ist sehr wohl möglich. Ob er auch sinnvoll ist, steht auf einem ganz anderen Blatt...

[schwa226]

Nur zum Beruhigen: ich habe es so eh nicht umgesetzt!
Bei meinen Versuchen war das die einzige Methode wo es keinen Memory Fehler gab

[Satty67]

@schwa266: Sowas hat jeder mal versucht, besonders wenn man die Verwandschaft (und Compiler-Unterstützung) von String und PChar kennt, will man das gerne mal auf andere Bereiche übertragen.

Zitat von Thom:

Ein Typecast ist sehr wohl möglich. Ob er auch sinnvoll ist

Ein Typecast ist mit einem untypisierten Pointer immer möglich, die Frage ist nicht ob er sinnvoll ist, sondern ob er richtig ist:

Delphi-Quellcode:

procedure Test(ABuffer: TBytes; ALength: Integer);
var
  n: Integer;
  s: String;
begin
  ShowMessage(Format('From %d To %d', [Low(ABuffer), High(ABuffer)]));

"From 0 To <Random>"
Wie das Beispiel zeigt ist der Typecast nicht korrekt und nur im begrenzten Fall problemlos.

[Thom]

@Satty67:

Ich hatte auf die Behauptung von Uwe Raabe reagiert - nicht auf Deine. Und es ging bei der Frage des Threaderstellers darum, ob es in dem konkteren Fall möglich ist.

Noch einmal ausführlich für Dich, was ich mit meiner Bemerkung gemeint hatte:

Selbstverständlich ist es eine bekannte Tatsache, daß ein Pointer ein Pointer bleibt und der Typecast nur ein (unsauberes) Mittel ist, um den Compiler dazu zu bringen, seine Arbeit ohne Fehlermitteilung fortzusetzen. Man muß also sehr genau wissen, was man tut und sich überlegen, welche Delphi-Funktionen mit dem gecasteten Pointer eingesetzt werden können.
Genau aus diesem Grund hatte ich geschrieben, daß man sich die Frage stellen sollte, ob ein Cast sinnvoll ist - also ob er das gewünschte Ergebnis liefert. Geht es zum Beispiel um eine hohe Geschwindigkeit, wäre das ständige Kopieren von Puffern kontraproduktiv.
Natürlich wäre es günstiger - falls möglich - , das statische Array gleich durch ein dynamisches Array zu ersetzten und damit potentiellen Problemen aus dem Weg zu gehen.

Hatte ich an irgend einer Stelle behauptet, daß ein derartiger Cast immer und in jedem Fall sinnvoll ist? Ich kann mich nicht daran erinnern.
Es ist also von Dir absolut überflüssig, in einer derart belehrenden Art und Weise zu schreiben und andere für dumm zu halten.
Aber das scheint hier im Forum leider eine weit verbreitete Unsitte zu sein. Da wird nicht auf konkrete Fragen geantwortet sondern lieber aus - nahezu - jedem Thread eine Prizipiendiskussion gemacht, um sich selbst zu profilieren. Sehr bezeichnend und sehr bedauerlich.

[Satty67]

Zitat von Thom:

Es ist also von Dir absolut überflüssig, in einer derart belehrenden Art und Weise zu schreiben und andere für dumm zu halten.

Ich sehe in meinem Post nur einen sachlichen Hinweis. Was Du alles da rein interpretierst ist mir schleierhaft.