OleVariant zu TBytes

[schwa226]

Super Danke!

Habe es nun so gelöst:

Delphi-Quellcode:

procedure TMyThread.VariantToTBytes(Data: OleVariant; var Result:TBytes);
var
  p: Pointer;
  len : integer;
begin
  p := VarArrayLock(Data);
  try
    len := VarArrayHighBound(Data, 1) + 1;
    SetLength(Result, len);
    if len > 0 then
      CopyMemory(@Result[0], p, len);
  finally
    VarArrayUnlock(Data);
  end;
end;