Написал такую функцию.Но результат - Ошибка Com Class не зарегистрирован.Что я делаю не так?
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 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);
try XmlObj . XML . Text:=files; except
end ;
aStr . Free;
Result:=XmlObj . ComObject;
end ;
finally
XmlObj . Active:= True ;
Result:= XmlObj . ComObject;
end ;
end ;
|