class function TADOTools.saveToStream2(
pvDataSet: TADODataSet): TMemoryStream;
var
AStream:_Stream;
V:OLEVariant;
P:Pointer;
begin
AStream:=CoStream.Create;
OLEVariant(pvDataSet.Recordset).Save(AStream, adPersistADTG);
AStream.Position:=0;
V:=AStream.Read(AStream.Size);
result:=TMemoryStream.Create;
try
P:=VarArrayLock(V);
try
result.Size:=VarArrayHighBound(V,1)+1;
Move(P^,result.Memory^, result.Size);
finally
VarArrayUnLock(V);
end;
except
result.Free();
result := nil;
raise;
end;
end;
uj5u.com熱心網友回復：
begin end 修改為{}.修改為->
:=修改為=
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/44208.html
標籤：數據庫及相關技術