OleVariant zu TBytes

[shmia]

Ich nehme dazu immer das:

Delphi-Quellcode:

function VarByteArrayToString(v:Variant):AnsiString;
var
   len : Integer;
   data : Pointer;
begin
   Assert(VarType(V) = varByte or varArray);
   Assert(VarArrayDimCount(V) = 1);

   len := VarArrayHighBound(v,1)-VarArrayLowBound(v,1)+1;
   SetLength(result, len);

   data := VarArrayLock(v);
   try
      Move(data^, Result[1], len);
   finally
      VarArrayUnlock(v);
   end;
end;