代碼: 選擇全部
uses Comobj
.......
var
obj, obj2: OleVariant;
begin
obj := CreateOleObject('ADODB.Stream');
obj2 := CreateOleObject('ADODB.Recordset');
obj.Type := 2 ;
obj.Charset := 'ascii';
obj.Open;
obj.LoadFromFile('c:mydata.xml');
obj2.Open(obj);
ADOQuery1.Recordset := IUnknown(obj2) as _Recordset;
obj2 := UnAssigned;
obj := UnAssigned;
end;