看看哪种适合你（未测试）
代码一：
Do you mean a variant array of bytes?
function VarBytesFromStream(s: TStream; Size: integer): OleVariant;
var
p: pchar;
begin
Result := varArrayCreate([0, Size-1], VarByte);
p := varArrayLock(Result);
try
S.Read(p^, Size);
finally
varArrayUnlock(Result);
end
end;
procedure VarBytesToStream(const Value:OleVariant; s: TStream);
var
p: pchar;
size: integer;
begin
size := VarArrayHighBound(value,1) - VarArrayLowBound(value,1) + 1;
p := VarArrayLock(Value);
try
S.Write(p^, Size);
finally
VarArrayUnlock(Value)
end;
end;
代码二：
function MemoryStreamToOleVariant(Strm: TMemoryStream):
OleVariant;
var
Data: PByteArray;
begin
Result := VarArrayCreate ([0, Strm.Size - 1], varByte);
Data := VarArrayLock(Result);
try
Strm.Position := 0;
Strm.ReadBuffer(Data^, Strm.Size);
finally
VarArrayUnlock(Result);
end;
end;
function OleVariantToMemoryStream(OV: OleVariant):
TMemoryStream;
var
Data: PByteArray;
Size: integer;
begin
Result := TMemoryStream.Create;
try
Size := VarArrayHighBound (OV, 1) - VarArrayLowBound
(OV, 1) + 1;
Data := VarArrayLock(OV);
try
Result.Position := 0;
Result.WriteBuffer(Data^, Size);
finally
VarArrayUnlock(OV);
end;
except
Result.Free;
Result := nil;
end;
end;
