Написал такую функцию.Но результат - Ошибка Com Class не зарегистрирован.Что я делаю не так?
Код:
function XmlObjCreate(const files:string):OleVariant ;
var
XmlObj:TXMLDocument;
aStr:TStringStream;
begin
XmlObj:= TXMLDocument.Create(files);
try
if FileExists(files) then
begin
XmlObj.FileName:=files ;
XmlObj.LoadFromFile(files);
end
else
begin
aStr:=TStringStream.Create(files);
XmlObj.LoadFromStream(aStr);//,xetUTF_8);
try XmlObj.XML.Text:=files; except
end;
aStr.Free;
Result:=XmlObj.ComObject;
end;
finally
XmlObj.Active:=True;
Result:= XmlObj.ComObject;
end;
end;