[infopol]

Написал такую функцию.Но результат - Ошибка 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);//,xetUTF_8);     try XmlObj.XML.Text:=files;  except     end;     aStr.Free;        Result:=XmlObj.ComObject;      end;    finally      XmlObj.Active:=True;    Result:=  XmlObj.ComObject;       end;    end;

[lmikle]

И в чем проблема?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); const   sXml = '<xml><items><item><id>1</id></item><item><id>2</id></item></items></xml>'; var   xmlDoc : IXMLDocument;   strXml : String; begin   xmlDoc := TXMLDocument.Create(Nil);   Try     xmlDoc.LoadFromXML(sXml);     xmlDoc.Active := True;     xmlDoc.ChildNodes.Nodes[0].AddChild('item').AddChild('id').Text := '3';     xmlDoc.SaveToXML(strXml);     strXml := StringReplace(strXml,'</item>','</item>'#13#10,[rfReplaceAll]); //  Это просто для удобства просмотра     ShowMessage(strXml);   Finally   End; end;

т.е. у тебя в xmlDoc уже ссылка на интерфейс сразу после создания объекта.

Если тебе нужен именно IUnknown, то попроси его у IXMLDocument:

Код:

1 2 3 4 5 6

var   intfUnkn : IUnknown; begin   ...   intfUnkn := xmlDoc as IUnknown;   ...

ЗЫ. Кстати, такой объект удалять не надо, он сам самоудалится как только выйдет из области видимости - это ж Com объект.

ЗЗЫ. Кстати, IXMLDocument, походу, не является OLE Automation интерфейсом, так что "засунуть" его в OleVariant не получится.
Если надо возвращать какой-то общий тип, то возвращай IUnknown:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

function GetXML(Str : String) : IUnknown; var   xmlDoc : IXMLDocument; begin   xmlDoc := TXMLDocument.Create(Nil);   xmlDoc.LoadFromXML(str);   xmlDoc.Active := True;   Result := xmlDoc as IUnknown; end;   procedure TForm1.Button2Click(Sender: TObject); const   sXml = '<xml><items><item><id>1</id></item><item><id>2</id></item></items></xml>'; var   xmlDoc : IXMLDocument;   strXml : String; begin   xmlDoc := GetXML(sXml) as IXMLDocument;   xmlDoc.ChildNodes.Nodes[0].AddChild('item').AddChild('id').Text := '3';   xmlDoc.SaveToXML(strXml);   strXml := StringReplace(strXml,'</item>','</item>'#13#10,[rfReplaceAll]); //  Это просто для удобства просмотра   ShowMessage(strXml); end;

[infopol]

А как передать
XmlObj.DomVendor:= GetDOMVendor('OPEN XML') ?
Дело в том,что в com DLL которую я делаю выдается ошибка!

[lmikle]

Тут 2 проблемы.
1. DOMVendor есть только у TXMLDocument, у IXMLDocument его нет. Соответственно, надо сначала создать TXMLDocument, установить у него свойство, потом получить из него IXMLDocument и уже дальше работать с ним.
2. Ошибка может возникать т.к. такого вендора может не быть. Вот тут есть список стандартных вендоров:
https://docwiki.embarcadero.com/RADS...t_Object_Model
Так же можно посмотреть какие вендоры зарегистрированны в этой переменной:
https://docwiki.embarcadero.com/Libr...dom.DOMVendors
Ну и там есть ссылка на документацию на RegisterDOMVendor - если тебе надо зарегистрировать какогото своего вендора.

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function GetXML(Str : String) : IUnknown; var   xmlDoc : TXMLDocument; begin   xmlDoc := TXMLDocument.Create(nil); //if FileExists(str)  then //begin     xmlDoc.LoadFromXML(str);   xmlDoc.Active := True;      Result :=  xmlDoc as IUnknown;    // end;     end;

[lmikle]

Поменяй тип переменной на IXMLDocument

[infopol]

Не помогло

[infopol]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function GetXML(Str : String) : IUnknown; var   xmlDoc : TXMLDocument; begin   xmlDoc := TXMLDocument.Create(Nil); if FileExists(str)  then xmlDoc.LoadFromFile(str) else   xmlDoc.LoadFromXML(str);   try   xmlDoc.Active := True;   Result := xmlDoc as IUnknown;      except          Result:=nil;      end;       end;

Делаю COM DLL ,в ней функция

Код:

1 2 3 4 5 6 7 8 9

uses ComServ; function TIP2COM.F_IXML_OBJECT(const aPar: WideString): IUnknown; safecall;  begin    try    Result:=GetXML(aPar);    except        ShowMessage('Ошибка создания объекта!');        end;  end;

При вызове

ip2:=CreateOleObject('Ip2Com_events.Ip2Com');
oxml:=ip2.F_IXML_OBJECT(ExtractFilePath(ParamStr(0 )) + '/health.xml') ;

выдается ошибка на сервере.
Возможно ли использовать этот объект в COM DLL?

[infopol]

при вызове

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function GetXML(Str : String) : IUnknown; var   xmlDoc : iXMLDocument; begin       try    xmlDoc:= CreateXmlDocument;   if FileExists(str)  then xmlDoc.Load(str) else   xmlDoc.LoadXML(str);     Result := xmlDoc as IUnknown;      except          Result:=nil;      end; end;

В этом фрагменте вылетает ошибка.

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TTestForm.Button1Click(Sender: TObject); var   oxml:IUnknown;   ip2:OleVariant;     aDoc: IXmlDocument;     anElem2: IXmlNode; begin  ip2:=CreateOleObject('Ip2Com_events.Ip2Com'); oxml:=ip2.F_IXML_OBJECT(ExtractFilePath(ParamStr(0)) + 'health.xml')  ;   end;

[lmikle]

Какая ошибка, на какой строке?
И вообще, нафига такие сложности для чтения xml?

[infopol]

пишет Ошибка сервера.
А сложности,для использования объекта OXML в бухпрограмме "Инфо-Предприятие". Кое-что хочу сделать в обход MSXML

[lmikle]

А у тебя твой объкт точно реализует OLE интерфейс?
И зачем тебе OLE? Из приведенного кода этого не видно.
Попробуй просто импортировать в тестовое приложение твой компонент и создать его через CoClass.

[infopol]

Вот часть кода COMDLL

Код:

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 34 35 36 37 38 39 40 41 42

type   TIp2Com = class(TAutoObject, IIp2Com)      protected function F_IXML_OBJECT(const aPar: WideString): IUnknown; safecall; end;  function GetXML(Str : String) : IUnknown;     implementation          uses ComServ; function TIP2COM.F_IXML_OBJECT(const aPar: WideString): IUnknown; safecall;  begin    try    Result:=GetXML(aPar);    except      try      Result:=iXmlObjCreate(aPar) ;      except        ShowMessage('Îøèáêà ñîçäàíèÿ îáúåêòà');        end;        end;  end; function GetXML(Str : String) : IUnknown; var   xmlDoc : TXMLDocument; begin   xmlDoc := TXMLDocument.Create(Nil); if FileExists(str)  then xmlDoc.LoadFromFile(str) else   xmlDoc.LoadFromXML(str);   try   xmlDoc.Active := True;   Result := xmlDoc as IUnknown;      except          Result:=nil;      end;         end;

[lmikle]

А библиотеку типа покажи тоже.

[infopol]

Не работает.