Bytes aus Pointer in Array of Byte schreiben

[Dennis07]

Zitat von Julian M.:

so ungefähr hatte ich mir das gedacht:
 Fbytearray[0] := (ptr^ as Byte)[0];

ist schon nah dran. Allerdings geht der as -Operator nur bei Klassentypen (da er ein Alias für System.AsClass ist). Wenn du hier einen direkten (harten) Typecast verwendest, dann funktioniert das auch:

Delphi-Quellcode:

procedure FillArray(Source: Pointer; out Target: TBytes; Len: Integer);
var
  Index: Integer;
begin
  SetLength(Target, Len);
  for Index := 0 to Pred(Len) do
  begin
    Target[Index] := TBytes(Source)[Index];
  end;
end;

Alternativer Ansatz (rückwärts, ohne zusätzliche Indexvariable):

Delphi-Quellcode:

procedure FillArray(Source: Pointer; out Target: TBytes; Len: Integer);
begin
  SetLength(Target, Len);
  Dec(Len);
  while Len >= 0 do
  begin
    Target[Len] := TBytes(Source)[Len];
    Dec(Len);
  end;
end;

Wichtig ist allerdings noch, dass die beiden Typen beim Typecast dieselbe größe haben. Das trifft auf Pointer und Byte nicht zu, da Pointer ja 32 bzw. 64 Bit hat, während Byte nur 8 besitzt. Das mit System.Move funktioniert theoretisch auch, aber nicht so, wie Neutral General es beschrieben hatte. Wäre aber eigentlich hier nicht notwendig. Ein anderer Weg wäre noch über System.Copy PS: Leider ist die Frage nicht wirklich klar gestellt, deshalb hoffe ich mal, dass ich dich richtig verstanden habe: Der Pointer zeigt auf den ersten Wert des Arrays, am Ende soll ein Byte-Array zurückgegeben werden. Es soll kopiert und nicht nur gecastet werden.