OleVariant和STREAM转换问题
楼申中 2013-11-01 10:03:57 function tform1.StreamToVariant(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 tform1.VariantToStream(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;
procedure TForm1.Button1Click(Sender: TObject);
var
lszstream: TMemoryStream;
lszV: Variant;
begin
lszstream:=TMemoryStream.Create;
lszV:=vararrayof(['0']);
lszstream:=VariantToStream(lszv);
lszv:= StreamToVariant(lszstream);
edit1.Text:= lszv[0];
freeandnil(lszstream);
end;
edit1.text='8' 怎回事