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' 遠訓事
uj5u.com熱心網友回復：
哪位大牛幫我看一下轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/123454.html
標籤：數據庫相關
上一篇：資源更新及讀取問題
下一篇：D7升級到XE2函式出錯