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' 怎回事
...全文
89 点赞 收藏 1
写回复
1 条回复
楼申中 2013年11月03日
哪位大牛帮我看一下
回复 点赞
发动态
发帖子
数据库相关
创建于2007-08-02

1211

社区成员

8.8w+

社区内容

Delphi 数据库相关
社区公告
暂无公告